旋转云厚度

madmonocle · 发表于 2022-7-6 00:45:16

大家好，
我正在尝试制作一个lisp脚本，它允许我
-插入修订三角形
-绘制云线批注
-将该云的全局宽度更改为1/64

前2个很简单，但我正在努力将宽度实现到我的脚本中。这就是我所拥有的：

（定义c:NR（/磅）
（vl cmdf“-insert”“revblock”pause“1”“1”pause）
（命令“revcloud”）
)

有人能告诉我将revcloud上的全局宽度设置为1/64的正确方向吗？

谢谢

ReMark · 发表于 2022-7-6 01:15:34

难道用户不必求助于访问属性并更改revcloud的全局宽度吗？

如果没有办法通过lisp实现这一点，那么答案可能是使用定制的revcloud lisp，比如fixo的是this thread。。。

http://www.cadtutor.net/forum/showthread.php?23765-Simple revcloud LISP

见第7页。

我改变了主意。你的问题的答案是简单地从普通风格改为书法风格。确保将PLinewid设置为更高的阀门。您可能还需要增加弧的长度。我认为你必须经历一些反复试验才能找出最适合你的方法。

Tharwat · 发表于 2022-7-6 01:38:54

你说的1/64是什么意思？

无论如何，这里有一个子函数来处理这个问题

copy


(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)

ReMark · 发表于 2022-7-6 01:50:48

revcloud是一条多段线，多段线可以应用宽度。默认宽度为0.00。

[编程交流] 旋转云厚度

发表回复

精选推荐