请各位版主及高手帮忙，万分感谢，对管线专业很有用。。。

njut_prince

张和平

总算是如约给你了，，
http://bbs.mjtd.com/forum.php?mo ... =1&extra=#pid603648

【KAIXIN】

这个是什么玩意？总的来个弄好的效果图吧

njut_prince

【KAIXIN】 发表于 2013-7-19 18:48
这个是什么玩意？总的来个弄好的效果图吧

不会弄呀，会弄肯定给弄个，见谅啊

【KAIXIN】

上午刚好给一网友弄了一个，时间问题，我就直接发上来，供大家改写

1. (defun fz ()
   
2.   (setq gj (GET_tile "gj"))
   
3.   (setq pd (GET_TILE "pd"))
   
4.   (setq zg (GET_TILE "zg"))
   
5.   (setq xj (GET_TILE "xj"))
   
6. )
   
7. ;;;临时生成Dcl文件 返回文件名
   
8. (defun Write_Dcl (/ Dcl_File file str)
   
9.   (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
   
10.   (setq file (open Dcl_File "W"))
    
11.   (foreach str
    
12.            '("RECT:dialog" "{label=\"管道标注\";"
    
13.              ":edit_box {key=\"gj\";label=\"管径：\";value=\"DN300\";}"
    
14.              ":edit_box {key=\"pd\";label=\"坡度：\";value=\"2.0%\";}"
    
15.              ":edit_box {key=\"zg\";label=\"字高：\";value=\"5.0\";}"
    
16.              ":edit_box {key=\"xj\";label=\"线距：\";value=\"5.0\";}"
    
17.              "ok_only;}")
    
18.     (write-line str file)
    
19.   )
    
20.   (close file)
    
21.   Dcl_File
    
22. )
    
23. (defun C:XX()(c:GXBZ))
    
24. (defun c:GXBZ ()
    
25.   (VL-LOAD-COM)
    
26.   (setvar "CMDECHO" 0)
    
27. 
    
28. (SETQ DCL_ID (LOAD_DIALOG (setq Dcl_File (Write_Dcl))))
    
29.       (vl-file-delete Dcl_File)
    
30.       (NEW_DIALOG "RECT" DCL_ID)
    
31.       (ACTION_TILE "accept" "(fz) (DONE_DIALOG)")
    
32.       (START_DIALOG)
    
33.       (UNLOAD_DIALOG DCL_ID)
    
34. (while t
    
35. 
    
36.   (if (and
    
37.         (setq pt1 (getpoint "\n请选择管道起点:"))
    
38.         (setq pt2 (getpoint pt1 "\n请选择管道终点:"))
    
39.       )
    
40.     (progn
    
41.       
    
42.       (setq xx        (- (car pt2) (car pt1))
    
43.             yy        (- (cadr pt2) (cadr pt1))
    
44.             num        (/ yy 1.0 xx)
    
45.             str        (rtos (* 100 num) 2 1)
    
46.       )
    
47.       (setq dst         (distance pt1 pt2)
    
48.             str1 (rtos dst 2 1)
    
49.             ;; FIX 1
    
50.             dtt         (strcat gj " L=" str1 "m i=" pd)
    
51.             a1         (angle pt1 pt2)
    
52.             a2         (* (/ a1 pi) 180)
    
53.             ptt         (polar pt1 a1 (/ dst 2))
    
54.             pte  (polar ptt (* pi 0.5) (atof xj))
    
55.       )
    
56.       (command "text" "j" "bc" pte (atof zg) a2 dtt)
    
57.       ;; FIX2
    
58.     )
    
59.   )
    
60. 
    
61.   )
    
62.   (princ)
    
63. )

