只需一步,快速开始
画pl线小程序。请问如何象pl命令那样可以在画的过程中使用undo撤消。
(defun c:gpl( / obj1 obj2 gp1 gp2) (setq obj2 nil) (setq gp1 (getpoint)) (while (setq gp2 (getpoint gp1)) (command "pline" gp1 gp2 "" ) (setq obj1 (entlast)) (if ( /= obj2 nil) (command "pedit" "m" obj1 obj2 "" "j" "j" "b" 1 "") ) (setq obj1 (entlast) gp1 gp2 obj2 obj1 ) );while);defun
使用道具 举报
1.程序希望的效果与指令pline有何不同?
2.在程序中直接用(command "pline" pause),是否可直接达到你的需求?
本想在程序中边画线,边生成线形。因为不懂undo,经常位置画错,只能从头画。
希望指点指点。
试试:
(command "pline" gp1)(while (> (getvar "cmdactive") 0) (command pause))
真的很想说 i 服了u
退亿万步说,共同进步一下,有没有办法实现undo。没有也没关系,我还撑的住
真的很想说 i 服了u 退亿万步说,共同进步一下,有没有办法实现undo。没有也没关系,我还撑的住
此贴回应4楼的。
同时谢谢五搂。你的方法我试不出来,能否详细说明一下
这样的话,你可以用这个办法实现。
编个LISP程序,可以让用户循环选择所有画PL的命令选项和自加返回上一点的功能。
先将已绘制的多义线显示出来。当用户选择返回上一点用用程序删除多义线的最后一点。再画一点就再在PL对像上增加一点。也很好实现。
我以为楼主只想要这个功能。
呵……会错意了。希望共同学习一起进步。
本以为调调cad命令就可以
谢谢tcsl9621提供思路。固的,呵呵。。。。
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-4-28 12:44 , Processed in 0.343180 second(s), 25 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.