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

Lisp：将多段线转换为Clo

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

 
希望有人能帮我。：）
https://www.cadtutor.net/forum/images/misc_cadtutor/pencil.png

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

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

*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

我忘了这是从哪里得到的，但这会自动将创建的多段线转换为云。
 
;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? : ")
   (command "_revcloud" "o" l2 pause "")
(command "pedit" "l" "w" "0.5" "")
(setvar "orthomode" o_ortho)
   (*error* "")
   (princ)
)
(princ "\n Type PLC to run.")

mfadzli 发表于 2022-7-5 21:13:03

谢谢韩，谢谢大家。。

hanhphuc 发表于 2022-7-5 21:19:05

sama2活跃在论坛欢迎大家新年快乐：）

mfadzli 发表于 2022-7-5 21:28:14

 
哇！祝你新年快乐。。
页: [1]
查看完整版本: Lisp：将多段线转换为Clo