求助插入多种图形块的命令如何汇总简化

184235521

因为平时工作需要插入图块种类比较多，同时需要调整插入块（图形+文字）的方向。因为块种类接近50种，再加上四个方向差不多有200个图块，下面就用一种类型的四个方向，求大神帮简化下代码。如果有更好的调整块方向思路指点，万分感谢。

2. (defun c:T1 ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq pt1 (getpoint "插入点:"))
   
5.   (command "insert" "*T1.dwg" pt1 1 0 k0)
   
6.   (setvar "CMDECHO" 1)
   
7.   (princ)
   
8. )
   
9. (defun c:T2 ()
   
10.   (setvar "cmdecho" 0)
    
11.   (setq pt1 (getpoint "插入点:"))
    
12.   (command "insert" "*T2.dwg" pt1 1 0 k0)
    
13.   (setvar "CMDECHO" 1)
    
14.   (princ)
    
15. )
    
16. (defun c:T3 ()
    
17.   (setvar "cmdecho" 0)
    
18.   (setq pt1 (getpoint "插入点:"))
    
19.   (command "insert" "*T3.dwg" pt1 1 0 k0)
    
20.   (setvar "CMDECHO" 1)
    
21.   (princ)
    
22. )
    
23. (defun c:T4 ()
    
24.   (setvar "cmdecho" 0)
    
25.   (setq pt1 (getpoint "插入点:"))
    
26.   (command "insert" "*T4.dwg" pt1 1 0 k0)
    
27.   (setvar "CMDECHO" 1)
    
28.   (princ)
    
29. )

(defun c:T1 ()<br />   (setvar "cmdecho" 0)<br />   (setq pt1 (getpoint "插入点:"))<br />   (command "insert" "*T1.dwg" pt1 1 0 k0)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br /> (defun c:T2 ()<br />   (setvar "cmdecho" 0)<br />   (setq pt1 (getpoint "插入点:"))<br />   (command "insert" "*T2.dwg" pt1 1 0 k0)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br /> (defun c:T3 ()<br />   (setvar "cmdecho" 0)<br />   (setq pt1 (getpoint "插入点:"))<br />   (command "insert" "*T3.dwg" pt1 1 0 k0)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br /> (defun c:T4 ()<br />   (setvar "cmdecho" 0)<br />   (setq pt1 (getpoint "插入点:"))<br />   (command "insert" "*T4.dwg" pt1 1 0 k0)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )

上面就是图块T  它有四个方向分别对应T1 T2 T3 T4  如下图（意思就是这个一个块，为了调整方向用了四个命令代码就比较长。有没有更简洁的代码去实现）

start4444

插入块不是可以调整角度的吗，只要一个块 T 就好了
(command "insert" "T.dwg" pt1 1 1 角度)

xiangganglv

画一个矩形，取矩形中点插入图块。这是我的思路。