[编程交流] Lisp mod语言

[复制链接]

lonie

2 主题	12 帖子	10 银币

初来乍到

Rank: 1

铜币: 10

发消息

发表于 2022-7-6 13:27:27 | 显示全部楼层

最后，它开始工作，在对齐后插入副本。
为了结束这个话题，我展示了这个变化。

谢谢

;;;------------------------------------------------------------------------------
（defun moveStep（）
（重复（长度pL）
（setq p3（第n j pL））
（setq pa3（vlax曲线getParamAtPoint cur p3））
（如果（>=（*标志pa3）（*标志pa1））
（程序
（命令“circle”p3 r）
（setq ipL（ints cur（entlast）））
（如果（>（长度ipL）1）
（setq p4（getnearP p1（car ipL）（cadr ipL）））
（setq p4（car ipL））
)
（命令“erase”（entlast）“”）
（命令“move”ob“”p1 p3）
（命令“旋转”ob“”p3（rtd（-（角度p3 p4）ag）））
（setq p1 p3 ag（角度p3 p4））
（命令“copy”ob“”p1 p3）；块对齐后插入的副本
（命令“延迟”100）
)
)
（setq j（1+j））
)
)
;;;===================主要================

使用道具举报