[试用]：详图索引标注lsp

梦断江南

2. 
   
3. ;xtsy=====详图索引;文字+[索引号]-----------lxx.2001.5;;;ok
   
4. (defun c:xtsy ( )
   
5. (princ "\nxtsy=====详图索引;文字+[索引号]-----------lxx.2001.5")
   
6. (setq oldos (getvar "osmode")
   
7.       oldot (getvar "orthomode")
   
8.       oldbl (getvar "blipmode"))
   
9. (setvar "osmode" 0)
   
10. (setvar "blipmode" 0)
    
11. (if (not syblk) (setq syblk "sy"))
    
12. (setq txth 400 txtwsc 0.75);;;字高,高宽比
    
13. (setq pt1 (getpoint "\n引出点:")
    
14.       pt2 (getpoint pt1 "\n标注起点:"))
    
15. (command "pline" pt1 "w" "0" "0" pt2)
    
16. (setvar "orthomode" 1)(princ "\nok")
    
17. (setq pt3 (getpoint pt2 "\n标注终点:"))
    
18. (if (< (distance pt2 pt3) 1000)
    
19.   (setq pt3 (polar pt2 (angle pt2 pt3) 1000))
    
20. )
    
21. (command pt3 "")
    
22. (if (> (car pt3) (car pt2))
    
23.     (setq bzpt pt3)
    
24.     (setq bzpt pt2)
    
25. )
    
26. (setq blkpt (polar bzpt PI 500)       ;;块插入点
    
27.       txtpt (polar (polar bzpt PI (+ 1000 100)) (/ PI 2) 50);;文字标注点.对齐br(右下)
    
28. )
    
29. (setq sytxt (getstring "\nC-词库/索引文字<nil>:"))
    
30. (command "text" "j" "br" txtpt "500" "0" sytxt)
    
31. (setq syy (getstring "\n索引页号:");;块属性
    
32.       syh (getstring "\n索引号:")
    
33. )
    
34. (if (= "C" (strcase sytxt))
    
35.     (princ "\n暂时不提供此功能");;待完成
    
36. )
    
37. 
    
38. (command "insert" syblk "non" blkpt "100" "100" "0" syy syh)
    
39. (setvar "osmode" oldos)
    
40. (setvar "orthomode" oldot)
    
41. (setvar "blipmode" oldbl)
    
42. (princ)
    
43. )
    
44. (princ "\nxtsy=====详图索引;文字+[索引号]-----------lxx.2001.5")(princ)
    
45. 
    

<br /> ;xtsy=====详图索引;文字+[索引号]-----------lxx.2001.5;;;ok<br /> (defun c:xtsy ( )<br /> (princ "\nxtsy=====详图索引;文字+[索引号]-----------lxx.2001.5")<br /> (setq oldos (getvar "osmode")<br />       oldot (getvar "orthomode")<br />       oldbl (getvar "blipmode"))<br /> (setvar "osmode" 0)<br /> (setvar "blipmode" 0)<br /> (if (not syblk) (setq syblk "sy"))<br /> (setq txth 400 txtwsc 0.75);;;字高,高宽比<br /> (setq pt1 (getpoint "\n引出点:")<br />       pt2 (getpoint pt1 "\n标注起点:"))<br /> (command "pline" pt1 "w" "0" "0" pt2)<br /> (setvar "orthomode" 1)(princ "\nok")<br /> (setq pt3 (getpoint pt2 "\n标注终点:"))<br /> (if (< (distance pt2 pt3) 1000)<br />   (setq pt3 (polar pt2 (angle pt2 pt3) 1000))<br /> )<br /> (command pt3 "")<br /> (if (> (car pt3) (car pt2))<br />     (setq bzpt pt3)<br />     (setq bzpt pt2)<br /> )<br /> (setq blkpt (polar bzpt PI 500)       ;;块插入点<br />       txtpt (polar (polar bzpt PI (+ 1000 100)) (/ PI 2) 50);;文字标注点.对齐br(右下)<br /> )<br /> (setq sytxt (getstring "\nC-词库/索引文字<nil>:"))<br /> (command "text" "j" "br" txtpt "500" "0" sytxt)<br /> (setq syy (getstring "\n索引页号:");;块属性<br />       syh (getstring "\n索引号:")<br /> )<br /> (if (= "C" (strcase sytxt))<br />     (princ "\n暂时不提供此功能");;待完成<br /> )<br /> <br /> (command "insert" syblk "non" blkpt "100" "100" "0" syy syh)<br /> (setvar "osmode" oldos)<br /> (setvar "orthomode" oldot)<br /> (setvar "blipmode" oldbl)<br /> (princ)<br /> )<br /> (princ "\nxtsy=====详图索引;文字+[索引号]-----------lxx.2001.5")(princ)<br /> <br />

配套dwg块

lsjjm

不好意思, 什么是详图索引啊?

ydf7332462

详图类似大样,索引是标注详图来自在那一（标准）图号，一般位与圆圈中线的上行，下一行该图号的第几图

bridgewind

感谢，比较好，但需修改！

li809

请重新上传附件吧