[求助]怎樣通過LISP以點型式單選圖元？

hoprich123

(defun c:aa( / osmm enl pp en end entyp newlist slist)
(lispset nil) ;此函數已定義
(setq osmm(getvar "osmode"))(osm 0)　　　 ;此函數已定義
(load "addgap") ;此函數已定義
(princ "\n圖元屬性查洵.請將光標移至要查詢圖元的上方:")
(setq dd(grread t) dd0 dd)
(setq pp(cadr dd))
(while (= dd dd0)
(if (ssget "c" pp pp)
(progn
(setq enl(entget (ssname (ssget "c" pp pp) 0)))
(if newlist (command ".erase" newlist "")) ;後續函數運算產生之變量
(setq en(car enl) pp(cadr enl) slist '())
(setq end(entget en))
(setq entyp(cdr (assoc 0 end)))
(cond ((= entyp "POINT")(id_point)) ;此函數已定義
((= entyp "LINE")(id_line)) ;此函數已定義
((= entyp "CIRCLE")(id_circle)) ;此函數已定義
((= entyp "ARC")(id_arc)) ;此函數已定義
((= entyp "TEXT")(id_text)) ;此函數已定義
((= entyp "MTEXT")(id_mtext)) ;此函數已定義
((= entyp "INSERT")(id_insert)) ;此函數已定義
((= entyp "POLYLINE")(id_polyline)) ;此函數已定義
((= entyp "LWPOLYLINE")(id_lwpolyline)) ;此函數已定義
)
(write_list slist) ;此函數已定義
)
)
(setq enl nil)
(setq dd0 dd)
() ;此為讓用戶動態移動光標程序
(setq dd(grread t))
)
(if newlist (command ".erase" newlist ""))
(command ".color" "bylayer")
(osm osmm)
(reset) ;此函數已定義
)

meflying

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=9315

alin

Get Bubble from www.bubblecad.com.

hoprich123

謝謝，只是這人程式要用（VL－LOAD－COM），而2000以下的版本都不行。


如果在R14平台上面也可以運行的話就好啦。