画30宽的多线段

江南十笑 · 发表于 2019-9-11 08:42

线设置一个快捷键WW3用来画固定宽度为30的多线段，下面代码能画，但是画完下次用PL线画的时候也是30宽，如何修改这个宽度只是这次画30宽，下次用PL线画还是默认0线宽？(defun C:WW3 () (setvar "plinewid" 30)
(COMMAND ".PLINE")
(princ)

)

satan421 · 发表于 2019-9-11 08:50

本帖最后由 satan421 于 2019-9-11 08:53 编辑

PLINEWID是系统变量，用entmake的方法吧。。。

yshf · 发表于 2019-9-11 09:37

本帖最后由 yshf 于 2019-9-11 10:05 编辑

(defun C:WW3 ()
(setvar "plinewid" 30)
(command "._pline")
(while (= (getvar "CMDNAMES") "PLINE")
(command pause)
)
(setvar "plinewid" 0)
(princ)
)
或者

(defun C:WW3 ()
(setq wid (getvar "plinewid"))
(setvar "plinewid" 30)
(command "._pline")
(while (= (getvar "CMDNAMES") "PLINE")
(command pause)
)
(setvar "plinewid" wid)
(princ)
)

烟盒迷唇 · 发表于 2019-9-11 09:40

设置了，画完了要恢复原来线宽呀

江南十笑 · 发表于 2019-9-11 10:03

yshf 发表于 2019-9-11 09:37
(defun C:WW3 ()
(setvar "plinewid" 30)
(command "._pline")

谢谢可以了

500w008 · 发表于 2019-9-20 02:10

提示: 作者被禁止或删除内容自动屏蔽

foolishzy · 发表于 2019-9-20 09:53

试试DONUT命令

foolishzy · 发表于 2019-9-20 09:53

试试DONUT命令 cad自带的

账号		自动登录	找回密码
密码			注册

[提问] 画30宽的多线段

评分

500w008 500w008 当前离线积分 6427 明经币个注册时间 2009-9-28 在线时间小时威望金钱个贡献激情	发表于 2019-9-20 02:10 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