|
都是些源程序代码之类的东西,很强大.4 y6 b) H& G- k; A
正想版主们多搞些实例学习学习的- t1 w5 V7 Y; }+ V2 B5 z# l t& Y' V
(defun c:eb (/ a);删除所有标注+ j$ ^0 G( D, ^: e8 @) x1 T- A6 ~0 Z
(setq a (ssget "x" '((0 . "dimension"))))% Q5 D# X* f" {8 m; T( Z
(command "_.erase" a "")' c# `3 D! {& F+ v" q5 t" ^$ x
) |
|