请教LISP选择问题

champion2041

我想编一个LISP程序，但是有一个问题：如何选择一个线（pline、line、arc、circle等），这个已经可以用SSget实现，但是选择后如何获取相关信息呢？一直没搞明白。如果是pline或者line线，获取其两端点坐标，如果是ARC或circle获取其圆心坐标和半径，该怎么操作呢？谢谢高手们！

caoyin

entget

champion2041

entget的怎么用呢？关于pline、line、arc、circle的相关参数是怎样的，麻烦caoyin老师指导一下，谢谢

jaminth

指引一下:

2. (setq ss (ssget'((0 . "INSERT,LWPOLYLINE,line,arc,circle"))))
3. (setq j 0 )
4. (repeat (sslength ss)
5. (setq seltyp (cdr (assoc 0 (entget (ssname ss j)))) j (1+ j))
6. (cond
7. ((= seltyp "INSERT")(alert "INSERT"))
8. ((= seltyp "LWPOLYLINE")(alert "POLYLINE"))
9. ((= seltyp "line")(alert "line"))
10. ((= seltyp "arc")(alert "arc"))
11. ((= seltyp "circle")(alert "circle"))
12. )
13. )

(setq ss (ssget'((0 . "INSERT,LWPOLYLINE,line,arc,circle")))) (setq j 0 ) (repeat (sslength ss) (setq seltyp (cdr (assoc 0 (entget (ssname ss j)))) j (1+ j)) (cond ((= seltyp "INSERT")(alert "INSERT")) ((= seltyp "LWPOLYLINE")(alert "POLYLINE")) ((= seltyp "line")(alert "line")) ((= seltyp "arc")(alert "arc")) ((= seltyp "circle")(alert "circle")) ) )