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

画30宽的多线段

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

)


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

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

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

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

本帖最后由 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:36

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

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

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


谢谢可以了

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

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

试试DONUT命令

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

试试DONUT命令 cad自带的
页: [1]
查看完整版本: 画30宽的多线段