我正在创建一个lisp，它使用Vlisp绘制样条曲线。
下面是我目前的代码，它并没有完全按照我想要的方式工作。
根据addspline函数，点3（P3）和点4（p4）应该是端点相切和起点相切。
- [/font]
- [font=Tahoma](SETQ P1 (GETPOINT "\nSpecify Start point"))
- (SETQ P2 (GETPOINT P1 "\nSpecify End point"))
- (SETQ P3 (GETPOINT P1 "\nSpecify Start Tangency point"))
- (SETQ P4 (GETPOINT P2 "\nSpecify End Tangency point"))[/font]
- [font=Tahoma](setq spc (vlax-get-property (vla-get-ActiveDocument (vlax-get-acad-object))
- (if (= 1 (getvar 'CVPORT))
- 'PaperSpace
- 'ModelSpace)))[/font]
- [font=Tahoma](setq mld (vlax-invoke spc 'addspline (append p1 p2) p3 p4))[/font]
- [font=Tahoma]
有谁知道使用dxf或visual lisp绘制样条曲线的更短或更有效的方法吗？关于每种方法的任何其他信息都会很有用。
当做
CadWarrior公司 | 
置顶卡
