首次发帖，热烈欢迎各位莅临指导，优化改进。

海盗曹

2. (prompt "\n柱桩编号=W_ZZBH=【海盗曹跬步+11/2012.04.23】")
   
3. (defun c:W_ZZBH (/ bhfs ENTD MOUSE PT wz wzys dqtc vv ht zj n p1 p2 p3 pp
   
4.        txt vv le a1 c1 aa bb txt1 WZ1
   
5.     )
   
6.   (setq bhfs (getreal "\n<1=动态标注>/<2=引线标注>默认为1:"))
   
7.   (if (= bhfs 2)
   
8.       (progn
   
9.       (defun zcx ()
   
10.       (setq p2 (getpoint P1 "\n<请指定文字位置>:")
    
11.       a1 (car p1)
    
12.       c1 (car p2)
    
13.       vx (* (- (strlen (strcat txt txt1)) 0.2) (* ht 0.55))
    
14.       le vx
    
15.       )
    
16.       (if (< c1 a1)
    
17.   (setq pp (polar p2 pi le)
    
18.         p3 (polar pp (/ pi 2) zj)
    
19.   )
    
20.   (setq pp (polar p2 0 le)
    
21.         p3 (polar p2 (/ pi 2) zj)
    
22.   )
    
23.       )
    
24.   (setq aa (getvar "clayer"))
    
25.   (setq bb (getvar "textstyle"))
    
26.   (setq vv (getvar "osmode"))
    
27.   (if (not (tblsearch "layer" "柱桩编号"))
    
28.     (command "-layer" "m" "柱桩编号" "c" "2" "柱桩编号" "")
    
29.   )
    
30.   (setvar "clayer" "柱桩编号")
    
31.   (command "-STYLE" "ZZBH" "TSSDENG.SHX,HZTXT.SHX" "300" "0.70" "0"
    
32.      "N" "N" "N"
    
33.   )
    
34.   (setvar "textstyle" "ZZBH")
    
35.   (setq vv (getvar "osmode"))
    
36.   (setvar "osmode" 0)
    
37. 
    
38.   (command "line" p1 p2 pp "")
    
39.   (command "text" P3 0 (strcat TXT txt1))
    
40.   (setvar "clayer" aa)
    
41.   (setvar "textstyle" bb)
    
42.   (setvar "osmode" vv)
    
43.   (princ)
    
44.       )
    
45.       (setq aa (getvar "clayer"))
    
46.       (setq bb (getvar "textstyle"))
    
47.       (setq vv (getvar "osmode"))
    
48.       (setvar "texteval" 1)
    
49.       (setvar "cmdecho" 0)
    
50.       (setq ht 300)
    
51.       (setq zj (/ ht 8))
    
52.       (setq n 0)
    
53.       (while (= n 0)
    
54.   (setq TXT (getstring "\n请输入柱桩类型<默认为KZ>:"))
    
55.   (if (= txt "")
    
56.     (setq txt "KZ")
    
57.   )
    
58.   (setq TXT1 (getstring "\n请输入柱桩编号<默认为1>:"))
    
59.   (if (= txt1 "")
    
60.     (setq txt1 "1")
    
61.   )
    
62.   (setvar "osmode" 695)
    
63.   (setq p1 (getpoint "\n<请指定第一点>:"))
    
64.   (if (= p1 nil)
    
65.     (setq n 1)
    
66.     (zcx)
    
67.   )
    
68.   (setvar "osmode" vv)
    
69.   (setvar "clayer" aa)
    
70.   (setvar "textstyle" bb)
    
71.   (princ)
    
72.       )
    
73.     )
    
74.     (progn
    
75.       (setq vv (getvar "osmode"))
    
76.       (setq aa (getvar "clayer"))
    
77.       (setq bb (getvar "textstyle"))
    
78.       (command "-layer" "m" "柱桩编号" "c" "2" "柱桩编号" "")
    
79.       (setvar "clayer" "柱桩编号")
    
80.       (command "-STYLE" "ZZBH" "TSSDENG.SHX,HZTXT.SHX" "300" "0.70" "0" "N"
    
81.          "N" "N"
    
82.       )
    
83.       (setvar "textstyle" "ZZBH")
    
84.       (setq wz (getstring "\n请输入柱桩类型<默认为KZ>:"))
    
85.       (if (= wz "")
    
86.   (setq wz "KZ")
    
87.       )
    
88.       (setq wz1 (getstring "\n请输入柱桩编号<默认为1>:"))
    
89.       (if (= wz1 "")
    
90.   (setq wz1 "1")
    
91.       )
    
92.       (command "text" (cadr (setq mouse (grread T 5 0))) 0 (strcat wz wz1))
    
93.       (setq entd (entget (entlast)))
    
94.       (while (/= (car (setq mouse (grread mouse 5 0))) 3)
    
95. 
    
96.   (setq pt (cadr mouse))
    
97.   (setq entd (subst
    
98.          (cons 10 pt)
    
99.          (assoc 10 entd)
    
100.          entd
     
101.        )
     
102.   )
     
103.   (entmod entd)
     
104.       )
     
105.       (setvar "clayer" aa)
     
106.       (setvar "textstyle" bb)
     
107.       (setvar "osmode" vv)
     
108.       (prompt "\n柱桩编号=W_ZZBH=【海盗曹跬步+11/2012.04.23】")
     
109.       (princ)
     
110.     )
     
111.   )
     
112. )
     

