云线批注
我们的办公室只使用1组设置来创建Rev Cloud。有没有办法将其写入Lisp文件？示例：（c:_revcloud“A”4.5“P”暂停）A表示圆弧大小，P表示多边形
（bns_revcloud“A”4.5“P”暂停）尝试了bns，因为它适用于Express Tools
这些不起作用，但像这样的东西。
非常感谢。
托尼 这是我的一首老歌，但对我来说仍然有效。
RLX云。DCL
RLX云。LSP
RLL。lsp
RL层。lsp 嗨，rlx，恐怕我们需要“rll.lsp”或与应答呼叫（加载“rll”）语句等效的东西。。。不确定，但我认为它可以合并到同一个函数中。。。
谢谢，M.R。
哎呀。。。
总是忘记那个。。。是时候更新和合并这些文件了。更新了我原来的帖子。您还必须重命名rl层。lsp到*。日期：。（否则无法上传）你可以制作自己的数据文件，它只是一个文本文件，每行上都有：名称层名称线型和颜色。只需从RL层更改名称。dat到您的图层。dat或其他。
gr.Rlx 谢谢rlx，我决定将您附加的所有内容实现到一个*中。LSP。。。它对我来说很好，我发现唯一的不足是免费选项，我只是稍微修改了一下以满足我的需要。。。你现在可以看看有没有别的东西，但我觉得现在没问题了。。。我已经把它放在我的创业公司acaddoc里了。lsp。。。再次感谢，祝你一切顺利，M.R。
RLX云。LSP
看看代码（我自己的代码）是在回顾过去，当我在“早期”的时候，我现在可以做得更好，所以我现在有点惭愧。尽管缺乏编程风格，但它对我来说很管用，这可能是升级它的优先级一直较低的原因。回到过去，我重新编写了批处理实用程序，最终从头开始，尽管我对结果感到满意，但这确实花费了我很多时间。但如果我有时间，我可能会完全重写这个例程。但无论如何你都喜欢。
gr.Rlx 嗨，我知道它没有RLX那么复杂，但这是我们在办公室使用的。希望有帮助。
(defun c:myrevcloud ( / moc pt2 polrad poly mincrad maxcrad newcloud)
(setq moc (getpoint "\nPick center of the Revcloud"))
(setq pt2 (getpoint "\nPick point away from center"))
(setq polrad (distance moc pt2))
(command "_polygon" 7 moc "" polrad)
(setq poly (entlast))
(setq mincrad (/ polrad 2))
(setq maxcrad (* polrad 0.6))
(command "_revcloud" "A" mincrad maxcrad "o" poly "")
(setq newcloud (entlast))
(entmod (subst '(43 . 1 ;|new global width of line| (assoc 43 (setq newcloud (entget newcloud))) newcloud))
(princ)
)
实际上这是一朵很好的云
我的应用程序在autocad中没有revcloud命令的时候看到了曙光。它为我节省了很多工作（但也带来了很多乐趣）
谢谢你的贡献
gr.Rlx
p、 快速重写！你是什么，斯皮蒂·冈萨雷斯？
谢谢，我很高兴我能贡献自己的力量，通常我是那个提问的人。
页:
[1]
2