社区 › Auto Lisp › 帮助：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是高级编码
为什么不自己练习新手风格的编码呢
或者简单地对其进行卸载（宏？）

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

vernonlee 发表于 2022-7-5 22:47:40

 
..................................

Tharwat 发表于 2022-7-5 22:52:48

 
非常欢迎你。

Lee Mac 发表于 2022-7-5 22:57:26

 
 
 
非常欢迎vernonlee，我很高兴它能帮上忙！

查看完整版本: 帮助：Lisp绘制pline acr