I have a lisp routine to convert lines and/or arcs to polyines and give them all a common thickness that works in autocad but will not work in microsurvey.
I am including a portion of the code and see if anyone out there can help me.
(while (< v2 (sslength v1))
(setq pt1 (ssname v1 v2))
(if (= "POLYLINE" (cdr (assoc 0 (entget pt1))))
(command "pedit" pt1 "w" *th "")
(command "pedit" pt1 "" "w" *th "")
)
(setq v2 (+ v2 1))
)
I have triedmodifying the "pedit" autocad command to "polyedit" command (microsurvey alternative??) but it does not work.
The command appears to execute but it does not apply the value provided earlier in the routine to the polylines.
Any suggestions???
Artb