本帖最后由 zhb236623 于 2013-8-20 11:54 编辑
为什么选不中地物呢。附上测试文件了。
(setq ss (ssget "x" (list (list -3 ( list "south" (cons 1000 ddf))))))
实在不行,没人能够解决我就能这样子了。
(setq ss (ssget '((0 . "TEXT")(8 . "JZD")(1 . "000????"))))
因为在JZD层下面的有七位整数的,开头是000的只有编码为302002"的了 - (defun c:tt()
- (vl-load-com)
- (setq ddf "302002")
- (setq ss (ssget "x" (list (list -3 ( list "south" (cons 1000 ddf))))))
- (command "erase" ss "")
- )
|