Hi.I have this lisp code to draw lines between points. I want to update this code to draw lines from one point to a list of others.
for example
1)give the first point -->s1
2)give a list of mumbers --> 1- 4
or give a txt file with a list of points like the attach file
The solution with the txt file must be better
(defun c:lineat
(/ data AllPointnumber stop pts data i p pv pts_
) (if (setq AllPointnumber
nil stop
nil pts
nil data
(ssget "_X" (list '
(0 .
"INSERT")'
(66 .
1)'
(2 .
"Point,KORYFES,station,trigonom,KOKAEK,KOROT,AnnotPoint,AnnotKORYFES,Annotstation,Annottrigonom,AnnotKOKAEK,AnnotKOROT")(cons 410 (getvar 'Ctab
))))) )
)
)
)
)
'GetAttributes
)
)
)
(setq AllPointnumber
(cons p AllPointnumber
)) )
)
(setq pv
(getstring "\nGive the Point number <Enter to exit>: ")) )
)
)
((eq pv
"") (setq stop
"Done")) ((null a
) (princ "\n<<Point value not found>>")) ))
(setq convert
(cond ( (getkword "\nConvert to polylines? [Yes/No] <N>: ") ) ( "No" ))) (command "_.pedit" "_M" 2bjoin
"" "_J" "" "")) )
)
)
Thanks
