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