引线标注

newer

1. (defun c:XZ (/)
   
2.   (setq obm (getvar "blipmode"))
   
3.   (setq oom (getvar "osmode"))
   
4.   (setq andr (getvar "angdir"))
   
5.   (setvar "angdir" 1)
   
6.   (setq andb (getvar "angbase"))
   
7.   (setvar "angbase" (/ pi 2))
   
8.   (setq aunt (getvar "aunits"))
   
9.   (setvar "aunits" 2)
   
10.   (setvar "dimaunit" 2)
    
11.   (setvar "dimadec" 4)
    
12. 
    
13.   (while
    
14.     (setq osmd (getvar "osmode"))
    
15.      (initget 1)
    
16.      (setq px (getpoint "\n click the point "))
    
17.      (setq osmd (getvar "osmode"))
    
18.      (initget 1)
    
19.      (setq pt (getpoint px "\n click for place for writing"))
    
20.      (setq y (cadr px))
    
21.      (setq x (car px))
    
22.      (setq z (last px))
    
23.      (if (null z)
    
24.        (setq z z)
    
25.      )
    
26.      (setq CH (getstring 1 "\n CHAINAGE:"))
    
27.      (setvar "osmode" 0)
    
28.      (setvar "textstyle" "standard")
    
29.      (setq
    
30.        dscrp (getstring
    
31.                1
    
32.                "\n description of the point(press enter for nothing):"
    
33.              )
    
34.      )
    
35.      (command "_qleader"
    
36.               px
    
37.               pt
    
38.               ""
    
39.               ""
    
40.               CH
    
41.               (strcat "E:" (rtos x 2 3))
    
42.               (strcat "N:" (rtos y 2 3))
    
43.               dscrp
    
44.               ""
    
45.               ""
    
46.      )
    
47.      (setq tds (entlast))
    
48.      (if (null sca)
    
49.        (setq sca 1)
    
50.      )
    
51.      (initget 6)
    
52.      (setq scan        (getreal
    
53.                   (strcat "\n enter scale factor<" (rtos sca 2 3) ">:")
    
54.                 )
    
55.      )
    
56.      (if scan
    
57.        (setq sca scan)
    
58.      )
    
59.      (command "scale" tds "" pt sca)
    
60.      (setvar "angbase" andb)
    
61.      (setvar "angdir" andr)
    
62.      (setvar "aunits" aunt)
    
63.      (setvar "osmode" osmd)
    
64. 
    
65.   )
    
66. )
    

(defun c:XZ (/)<br />   (setq obm (getvar "blipmode"))<br />   (setq oom (getvar "osmode"))<br />   (setq andr (getvar "angdir"))<br />   (setvar "angdir" 1)<br />   (setq andb (getvar "angbase"))<br />   (setvar "angbase" (/ pi 2))<br />   (setq aunt (getvar "aunits"))<br />   (setvar "aunits" 2)<br />   (setvar "dimaunit" 2)<br />   (setvar "dimadec" 4)<br /> <br />   (while<br />     (setq osmd (getvar "osmode"))<br />      (initget 1)<br />      (setq px (getpoint "\n click the point "))<br />      (setq osmd (getvar "osmode"))<br />      (initget 1)<br />      (setq pt (getpoint px "\n click for place for writing"))<br />      (setq y (cadr px))<br />      (setq x (car px))<br />      (setq z (last px))<br />      (if (null z)<br />        (setq z z)<br />      )<br />      (setq CH (getstring 1 "\n CHAINAGE:"))<br />      (setvar "osmode" 0)<br />      (setvar "textstyle" "standard")<br />      (setq<br />        dscrp (getstring<br />                1<br />                "\n description of the point(press enter for nothing):"<br />              )<br />      )<br />      (command "_qleader"<br />               px<br />               pt<br />               ""<br />               ""<br />               CH<br />               (strcat "E:" (rtos x 2 3))<br />               (strcat "N:" (rtos y 2 3))<br />               dscrp<br />               ""<br />               ""<br />      )<br />      (setq tds (entlast))<br />      (if (null sca)<br />        (setq sca 1)<br />      )<br />      (initget 6)<br />      (setq scan        (getreal<br />                   (strcat "\n enter scale factor<" (rtos sca 2 3) ">:")<br />                 )<br />      )<br />      (if scan<br />        (setq sca scan)<br />      )<br />      (command "scale" tds "" pt sca)<br />      (setvar "angbase" andb)<br />      (setvar "angdir" andr)<br />      (setvar "aunits" aunt)<br />      (setvar "osmode" osmd)<br /> <br />   )<br /> )<br />

Yruz

感谢分享，学到了

hh_lj007

测试、学习了，感谢楼主分享

yuren008

不错的，谢谢楼主分享。