旋转云厚度
大家好，我正在尝试制作一个lisp脚本，它允许我
-插入修订三角形
-绘制云线批注
-将该云的全局宽度更改为1/64
前2个很简单，但我正在努力将宽度实现到我的脚本中。这就是我所拥有的：
（定义c:NR（/磅）
（vl cmdf“-insert”“revblock”pause“1”“1”pause）
（命令“revcloud”）
)
有人能告诉我将revcloud上的全局宽度设置为1/64的正确方向吗？
谢谢 难道用户不必求助于访问属性并更改revcloud的全局宽度吗？
如果没有办法通过lisp实现这一点，那么答案可能是使用定制的revcloud lisp，比如fixo的是this thread。。。
http://www.cadtutor.net/forum/showthread.php?23765-Simple revcloud LISP
见第7页。
我改变了主意。你的问题的答案是简单地从普通风格改为书法风格。确保将PLinewid设置为更高的阀门。您可能还需要增加弧的长度。我认为你必须经历一些反复试验才能找出最适合你的方法。 你说的1/64是什么意思？
无论如何，这里有一个子函数来处理这个问题
(defun ChangeWidth (e v)
(if (eq (cdr (assoc 0 (entget e))) "LWPOLYLINE")
(vla-put-constantwidth (vlax-ename->vla-object e) v)
)
(princ)
)(vl-load-com)
revcloud是一条多段线，多段线可以应用宽度。默认宽度为0.00。
页:
[1]