请教大家怎么加入线型为DASH

lingduwx

请教大家怎么加入线型为 DASH 谢谢了

bori

command调用太啰嗦啦。你这样。

1. (setq *lays (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))
   
2. (setq add_lay (vla-add *lays "J家具虚线0.00"))
   
3. (vla-put-color add_lay 25)
   
4. (vla-put-linetype add_lay "DASHED")

(setq *lays (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))))<br /> (setq add_lay (vla-add *lays "J家具虚线0.00"))<br /> (vla-put-color add_lay 25)<br /> (vla-put-linetype add_lay "DASHED")

vla-put 还可以赋值好多。
对了，我没有DASH线型，只有DASHED~~~~

lingduwx

bori 发表于 2015-11-13 15:13
command调用太啰嗦啦。你这样。

大哥你好，小弟菜鸟一枚，弄不懂这个怎么用啊，可否再麻烦大哥弄一个带命令的，谢谢了

bori

lingduwx 发表于 2015-11-13 16:21
大哥你好，小弟菜鸟一枚，弄不懂这个怎么用啊，可否再麻烦大哥弄一个带命令的，谢谢了

你主楼的程序不是有了么?

(defun c:<这边是快捷键> ()

程序放在这里...

）

lingduwx

bori 发表于 2015-11-13 16:33
你主楼的程序不是有了么?

(defun c: ()

哦，谢谢大哥

jltx123456

lingduwx 发表于 2015-11-13 16:21
大哥你好，小弟菜鸟一枚，弄不懂这个怎么用啊，可否再麻烦大哥弄一个带命令的，谢谢了

你是一路"求" 到钻石会员的么? 叹为观止!