can you speed up my lisp

[BIGAL]

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

[BIGAL]

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

[Tomislav]

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

[Tomislav]

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

 

[dlanorh]

Attached is updated lisp.

plo2.lsp

[Tomislav]

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

[dlanorh]

2 hours ago, Tomislav said:

 

 

I like your commenting, helps with learning 

wondering why entmakex instead of entmake?

 

entmakex returns the created entity
entmake returns the created entities entity list (same as entget entity)

 

it all depend on what you want to do next