帮助：Lisp绘制pline acr

ttray33y · 发表于 2022-7-5 22:34:55

李是你的人类？
不，真的！。。

vernonlee · 发表于 2022-7-5 22:38:27

O、 M.G。

Tharwat&Lee，你们太棒了

vernonlee · 发表于 2022-7-5 22:41:03

你好，hanhphuc

我没有意识到有这样一个命令来取消修订云。

但你是对的，我需要在decurve之前移动到0,0,0。为什么？

编辑

我测试了Tharwat，Lee的lisp&pedit decurve命令（谢谢hanhphuc），所有这些都给了我所需要的。

当然，Tharwat和Lee的Lisp程序让它变得更加简单高效

谢谢你们的帮助。

hanhphuc · 发表于 2022-7-5 22:45:11

复制=创建重复项，取消“last”曲线，这样就不需要重新选择
Tharwat&Lee是高级编码
为什么不自己练习新手风格的编码呢
或者简单地对其进行卸载（宏？）

copy


[color="red"](defun c:doit ()[/color]
(command "_copy" "si" "\""\" "") ; copy the revcloud
(command "_pasteori" "0,0,0") ; paste to origin 
(command "_PEDIT" "l" "D" "") ; decurve the "cloned revcloud"
[color="red"])[/color]