vlax函数突然不是wo
你好我知道这听起来像有线电视，但我昨天运行的脚本今天无法运行
例如，此脚本
(Defun c:demo ()
(vl-load-com)
(if (and (setq pline (car (entsel "\nSelect Polyline:")))
(eq (cdr (assoc 0 (entget pline))) "LWPOLYLINE")
(setq int (getdist "\nEnter Interval:"))
(setq in int)
)
(while (Setq pt (vlax-curve-getPointAtDist pline int))
(setq ppt (vlax-curve-getparamatpoint pline pt))
(vlax-invoke
(vlax-ename->vla-object pline)
'AddVertex
(1+ (fix ppt))
(list (car pt) (Cadr pt))
)
(setq int (+ int in))
)
)
)
今天喊：
; 错误：没有函数定义：VLAX-CURVE-GETPOINTATDIST
可能是我发现的线索，当我重新启动autocad并尝试再次加载该代码时，我收到警告：
分配给受保护符号acNative。输入中断循环？
如果我说是，它不会识别vlax，但如果我说N，它会工作。
这有什么意义吗？ （vl load com） 试试这句话
(Setq pt (vlax-curve-getClosestPointTo pline (vlax-curve-getPointAtDist pline int)))
注意：确保变量“int”不超过end参数，并在另一个名称上重命名“int”
页:
[1]