[LISP函数]：为了au的2个积分，吐血把收藏放出！

xbaron

这个是本人觉得目前最适合本人的坐标标注程序！虽然网上标注程序多如牛毛，zbbz bzd 蜜蜂加上编程爱好者编写的，首先有些标注中含有=，有些标注是块编辑不便，有些标注字体图层不易更改，旋转角度不便，本人是搞总图的，坐标标注应用繁多，为了出图漂亮标注角度调整很重要，这个标注最大优点就是可以方便控制标注的角度，公布lsp里面字体 宽高比 标注比例大家看着调整吧！
数字标注先输入xy1定义字高，以后输入xy即可
测量标注先输入bz1定义字高，以后输入bz即可

感谢J.X.long(虽不认识)，但本人解密他的源程序基础上改进而得，希望他不要介意！

还收藏不少程序,等中午在续!

续：修改字高程序，喜欢它只应为他简单，简约而不简单（不要拍我 ！

楼下几位反映下载不了，我也没办法！不过我已经把源码发了，你们可以copy就行了！~

再续：本人收集的几个工具箱：贱人工具箱 晓东工具箱 ay工具箱 大侠xyp编的test工具箱 其实市面的工具箱不计其数 eachy的ea工具箱、常青藤、启慧等，我只是把我常用的发出来，如果对其他有兴趣的可以自行下载或者与本人联系！QQ：26031915，发了几次附件奈何网络太滥，算了留下公共邮箱大家去下吧，不要改密码！usedbydownload@163.com  密码 123456

三续：坐标标注集！大家可以比较下，都是最新版本~蜜蜂、cjp、bzd、还有就是我第一次发的lsp！这几位都是江湖上响当当的人物物，全部收藏至于其他的感觉大同小异，楼下有好的也可共享交流下！

lmt112233

樓主請看看干嗎程序不能下載,謝謝!

xbaron

2. ;BZ-(X,Y)/(Y,X)----Ver3.0----J.X.long
   
3. (defun sty_Le ()            
   
4.      (setq hei (getreal "\n Enter text height/(2):"))
   
5.      (if (= hei nil) (setq hei 2) )
   
6.      (setq w_i 0.7)
   
7.      (command "style" "zjdz_lm" "zjdz-s,zjdz" "0.0" w_i "0" "" "" "")
   
8. )
   
9. (defun bzf1 ()
   
10.      (setq pt1 (getpoint "\n First point:"))
    
11.      (setq pt2 (getpoint "\n Second point:"))
    
12.      (command "line" pt1 pt2 nill)
    
13.      (setq n_l_ang (getangle pt2 "\n which way?/(0):"))
    
14.      (if (= n_l_ang nil) (setq n_l_ang 0) )
    
15. )
    
16. 
    
17. (defun bzf21 (rpt1 / )
    
18.      (setq pt1x (/ (car rpt1) 1000))
    
19.      (setq pt1y (/ (cadr rpt1) 1000))
    
20. )
    
21. 
    
22. (defun bzf22 (rpt1 / )
    
23.      (setq pt1x (/ (cadr rpt1) 1000))
    
24.      (setq pt1y (/ (car rpt1) 1000))
    
25. )
    
26. 
    
27. (defun bzf3 ( / te_s_p hei_jj)
    
28.      (setvar "DIMZIN" 0)
    
29.      (setq os (getvar "osmode"))
    
30.      (setvar "osmode" 0)
    
31.      (setq spt1x (strcat "X " (rtos pt1x 2 3)))
    
32.      (setq spt1y (strcat "Y " (rtos pt1y 2 3)))
    
33.      (setq pic2 (/ pi 2.0))
    
34.      (setq l_len (* (max (strlen spt1x) (strlen spt1y)) w_i hei))
    
35.      (setq l_len (- l_len (* w_i hei 0.6)))
    
36.      (setq pt3 (polar pt2 n_l_ang l_len))
    
37.      (command "line" pt2 pt3 nill)
    
38.      (if (and (> n_l_ang pic2) (<= n_l_ang (* pic2 3.0)))
    
39.          (progn (setq te_s_p pt3)
    
40.                 (setq n_l_ang1 (angle pt3 pt2))
    
41.          )
    
42.          (progn (setq n_l_ang1 (angle pt2 pt3))
    
43.                 (setq te_s_p (polar pt2 n_l_ang1 (* hei 0.4)))
    
44.          )
    
45.      )
    
46.      (setq n_l_angd (* (/ n_l_ang1 pi) 180.0))
    
47.      (setq hei_jj (* hei 0.2))
    
48. 
    
49.      (command "text"(polar te_s_p (+ n_l_ang1 pic2) hei_jj)
    
50.                     hei n_l_angd spt1x
    
51.      )
    
52.      (command "text"(polar te_s_p (- n_l_ang1 pic2) (+ hei_jj hei))
    
53.                     hei n_l_angd spt1y
    
54.      )
    
55.      (setvar "osmode" os)
    
56. )
    
