(DEFUN C:TRR (/ GP) (SETQ GP (SSGET)) (COMMAND “TRIM” GP “” “F” PAUSE PAUSE “” “”))
“以栅选方式剪切”,我参照别人的LISP编的,但是不太好使,有时剪不干净,有时只能剪掉屏幕内的线—-用个透明明令pan之后,看不见的线就剪不掉了.请各位大侠拔刀相助.
(DEFUN C:TRR (/ GP) (SETQ GP (SSGET)) (COMMAND “TRIM” GP “” “F” PAUSE PAUSE “” “”))
“以栅选方式剪切”,我参照别人的LISP编的,但是不太好使,有时剪不干净,有时只能剪掉屏幕内的线—-用个透明明令pan之后,看不见的线就剪不掉了.请各位大侠拔刀相助.