怎样取得弧标

liuyibin7

各位大神请帮忙看一下这组代码哪时出了问题：
(defun c:CV()
   (vl-load-com)
   (setq aca(vlax-get-acad-object))
   (setq dwg(vla-get-activedocument aca))
   (setq msp(vla-get-modelspace dwg))
   (setq en(car(entsel "请选择弧:")))
   (setq xx(vlax-ename->vla-object en))
   (setq bu (vlax-curve-getStartPoint xx))
   (setq bu1 (vlax-curve-getendpoint xx))
   (setq bbb(vla-addline msp bu bu1))
   (vla-zoomextents aca)
   (princ "已完成！")
  )

xyp1964

2. (defun c:tt ()
   
3.   (vl-load-com)
   
4.   (setq en  (car (entsel "请选择弧: "))
   
5.         ao  (vlax-get-acad-object)
   
6.         ad  (vla-get-ActiveDocument ao)
   
7.         mp  (vla-get-ModelSpace ad)
   
8.         ob  (vlax-ename->vla-object en)
   
9.         bu  (vlax-curve-getStartPoint ob)
   
10.         bu  (vlax-3D-point bu)
    
11.         bu1 (vlax-curve-getendpoint ob)
    
12.         bu1 (vlax-3D-point bu1)
    
13.         bbb (vla-addline mp bu bu1)
    
14.   )
    
15.   (princ)
    
16. )

(defun c:tt ()<br />   (vl-load-com)<br />   (setq en  (car (entsel "请选择弧: "))<br />         ao  (vlax-get-acad-object)<br />         ad  (vla-get-ActiveDocument ao)<br />         mp  (vla-get-ModelSpace ad)<br />         ob  (vlax-ename->vla-object en)<br />         bu  (vlax-curve-getStartPoint ob)<br />         bu  (vlax-3D-point bu)<br />         bu1 (vlax-curve-getendpoint ob)<br />         bu1 (vlax-3D-point bu1)<br />         bbb (vla-addline mp bu bu1)<br />   )<br />   (princ)<br /> )

liuyibin7

你的真简洁，非常感谢！

llsheng_73

1. (defun c:CV()
   
2.    (vl-load-com)
   
3.    (setq aca(vlax-get-acad-object))
   
4.    (setq dwg(vla-get-activedocument aca))
   
5.    (setq msp(vla-get-modelspace dwg))
   
6.    (setq en(car(entsel "请选择弧:")))
   
7.    (setq xx(vlax-ename->vla-object en))
   
8.    (setq bu (vla-get-startpoint xx));;;vlax-curve-getStartPoint得到的结果需要进行了转换,这样可以不进行转换了，但多线段等别的图元对象不适用，下同
   
9.    (setq bu1 (vla-get-endpoint xx))
   
10.    (setq bbb(vla-addline msp bu bu1))
    
11.    (vla-zoomextents aca)
    
12.    (princ "已完成！")
    
13.   )

(defun c:CV()<br />    (vl-load-com)<br />    (setq aca(vlax-get-acad-object))<br />    (setq dwg(vla-get-activedocument aca))<br />    (setq msp(vla-get-modelspace dwg))<br />    (setq en(car(entsel "请选择弧:")))<br />    (setq xx(vlax-ename->vla-object en))<br />    (setq bu (vla-get-startpoint xx));;;vlax-curve-getStartPoint得到的结果需要进行了转换,这样可以不进行转换了，但多线段等别的图元对象不适用，下同<br />    (setq bu1 (vla-get-endpoint xx))<br />    (setq bbb(vla-addline msp bu bu1))<br />    (vla-zoomextents aca)<br />    (princ "已完成！")<br />   )