vla-SendCommand用法例子

Lisphk

1. (vl-load-com)
   
2. (defun c:Example_SendCommand()
   
3.     ;; This example sends a command for evaluation to the AutoCAD command line
   
4.     ;; of a particular drawing
   
5.     (setq acadObj (vlax-get-acad-object))
   
6.     (setq doc (vla-get-ActiveDocument acadObj))
   
7. 
   
8.     ;; Create a Circle in the active drawing and
   
9.     ;; zoom to display the entire circle
   
10.     (vla-SendCommand doc (strcat "_circle 2,2,0 4 "))
    
11.     (vla-SendCommand doc (strcat "_zoom a "))
    
12.    
    
13.     ;; Refresh view
    
14.     (vla-Regen doc acAllViewports)
    
15.    
    
16.     (alert "A circle command has been sent to the command line of the current drawing.")
    
17. )
    

(vl-load-com)<br /> (defun c:Example_SendCommand()<br />     ;; This example sends a command for evaluation to the AutoCAD command line<br />     ;; of a particular drawing <br />     (setq acadObj (vlax-get-acad-object))<br />     (setq doc (vla-get-ActiveDocument acadObj))<br /> <br />     ;; Create a Circle in the active drawing and <br />     ;; zoom to display the entire circle<br />     (vla-SendCommand doc (strcat "_circle 2,2,0 4 "))<br />     (vla-SendCommand doc (strcat "_zoom a "))<br />    <br />     ;; Refresh view<br />     (vla-Regen doc acAllViewports)<br />    <br />     (alert "A circle command has been sent to the command line of the current drawing.")<br /> )<br />

kwok

支持一下，谢谢分享.

marting

在反应器里面，不允许使用命令，这时候用这个vla-sendcommand是必要的。

sicky111

谢谢楼主分享。

kqqt6236

给力。