|
都是些源程序代码之类的东西,很强大.3 O- u( u% J! U1 f2 \1 U- e
正想版主们多搞些实例学习学习的, w8 `+ X4 P' }# n9 T- R5 B6 A
(defun c:eb (/ a);删除所有标注" r9 }7 C! d1 V0 a' t4 L8 ^5 v4 q
(setq a (ssget "x" '((0 . "dimension"))))7 D" l" H/ ~! I
(command "_.erase" a "")
" Y% F2 o3 n" M$ q8 p) |
|