Lisp：将多段线转换为Clo

mfadzli · 发表于 2022-7-5 20:23:02

你好

我需要一个lisp将多段线转换为云，如下图所示。

希望有人能帮我。：）

登录/注册后可看大图

Tharwat · 发表于 2022-7-5 20:35:14

使用REVCLOUD命令，尽管该命令不会对该形状进行精确转换。

BrianTFC · 发表于 2022-7-5 20:38:50

使用revcloud函数时，您所要做的就是在使用revcloud之前先选择您想要的线型，如果您想要使用的不在ACAD提供的线型列表中，那么您可以拥有它。

BIGAL · 发表于 2022-7-5 20:45:16

只需创建一个新线型，然后更改其属性，搜索生成线型

hanhphuc · 发表于 2022-7-5 20:50:08

定制指南
参考指南修改示例

copy


*DOUBLE_ll,CLOUD --- ll --- ll ---
A,2.0,-0.30,["ll",Standard,S=1.0,R=0.0,X=-0.0,Y=-0.5],-1.0

为了获得更好的效果，请使用罗马语。shx字体

AIberto · 发表于 2022-7-5 20:57:20

嗨，亲爱的朋友，圣诞快乐！
可以用编程来解决这个问题吗？
http://www.cadtutor.net/forum/showthread.php?90217-选择问题

ttray33y · 发表于 2022-7-5 21:07:47

我忘了这是从哪里得到的，但这会自动将创建的多段线转换为云。

copy

;routine to create pline-cloud
(defun c:plc (/ *error* l1 l2)
(setq o_ortho (getvar "orthomode"))
(setvar "orthomode" 1)
(command "-layer" "set" "0" "")
   (defun *error* (msg)
   (setvar "cmdecho" 1)
   (if (= msg "")
       (princ "\nFunction Complete.")
       (princ "\nError or Esc Pressed!")
   ) 
   (princ)
   )
   (setvar "cmdecho" 0)
   (prompt "\nDraw Polyline.")
   (command "_pline")
   (while (> (getvar "cmdactive") 0) (command pause))
   (setq l1 (entlast))
   (command "_pedit" l1 "c" "")
   (setq l2 (entlast))
   (prompt "\nReverse Cloud Direction? [Yes/No]: ")
   (command "_revcloud" "o" l2 pause "")
(command "pedit" "l" "w" "0.5" "")
(setvar "orthomode" o_ortho)
   (*error* "")
   (princ)
)
(princ "\n Type PLC to run.")