57. 
    
58. (defun C:xy1 ( / pt1 pt2 pt3 pt1x pt1y spt1x spt1y n_l_angd
    
59.                pic2 l_s_p l_e_p o_l_ang n_l_ang l_len n_l_ang1 os)
    
60.    (sty_le)
    
61.    (bzf1)
    
62.    (bzf21 pt1)
    
63.    (bzf3)
    
64. )
    
65. 
    
66. (defun C:xy( / pt1 pt2 pt3 pt1x pt1y spt1x spt1y n_l_angd
    
67.                pic2 l_s_p l_e_p o_l_ang n_l_ang l_len n_l_ang1 os)
    
68.    (bzf1)
    
69.    (bzf21 pt1)
    
70.    (bzf3)
    
71. )
    
72. 
    
73. (defun C:bz1( / pt1 pt2 pt3 pt1x pt1y spt1x spt1y n_l_angd
    
74.                pic2 l_s_p l_e_p o_l_ang n_l_ang l_len n_l_ang1 os)
    
75.    (sty_le)
    
76.    (bzf1)
    
77.    (bzf22 pt1)
    
78.    (bzf3)
    
79. )
    
80. 
    
81. (defun C:bz( / pt1 pt2 pt3 pt1x pt1y spt1x spt1y n_l_angd
    
82.                pic2 l_s_p l_e_p o_l_ang n_l_ang l_len n_l_ang1 os)
    
83.    (bzf1)
    
84.    (bzf22 pt1)
    
85.    (bzf3)
    
86. )
    
87. 
    
