为什么运行修剪命令trim是过滤无效？
向大师们请教一个问题：为什么运行修剪命令trim是过滤无效？有什么办法吗？
;可见区域重生成（hbllw 2010-11-6）
(defun c:re( / $screen atio ce ch ch2 hh hh2 k p1 p2 ss)
(setq $screen (getvar "SCREENSIZE"))
(setq ch (getvar "viewsize"))
(setq ch2 (/ ch 2)) (setq ce (getvar "viewctr"))
(setq atio (/ (car $screen) (cadr $screen)))
(setq hh (* atio ch))
(setq hh2 (/ hh 2))
(setq p1 (polar (polar ce 0 hh2)
(* 1.5 pi) ch2))
(setq p2 (polar (polar ce pi hh2)
(* 0.5 pi) ch2))
(setq SK (ssget "C" p1 p2 gl))
(setq k -1)
(if (> (sslength SK) 0)
(repeat (sslength SK)
(entupd (ssname SK (setq k (1+ k))))))
;(command "要执行的命令" SK "")
(princ))
(defun c:rt()
(setq gl (list '(8 . "~2中心线") ));
(c:re)
(command "trim" SK "")
(princ))
"trim"?
你可以试着关闭不需要剪裁的图层,然后 "trim",完了再打开图层.
页:
[1]