又是我。我希望有人能揭开另一个谜团。
要查看我的问题，请使用标准acad创建一个新图形。dwt模板，然后在其中加载“隐藏”线型。然后加载并运行以下LISP代码：
- (defun c:test ( / r1)
- (vl-load-com)
-
- (start)
- (setvar 'CECOLOR "Red")
- (command "._PLINE" '(0.0 0.0) "@24<0" "@2<270" "@2<180" "@6<270" "@2<0" "@9<270" "@24<180" "c")
- (setq r1 (entlast))
-
- (setvar 'CECOLOR "Yellow")
- (setvar 'CELTYPE "Hidden") ; COMMENT THIS LINE
- (command "._CELTSCALE" "0.25") ; AND THIS ONE TOO FOR A DIFFERENT TRIM ACTION!
-
- (command "._LINE" '(16.0 -4.0) "@7<0" "@8<270" "")
- (command "._LINE" '(16.0 -4.1875) "@7<0" "")
- (command "._LINE" '(22.8125 -4.1875) "@7.8125<270" "")
- (command "._ZOOM" "A")
-
- (command "._TRIM" r1 ""
- '(23.0 -3.5) '(22.125 -5.0) "")
-
- (reset)
- (princ)
- )
- (defun start ()
- (setq oldlayer (getvar "clayer"))
- (setq oldsnap (getvar "osmode"))
- (setq oldpick (getvar "pickbox"))
- (setq oldcmd (getvar "cmdecho"))
- (setvar "osmode" 0)
- (setvar "pickbox" 0)
- (setvar "cmdecho" 0)
- (princ)
- )
- (defun reset ()
- (setvar "clayer" oldlayer)
- (setvar "osmode" oldsnap)
- (setvar "pickbox" oldpick)
- (setvar "cmdecho" oldcmd)
- (setvar 'CECOLOR "ByLayer")
- (setvar 'CELTYPE "ByLayer")
- (command "._CELTSCALE" "1.00")
-
- (princ)
- )
我不确定这是否对你的案子有帮助，但我之前遇到的事情抓住了我
当做
杰米 | 
置顶卡
