BIGAL Posted November 15, 2019 Share Posted November 15, 2019 (edited) Ok my take no code around 2 mins. Open file in excel sort all data on column A cut stns and pastes into code column instead add numbers 1-21 where stn name was save csv use CIV3D PENZD create point group it has a label style preset. make surface display contours, all done see image. Change label style as required. Edited November 15, 2019 by BIGAL Quote Link to comment Share on other sites More sharing options...
BIGAL Posted November 15, 2019 Share Posted November 15, 2019 (edited) Why not Briscad and Civil Site design then contour. Forgot to mention if the code is field survey strings then after setting up library the plan would have been strung and line work produced for both Briscad and CIV3D. Edited November 15, 2019 by BIGAL Quote Link to comment Share on other sites More sharing options...
Tomislav Posted November 15, 2019 Author Share Posted November 15, 2019 the thing is Bigal, I am manually connecting lines cause we don't have line coding, and inserting them in proper layers and so on...we only have coding for street infrastructure and I made lisp for inserting blocks on those points...so you see why I need all that numbers visible and can't do it through Civil Quote Link to comment Share on other sites More sharing options...
Tomislav Posted November 15, 2019 Author Share Posted November 15, 2019 14 hours ago, rlx said: in place of atof you could use 'datof' (defun datof (s i / n ) (if (and (= (type s) 'str) (numberp i) (setq n (vl-string-position (ascii ".") s))) (substr s 1 (+ 1 i n)) s)) test (datof "12345.67890" 2) where 2 is the number of decimals (dec in your routine) if data integrity is guaranteed : (defun datof (s i) (substr s 1 (+ 1 i (vl-string-position (ascii ".") s)))) I must use this cause rounding should be done to a higher number (125.56=125.6) (defun datof (str dec / n) (if (and (= (type str) 'str) (numberp dec) ) ;_ and (setq str(rtos (distof str 2) 2 dec)) str ) ;_ if ) ;_ defun Quote Link to comment Share on other sites More sharing options...
dlanorh Posted November 15, 2019 Share Posted November 15, 2019 Attached is updated lisp. plo2.lsp 1 Quote Link to comment Share on other sites More sharing options...
Tomislav Posted November 15, 2019 Author Share Posted November 15, 2019 (edited) 2 hours ago, dlanorh said: Attached is updated lisp. plo2.lsp 5.02 kB · 1 download I like your commenting, helps with learning wondering why entmakex instead of entmake? Edited November 15, 2019 by Tomislav Quote Link to comment Share on other sites More sharing options...
dlanorh Posted November 15, 2019 Share Posted November 15, 2019 2 hours ago, Tomislav said: I like your commenting, helps with learning wondering why entmakex instead of entmake? entmakex returns the created entityentmake returns the created entities entity list (same as entget entity) it all depend on what you want to do next Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.