索引程序请帮忙看看怎么不对啊

szx025

2. (defun c:tbsy()
   
3. (princ "【欢迎使用，程序命令为(圈索引)：tbsy】")
   
4. (setq oldcmdecho (getvar "cmdecho"))
   
5. (setq oldosmode (getvar "osmode"))
   
6. (setvar "cmdecho" 0)
   
7. (setvar "osmode" 16417)
   
8. (command "layer" "m" "索引图层" "c" "7" "" "lt" "CONTINUOUS" "" "p" "n" "" "");索引图层
   
9. (setq pt1 (getpoint "\n索引区域中心点位置:"))
   
10. (setq pt2 (getpoint pt1 "\n索引线转折点:"))
    
11. (command "line" pt1 pt2 "")
    
12. (setq l_ast1 (entlast))
    
13. (command "change" l_ast1 "" "p" "c" 3 "" )
    
14. (setvar "ORTHOMODE" 1)
    
15. (setq pt5 (getpoint pt2 "\n索引符号位置:"))
    
16. (setq k (angle pt2 pt5))
    
17. (setq pt3 (polar pt2 k 2200))
    
18. (setq pt4 (polar pt3 k 100))
    
19. (command "line" pt2 pt4 ""))
    
20. (setq l_ast (entlast))
    
21. (command "change" l_ast "" "p" "c" 3 "" )
    
22. (setvar "ORTHOMODE" 0)
    
23. (setq pt1_mid (mid_pt pt3 pt4))
    
24. (command "circle" pt3 pt4)
    
25. (setq l_ast (entlast))
    
26. (command "change" l_ast "" "p" "c" 3 "" )
    
27. (setq t1 (getstring "\n索引代号："))
    
28. (setq t2 (getstring "\n索引图纸编号："))
    
29. (command "style" "TSSD_Bold" "tssdeng2,china" "0" "1.0" "0" "" "" "")
    
30. (command "-style" "TSSD_Bold" "" 0 1 0 "n" "n" "n")
    
31. (setq pt7 (polar pt1_mid (* pi 0.5) 200))
    
32. (command "-text" "j" "m" pt7 350 0 t1)
    
33. (setq pt7 (polar pt1_mid (* pi -0.5) 210))
    
34. (command "-text" "j" "m" pt7 350 0 t2)
    
35. (setq pt1_mid (mid_pt pt2 pt3)
    
36.       p4   (polar pt1_mid (* 0.5 pi) 100) ;;文字起点
    
37.       )
    
38. (setq str "TB2012-1")
    
39. (command "text" "j" "c" "non" p4 300 0 str)
    
40. (command "-style" "TSSD_Bold" "" 0 75 0 "n" "n" "n")
    
41. (setvar "cmdecho" oldcmdecho)
    
42. (setvar "osmode" oldosmode)
    
43. (setvar "PLINEWID" 0)
    
44. (setvar "AUTOSNAP" 61)
    
45. (print)
    
46. )
    

(defun c:tbsy()<br /> (princ "【欢迎使用，程序命令为(圈索引)：tbsy】")<br /> (setq oldcmdecho (getvar "cmdecho"))<br /> (setq oldosmode (getvar "osmode"))<br /> (setvar "cmdecho" 0)<br /> (setvar "osmode" 16417)<br /> (command "layer" "m" "索引图层" "c" "7" "" "lt" "CONTINUOUS" "" "p" "n" "" "");索引图层<br /> (setq pt1 (getpoint "\n索引区域中心点位置:"))<br /> (setq pt2 (getpoint pt1 "\n索引线转折点:"))<br /> (command "line" pt1 pt2 "")<br /> (setq l_ast1 (entlast))<br /> (command "change" l_ast1 "" "p" "c" 3 "" )<br /> (setvar "ORTHOMODE" 1)<br /> (setq pt5 (getpoint pt2 "\n索引符号位置:"))<br /> (setq k (angle pt2 pt5))<br /> (setq pt3 (polar pt2 k 2200))<br /> (setq pt4 (polar pt3 k 100))<br /> (command "line" pt2 pt4 ""))<br /> (setq l_ast (entlast))<br /> (command "change" l_ast "" "p" "c" 3 "" )<br /> (setvar "ORTHOMODE" 0)<br /> (setq pt1_mid (mid_pt pt3 pt4))<br /> (command "circle" pt3 pt4)<br /> (setq l_ast (entlast))<br /> (command "change" l_ast "" "p" "c" 3 "" )<br /> (setq t1 (getstring "\n索引代号："))<br /> (setq t2 (getstring "\n索引图纸编号："))<br /> (command "style" "TSSD_Bold" "tssdeng2,china" "0" "1.0" "0" "" "" "")<br /> (command "-style" "TSSD_Bold" "" 0 1 0 "n" "n" "n")<br /> (setq pt7 (polar pt1_mid (* pi 0.5) 200))<br /> (command "-text" "j" "m" pt7 350 0 t1)<br /> (setq pt7 (polar pt1_mid (* pi -0.5) 210))<br /> (command "-text" "j" "m" pt7 350 0 t2)<br /> (setq pt1_mid (mid_pt pt2 pt3)<br />       p4   (polar pt1_mid (* 0.5 pi) 100) ;;文字起点 <br />       ) <br /> (setq str "TB2012-1")<br /> (command "text" "j" "c" "non" p4 300 0 str)<br /> (command "-style" "TSSD_Bold" "" 0 75 0 "n" "n" "n")<br /> (setvar "cmdecho" oldcmdecho)<br /> (setvar "osmode" oldosmode)<br /> (setvar "PLINEWID" 0)<br /> (setvar "AUTOSNAP" 61)<br /> (print)<br /> )<br />

请帮忙看看怎么不对啊

szx025

(defun mid_pt (a b)
(mapcar
'(lambda (a b) (/ (+ a b) 2))
a
b
)
)
漏了一个这个，补上

笨笨熊007

你要改一改，不然这个图层是非打印图层，因为这个程序是那天我发群里的，当时没有注意，图层设置成非打印了，我又加了两个命令。