想请教各位知道怎样可以在VISUALLISP平台下实现只需要定位一个点就可以知道和此点相连接的线段的数目和长度吗？？？
想请教各位知道怎样可以在VISUALLISP平台下实现只需要定位一个点就可以知道和此点相连接的线段的数目和长度吗？？？
2楼
(defun c:getline()
(setq pt (getpoint "\n输入点:"))
(setq p1 (polar pt (* pi 0.25) 1.0))
(setq p2 (polar pt (* pi 1.25) 1.0))
(setq ss (ssget "c" p1 p2 (list (cons 0 "*line") )))
(if ss
(progn
(prompt (strcat "\n共有" (itoa (sslength ss)) "段line")
;;;;以下代码可以循环得到长度．．．不写了
)
)
)
回复
3楼
xxxx7000，简直是神人！
回复
