请问关于vla-offset函数的问题，新手求助

aXioooG

我新手一个，我用vla-offset函数，算是复制了一条直线，
现在需要从pt1到这条offset创建的直线的一个端点连起来，
该如何获取这个端点的参数呢，用(vlax-get osl 'startpoint)提示错误
参数类型错误: VLA-OBJECT (#<VLA-OBJECT IAcadLine 000001d640c92c08>)


感谢感谢！！

(defun c:ostest ()
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq mds (vla-get-modelspace doc))

  (setq pt1 (vlax-3d-point '(0 0 0)))
  (setq pt2 (vlax-3d-point '(10 10 0)))

  (setq l1 (vla-addline mds pt1 pt2))
  (setq osline (vla-offset l1 20))
  (setq osl (vlax-safearray->list (vlax-variant-value osline)))  

  ;; 请问如何取这个vla-offset创建的osl或者说osline的端点参数？能实现吗？
)

xyp1964

1. (defun c:tt ()
   
2.   (vl-load-com)
   
3.   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   
4.   (setq mds (vla-get-modelspace doc))
   
5.   (setq pt1 (vlax-3d-point '(0 0 0)))
   
6.   (setq pt2 (vlax-3d-point '(10 10 0)))
   
7.   (setq l1 (vla-addline mds pt1 pt2))
   
8.   (vla-offset l1 20)
   
9.   (setq s1 (entlast))
   
10.   (setq p1 (vlax-curve-getStartPoint s1)
    
11.         p2 (vlax-curve-getEndPoint s1)
    
12.   )
    
13.   (princ)
    
14. )

(defun c:tt ()<br />   (vl-load-com)<br />   (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />   (setq mds (vla-get-modelspace doc))<br />   (setq pt1 (vlax-3d-point '(0 0 0)))<br />   (setq pt2 (vlax-3d-point '(10 10 0)))<br />   (setq l1 (vla-addline mds pt1 pt2))<br />   (vla-offset l1 20)<br />   (setq s1 (entlast))<br />   (setq p1 (vlax-curve-getStartPoint s1)<br />         p2 (vlax-curve-getEndPoint s1)<br />   )<br />   (princ)<br /> )

aXioooG

xyp1964 发表于 2025-2-19 17:16

大神大神！ 感谢感谢！
实在是太感谢了！

13869574130

大神大神！ 感谢感谢！
实在是太感谢了！

yshf

2. ; ;; 如此也可以
   
3. (defun c:ostest ()
   
4.   (vl-load-com)
   
5.   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   
6.   (setq mds (vla-get-modelspace doc))
   
7.   (setq pt1 (vlax-3d-point '(0 0 0)))
   
8.   (setq pt2 (vlax-3d-point '(10 10 0)))
   
9.   (setq l1 (vla-addline mds pt1 pt2))
   
10.   (setq new (car (vlax-invoke l1 "offset" 20)))
    
11.   (setq p1 (vlax-get new "StartPoint"))
    
12.   (setq p2 (vlax-get new "EndPoint"))
    
13.   (princ)
    
14. )

; ;; 如此也可以<br /> (defun c:ostest ()<br />   (vl-load-com)<br />   (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />   (setq mds (vla-get-modelspace doc))<br />   (setq pt1 (vlax-3d-point '(0 0 0)))<br />   (setq pt2 (vlax-3d-point '(10 10 0)))<br />   (setq l1 (vla-addline mds pt1 pt2))<br />   (setq new (car (vlax-invoke l1 "offset" 20)))<br />   (setq p1 (vlax-get new "StartPoint"))<br />   (setq p2 (vlax-get new "EndPoint"))<br />   (princ)<br /> )

aXioooG

yshf 发表于 2025-2-20 08:55

感谢感谢！又学了一招！