Trim快把我逼疯了
又是我。我希望有人能揭开另一个谜团。要查看我的问题，请使用标准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)
)
我不确定这是否对你的案子有帮助，但我之前遇到的事情抓住了我
当做
杰米 我发现，通过调整修剪围栏的大小，我可以使其正常工作。我从未想过trim命令对隐藏线和虚线中的间隙位置如此敏感，等等。。。
我知道，做我很糟糕！
页:
[1]