88. (print  '( xy1 / xy / bz1 / bz ))
    
89. ;end
    
90. 
    
91. (defun *error*(st)
    
92.   (princ (strcat "Error: " st))
    
93.   (princ)
    
94. )
    
95. 
    
96. 字高源程序！
    
97. (defun C:zg(/ test ss len n en1 a oldr newr ent nn)
    
98.   (setvar "CMDECHO" 0)
    
99.   (setq test T nn 0)
    
100.   (while test
     
101.     (setq ss (ssadd))
     
102.     (setq ss (ssget))
     
103.     (if (= nil ss)
     
104.       (setq test nil)
     
105.       (progn
     
106.         (setq len (sslength ss))
     
107.         (setq n 1 s 1)
     
108.         (while (<= n len)
     
109.           (setq en1 (ssname ss (1- n)))
     
110.           (setq a (entget en1))
     
111.           (if  (= "TEXT" (cdr (assoc 0 a)))
     
112.             (progn
     
113.               (if (= s 1)
     
114.                 (progn
     
115.                   (setq oldr (cdr (assoc 40 a)))
     
116.                   (setq newr (getreal (strcat "\nNew high <" (rtos oldr 2 1) ">:")))
     
117.                   (if (= newr nil) (setq newr oldr))
     
118.                   (setq s nil)
     
119.                 )
     
120.               )
     
121.               (setq ent (subst (cons 40 newr) (assoc 40 a) a))
     
122.               (entmod ent)
     
123.               (setq nn (1+ nn))
     
124.             )
     
125.           )
     
126.           (setq n (1+ n))
     
127.         )
     
128.       )
     
129.     )
     
130.   )
     
131.   (princ (strcat (itoa nn) " changed !"))
     
132.   (princ)
     
133. )

;BZ-(X,Y)/(Y,X)----Ver3.0----J.X.long<br /> (defun sty_Le ()             <br />      (setq hei (getreal "\n Enter text height/(2):"))<br />      (if (= hei nil) (setq hei 2) )<br />      (setq w_i 0.7)<br />      (command "style" "zjdz_lm" "zjdz-s,zjdz" "0.0" w_i "0" "" "" "")<br /> )<br /> (defun bzf1 ()<br />      (setq pt1 (getpoint "\n First point:"))<br />      (setq pt2 (getpoint "\n Second point:"))<br />      (command "line" pt1 pt2 nill)<br />      (setq n_l_ang (getangle pt2 "\n which way?/(0):"))<br />      (if (= n_l_ang nil) (setq n_l_ang 0) )<br /> )<br /> <br /> (defun bzf21 (rpt1 / )<br />      (setq pt1x (/ (car rpt1) 1000))<br />      (setq pt1y (/ (cadr rpt1) 1000))<br /> )<br /> <br /> (defun bzf22 (rpt1 / )<br />      (setq pt1x (/ (cadr rpt1) 1000))<br />      (setq pt1y (/ (car rpt1) 1000))<br /> )<br /> <br /> (defun bzf3 ( / te_s_p hei_jj)<br />      (setvar "DIMZIN" 0) <br />      (setq os (getvar "osmode")) <br />      (setvar "osmode" 0) <br />      (setq spt1x (strcat "X " (rtos pt1x 2 3)))<br />      (setq spt1y (strcat "Y " (rtos pt1y 2 3)))<br />      (setq pic2 (/ pi 2.0))<br />      (setq l_len (* (max (strlen spt1x) (strlen spt1y)) w_i hei))<br />      (setq l_len (- l_len (* w_i hei 0.6)))<br />      (setq pt3 (polar pt2 n_l_ang l_len))<br />      (command "line" pt2 pt3 nill)<br />      (if (and (> n_l_ang pic2) (<= n_l_ang (* pic2 3.0)))<br />          (progn (setq te_s_p pt3)<br />                 (setq n_l_ang1 (angle pt3 pt2))<br />          )<br />          (progn (setq n_l_ang1 (angle pt2 pt3))<br />                 (setq te_s_p (polar pt2 n_l_ang1 (* hei 0.4)))<br />          )<br />      )<br />      (setq n_l_angd (* (/ n_l_ang1 pi) 180.0))<br />      (setq hei_jj (* hei 0.2))<br /> <br />      (command "text"(polar te_s_p (+ n_l_ang1 pic2) hei_jj)<br />                     hei n_l_angd spt1x<br />      )<br />      (command "text"(polar te_s_p (- n_l_ang1 pic2) (+ hei_jj hei))<br />                     hei n_l_angd spt1y<br />      )<br />      (setvar "osmode" os) <br /> )<br /> <br /> (defun C:xy1 ( / pt1 pt2 pt3 pt1x pt1y spt1x spt1y n_l_angd<br />                pic2 l_s_p l_e_p o_l_ang n_l_ang l_len n_l_ang1 os)<br />    (sty_le)<br />    (bzf1)<br />    (bzf21 pt1)<br />    (bzf3)<br /> )<br /> <br /> (defun C:xy( / pt1 pt2 pt3 pt1x pt1y spt1x spt1y n_l_angd<br />                pic2 l_s_p l_e_p o_l_ang n_l_ang l_len n_l_ang1 os)<br />    (bzf1)<br />    (bzf21 pt1)<br />    (bzf3)<br /> )<br /> <br /> (defun C:bz1( / pt1 pt2 pt3 pt1x pt1y spt1x spt1y n_l_angd<br />                pic2 l_s_p l_e_p o_l_ang n_l_ang l_len n_l_ang1 os)<br />    (sty_le)<br />    (bzf1)<br />    (bzf22 pt1)<br />    (bzf3)<br /> )<br /> <br /> (defun C:bz( / pt1 pt2 pt3 pt1x pt1y spt1x spt1y n_l_angd<br />                pic2 l_s_p l_e_p o_l_ang n_l_ang l_len n_l_ang1 os)<br />    (bzf1)<br />    (bzf22 pt1)<br />    (bzf3)<br /> )<br /> <br /> (print  '( xy1 / xy / bz1 / bz ))<br /> ;end <br /> <br /> (defun *error*(st)<br />   (princ (strcat "Error: " st))<br />   (princ)<br /> )<br /> <br /> 字高源程序！<br /> (defun C:zg(/ test ss len n en1 a oldr newr ent nn)<br />   (setvar "CMDECHO" 0)<br />   (setq test T nn 0)<br />   (while test<br />     (setq ss (ssadd))<br />     (setq ss (ssget))<br />     (if (= nil ss)<br />       (setq test nil)<br />       (progn<br />         (setq len (sslength ss))<br />         (setq n 1 s 1)<br />         (while (<= n len)<br />           (setq en1 (ssname ss (1- n)))<br />           (setq a (entget en1))<br />           (if  (= "TEXT" (cdr (assoc 0 a)))<br />             (progn<br />               (if (= s 1)<br />                 (progn<br />                   (setq oldr (cdr (assoc 40 a)))<br />                   (setq newr (getreal (strcat "\nNew high <" (rtos oldr 2 1) ">:")))<br />                   (if (= newr nil) (setq newr oldr))<br />                   (setq s nil)<br />                 )<br />               )<br />               (setq ent (subst (cons 40 newr) (assoc 40 a) a))<br />               (entmod ent)<br />               (setq nn (1+ nn))<br />             )<br />           )<br />           (setq n (1+ n))<br />         )<br />       )<br />     )<br />   )<br />   (princ (strcat (itoa nn) " changed !"))<br />   (princ)<br /> )

lmt112233

已經收下,謝謝樓主.

黄河之水

谢楼主了

chm

楼主收集了很多哦。。。

bjhld

已下载，谢谢楼主无无私奉献。

就一砖头

下载后解压总是出错   不知道为什么!

pckeny

真是太好了，有源程序

xbaron

如果说解压缩有问题很可能是下载的文件不完全，在下载一次即可！~

heroYY

下不了！！！！！！！！！

bill9922

楼主的改字程序程序还是要加强下，只能改text,而不能改mtext

hwbf668

请问原码要怎样才能使用啊?

hwbf668

请问原码要怎样才能使用啊?

黄河之水

楼主真无私,还为我们开了个邮箱