本人刚学LISP，做的小程序

xiangzanyang

求两圆公切线的小程序，请大家看看！我想请问一个问题，怎么把在最后把LISP编出的图型变成块啊，我用(command "block" neiqie "w" a "")怎么不行啊！block命令要怎样用呢！

zhynt

还是定义成命令使用较方便
即将(defun neipie ()......)改成(defun c:neiqie ()......)

ZZXXQQ

mandala

2. ;;子程序，将一个选择集中的物体原地制成匿名块。
   
3. ;;参数：ss：选择集。
   
4. ;;例：(makeblock (ssget))
   
5. 
   
6. (defun makeblock (ss / holdecho holdblip a blkref)
   
7.   (setq holdecho (getvar "cmdecho"))
   
8.   (setq holdblip (getvar "blipmode"))
   
9.   (setvar "cmdecho" 0)
   
10.   (setvar "blipmode" 0)
    
11.   (setq a (rtos (* (getvar "CDATE") 1E8)))
    
12.   (command "_.BLOCK" a "0,0" ss "")
    
13.   (command "_.INSERT" a "@" "" "" "")
    
14.   (setq blkref (vlax-ename->vla-object (entlast)))
    
15.   (vla-put-name
    
16.     (vla-item (vla-get-blocks
    
17.     (vla-get-activedocument (vlax-get-acad-object))
    
18.         ) ;_ 结束vla-get-blocks
    
19.         (vla-get-name blkref)
    
20.     ) ;_ 结束vla-item
    
21.     "*U"
    
22.   ) ;_ 结束vla-put-name
    
23.   (vlax-release-object blkref)
    
24.   (setvar "blipmode" holdblip)
    
25.   (setvar "cmdecho" holdecho)
    
26.   (command "_.undo" "_end")
    
27.   (princ)
    
28. ) ;_ 结束defun
    

;;子程序，将一个选择集中的物体原地制成匿名块。<br /> ;;参数：ss：选择集。<br /> ;;例：(makeblock (ssget))<br /> <br /> (defun makeblock (ss / holdecho holdblip a blkref)<br />   (setq holdecho (getvar "cmdecho"))<br />   (setq holdblip (getvar "blipmode"))<br />   (setvar "cmdecho" 0)<br />   (setvar "blipmode" 0)<br />   (setq a (rtos (* (getvar "CDATE") 1E8)))<br />   (command "_.BLOCK" a "0,0" ss "")<br />   (command "_.INSERT" a "@" "" "" "")<br />   (setq blkref (vlax-ename->vla-object (entlast)))<br />   (vla-put-name<br />     (vla-item (vla-get-blocks<br />     (vla-get-activedocument (vlax-get-acad-object))<br />         ) ;_ 结束vla-get-blocks<br />         (vla-get-name blkref)<br />     ) ;_ 结束vla-item<br />     "*U"<br />   ) ;_ 结束vla-put-name<br />   (vlax-release-object blkref)<br />   (setvar "blipmode" holdblip)<br />   (setvar "cmdecho" holdecho)<br />   (command "_.undo" "_end")<br />   (princ)<br /> ) ;_ 结束defun<br />