(prompt "\n柱桩编号=W_ZZBH=【海盗曹跬步+11/2012.04.23】")<br /> (defun c:W_ZZBH (/ bhfs ENTD MOUSE PT wz wzys dqtc vv ht zj n p1 p2 p3 pp<br />        txt vv le a1 c1 aa bb txt1 WZ1<br />     )<br />   (setq bhfs (getreal "\n<1=动态标注>/<2=引线标注>默认为1:"))<br />   (if (= bhfs 2)<br />       (progn<br />       (defun zcx ()<br />       (setq p2 (getpoint P1 "\n<请指定文字位置>:")<br />       a1 (car p1)<br />       c1 (car p2)<br />       vx (* (- (strlen (strcat txt txt1)) 0.2) (* ht 0.55))<br />       le vx<br />       )<br />       (if (< c1 a1)<br />   (setq pp (polar p2 pi le)<br />         p3 (polar pp (/ pi 2) zj)<br />   )<br />   (setq pp (polar p2 0 le)<br />         p3 (polar p2 (/ pi 2) zj)<br />   )<br />       )<br />   (setq aa (getvar "clayer"))<br />   (setq bb (getvar "textstyle"))<br />   (setq vv (getvar "osmode"))<br />   (if (not (tblsearch "layer" "柱桩编号"))<br />     (command "-layer" "m" "柱桩编号" "c" "2" "柱桩编号" "")<br />   )<br />   (setvar "clayer" "柱桩编号")<br />   (command "-STYLE" "ZZBH" "TSSDENG.SHX,HZTXT.SHX" "300" "0.70" "0"<br />      "N" "N" "N"<br />   )<br />   (setvar "textstyle" "ZZBH")<br />   (setq vv (getvar "osmode"))<br />   (setvar "osmode" 0)<br /> <br />   (command "line" p1 p2 pp "")<br />   (command "text" P3 0 (strcat TXT txt1))<br />   (setvar "clayer" aa)<br />   (setvar "textstyle" bb)<br />   (setvar "osmode" vv)<br />   (princ)<br />       )<br />       (setq aa (getvar "clayer"))<br />       (setq bb (getvar "textstyle"))<br />       (setq vv (getvar "osmode"))<br />       (setvar "texteval" 1)<br />       (setvar "cmdecho" 0)<br />       (setq ht 300)<br />       (setq zj (/ ht 8))<br />       (setq n 0)<br />       (while (= n 0)<br />   (setq TXT (getstring "\n请输入柱桩类型<默认为KZ>:"))<br />   (if (= txt "")<br />     (setq txt "KZ")<br />   )<br />   (setq TXT1 (getstring "\n请输入柱桩编号<默认为1>:"))<br />   (if (= txt1 "")<br />     (setq txt1 "1")<br />   )<br />   (setvar "osmode" 695)<br />   (setq p1 (getpoint "\n<请指定第一点>:"))<br />   (if (= p1 nil)<br />     (setq n 1)<br />     (zcx)<br />   )<br />   (setvar "osmode" vv)<br />   (setvar "clayer" aa)<br />   (setvar "textstyle" bb)<br />   (princ)<br />       )<br />     )<br />     (progn<br />       (setq vv (getvar "osmode"))<br />       (setq aa (getvar "clayer"))<br />       (setq bb (getvar "textstyle"))<br />       (command "-layer" "m" "柱桩编号" "c" "2" "柱桩编号" "")<br />       (setvar "clayer" "柱桩编号")<br />       (command "-STYLE" "ZZBH" "TSSDENG.SHX,HZTXT.SHX" "300" "0.70" "0" "N"<br />          "N" "N"<br />       )<br />       (setvar "textstyle" "ZZBH")<br />       (setq wz (getstring "\n请输入柱桩类型<默认为KZ>:"))<br />       (if (= wz "")<br />   (setq wz "KZ")<br />       )<br />       (setq wz1 (getstring "\n请输入柱桩编号<默认为1>:"))<br />       (if (= wz1 "")<br />   (setq wz1 "1")<br />       )<br />       (command "text" (cadr (setq mouse (grread T 5 0))) 0 (strcat wz wz1))<br />       (setq entd (entget (entlast)))<br />       (while (/= (car (setq mouse (grread mouse 5 0))) 3)<br /> <br />   (setq pt (cadr mouse))<br />   (setq entd (subst<br />          (cons 10 pt)<br />          (assoc 10 entd)<br />          entd<br />        )<br />   )<br />   (entmod entd)<br />       )<br />       (setvar "clayer" aa)<br />       (setvar "textstyle" bb)<br />       (setvar "osmode" vv)<br />       (prompt "\n柱桩编号=W_ZZBH=【海盗曹跬步+11/2012.04.23】")<br />       (princ)<br />     )<br />   )<br /> )<br />

在明经潜水了一段时间了，学到了不少东西，这几天东拼西凑弄了个程序，主要是为了实现自己画图时的稍稍便利，两个主题结构一个来源于KAIXIN，另一个忘了，都是明经的东西，希望各位指正并优化，尤其是引线标注时候，grread的动态显示最好，可惜能力不够，感谢TV，感谢明经。
说完了~

xiaxiang

呵呵，顶贴支持，望多发源码讨论贴并继续完善！

vlisp2012

支持一下！

langjs

支持 支持

海盗曹

xiaxiang 发表于 2012-4-23 17:34
呵呵，顶贴支持，望多发源码讨论贴并继续完善！

谢谢鼓励，我再接再厉~

海盗曹

vlisp2012 发表于 2012-4-23 19:41
支持一下！

多谢支持，共同努力啊~

海盗曹

langjs 发表于 2012-4-23 20:20
支持 支持

多谢哇多谢~继续努力学习~

1993063

支持 支持

xuzhigangrene

支持楼主的学习钻研及分享精神！

wowan1314

关于动态显示，给个参考给你啊！  水平有限勿怪。