(defun fz ()<br />   (setq gj (GET_tile "gj"))<br />   (setq pd (GET_TILE "pd"))<br />   (setq zg (GET_TILE "zg"))<br />   (setq xj (GET_TILE "xj"))<br /> )<br /> ;;;临时生成Dcl文件 返回文件名<br /> (defun Write_Dcl (/ Dcl_File file str)<br />   (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))<br />   (setq file (open Dcl_File "W"))<br />   (foreach str<br />            '("RECT:dialog" "{label=\"管道标注\";"<br />              ":edit_box {key=\"gj\";label=\"管径：\";value=\"DN300\";}"<br />              ":edit_box {key=\"pd\";label=\"坡度：\";value=\"2.0%\";}"<br />              ":edit_box {key=\"zg\";label=\"字高：\";value=\"5.0\";}"<br />              ":edit_box {key=\"xj\";label=\"线距：\";value=\"5.0\";}"<br />              "ok_only;}")<br />     (write-line str file)<br />   )<br />   (close file)<br />   Dcl_File<br /> )<br /> (defun C:XX()(c:GXBZ))<br /> (defun c:GXBZ ()<br />   (VL-LOAD-COM)<br />   (setvar "CMDECHO" 0)<br /> <br /> (SETQ DCL_ID (LOAD_DIALOG (setq Dcl_File (Write_Dcl))))<br />       (vl-file-delete Dcl_File)<br />       (NEW_DIALOG "RECT" DCL_ID)<br />       (ACTION_TILE "accept" "(fz) (DONE_DIALOG)")<br />       (START_DIALOG)<br />       (UNLOAD_DIALOG DCL_ID)<br /> (while t<br /> <br />   (if (and<br />         (setq pt1 (getpoint "\n请选择管道起点:"))<br />         (setq pt2 (getpoint pt1 "\n请选择管道终点:"))<br />       )<br />     (progn<br />       <br />       (setq xx        (- (car pt2) (car pt1))<br />             yy        (- (cadr pt2) (cadr pt1))<br />             num        (/ yy 1.0 xx)<br />             str        (rtos (* 100 num) 2 1)<br />       )<br />       (setq dst         (distance pt1 pt2)<br />             str1 (rtos dst 2 1)<br />             ;; FIX 1<br />             dtt         (strcat gj " L=" str1 "m i=" pd)<br />             a1         (angle pt1 pt2)<br />             a2         (* (/ a1 pi) 180)<br />             ptt         (polar pt1 a1 (/ dst 2))<br />             pte  (polar ptt (* pi 0.5) (atof xj))<br />       )<br />       (command "text" "j" "bc" pte (atof zg) a2 dtt)<br />       ;; FIX2<br />     )<br />   )<br /> <br />   )<br />   (princ)<br /> )

njut_prince

原帖http://bbs.mjtd.com/forum.php?mod=viewthread&tid=102538

2. (defun c:YS1 ()
   
3. (setvar "CMDECHO" 0)
   
4. (if (and
   
5.       (setq pt1 (getpoint "\nFirst Point 点一 :"))
   
6.       (setq pt2 (getpoint pt1 "\nSecond Point 点二 :"))
   
7.      )
   
8.   (progn
   
9.   (setq xx (- (car pt2) (car pt1))
   
10.         yy (- (cadr pt2) (cadr pt1))
    
11.         num (/ yy 1.0 xx)
    
12. str (rtos (* 100 num) 2 1)
    
13.   )
    
14.   (setq dst (distance pt1 pt2)
    
15.         str1 (rtos (dst 2 1))
    
16.         dtt (strcat "DN300 L="str1 "m i="str "%")
    
17.         a1 (angle pt1 pt2)
    
18.         a2 (* (/ a1 pi) 180)
    
19.         ptt (polar pt1 a1 (/ dst 2))
    
20.   ))
    
21.      (command "text" "j" "bc" ptt 2.5 a2 dtt)
    
22. )
    
23. (princ)
    
24. )
    

(defun c:YS1 ()<br /> (setvar "CMDECHO" 0)<br /> (if (and<br />       (setq pt1 (getpoint "\nFirst Point 点一 :"))<br />       (setq pt2 (getpoint pt1 "\nSecond Point 点二 :"))<br />      ) <br />   (progn<br />   (setq xx (- (car pt2) (car pt1))<br />         yy (- (cadr pt2) (cadr pt1))<br />         num (/ yy 1.0 xx)<br /> str (rtos (* 100 num) 2 1)<br />   )<br />   (setq dst (distance pt1 pt2)<br />         str1 (rtos (dst 2 1))<br />         dtt (strcat "DN300 L="str1 "m i="str "%")<br />         a1 (angle pt1 pt2)<br />         a2 (* (/ a1 pi) 180)<br />         ptt (polar pt1 a1 (/ dst 2))<br />   ))<br />      (command "text" "j" "bc" ptt 2.5 a2 dtt)<br /> )<br /> (princ)<br /> )<br />

njut_prince

没人帮我呀，难。。。

自贡黄明儒

njut_prince 发表于 2013-7-20 09:52
没人帮我呀，难。。。

如是你的程序有问题，可以发上来大家看看，问题在哪里

tranney

炫哥的代码要改改，改好了应该蛮好用的

tianyi1230

这个程序确实是很实用的插件，官网图有大量的这样标注，但是我建议没必要搞成线上线下，搞成动态的最好，把距离设置好就行了.