给个建议 我建填充时都会自己画一个填充,然后用下面的代码将它的群码表获取下来 再用entmake反推…… ;--------------------------------- ;祘Α瓜じ妮┦祘Α ;璶ノ程穝瓜じ销妮┦ ;---------------------------------- ; (defun C:pro(/ ent ent1 ct) (setq ent (car (entsel))) (setq ent1 (entget ent)) (setq ct 0) (textpage) (princ "\n对象群码表") (repeat (length ent1) (print(nth ct ent1)) (setq ct(+ 1 ct)) ) (princ) ) |