为了结束这个话题，我展示了这个变化。
谢谢
;;;------------------------------------------------------------------------------
（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））
)
)
;;;===================主要================
页:
1
[2]