[教学]：从Autolisp到vlisp的转换

秋枫

许多人以为activex方式很麻烦。
很简单。
看下面的代码，从现在开始，可以告别entget，不用记dxf组码了。

2. 
   
3. [FONT=courier new]
   
4. (defun point->list (point)
   
5.   (vlax-safearray->list (vlax-variant-value point))
   
6. )
   
7. 
   
8. (defun c:test()
   
9.   (setq line (car (entsel)))
   
10.   (setq line (vlax-ename->vla-object line))
    
11.   (setq objectname (vla-get-objectname line))
    
12.   (setq startpoint (vla-get-startpoint line))
    
13.   (setq endpoint (vla-get-endpoint line))
    
14.   (setq layername (vla-get-layer line))
    
15.   (setq len (vla-get-length line))
    
16.   (setq thickness (vla-get-thickness line))
    
17. 
    
18.   (princ "\nObject Name: ")(princ objectname)
    
19.   (princ "\nStart Point: ")(princ (point->list startpoint))
    
20.   (princ "\nEnd Point:   ")(princ (point->list endpoint))
    
21.   (princ "\nLayer:       ")(princ layername)
    
22.   (princ "\nLine Length: ")(princ len)
    
23.   (princ "\nThickness:   ")(princ thickness)
    
24. 
    
25.   (princ)
    
26. )
    
27. [/FONT]

<br /> [FONT=courier new]<br /> (defun point->list (point)<br />   (vlax-safearray->list (vlax-variant-value point))<br /> )<br /> <br /> (defun c:test()<br />   (setq line (car (entsel)))<br />   (setq line (vlax-ename->vla-object line))<br />   (setq objectname (vla-get-objectname line))<br />   (setq startpoint (vla-get-startpoint line))<br />   (setq endpoint (vla-get-endpoint line))<br />   (setq layername (vla-get-layer line))<br />   (setq len (vla-get-length line))<br />   (setq thickness (vla-get-thickness line))<br /> <br />   (princ "\nObject Name: ")(princ objectname)<br />   (princ "\nStart Point: ")(princ (point->list startpoint))<br />   (princ "\nEnd Point:   ")(princ (point->list endpoint))<br />   (princ "\nLayer:       ")(princ layername)<br />   (princ "\nLine Length: ")(princ len)<br />   (princ "\nThickness:   ")(princ thickness)<br /> <br />   (princ)<br /> )<br /> [/FONT]