【已解决】求一算量插件

51895991

量出长度，乘以用插件给出倍数，结果直接在图上显示。

有大神吗？

newer

每日插件论坛是发布插件成果的地方，求助请去 晓东工具箱、编程申请论坛，悬赏求助论坛和ALISP论坛。

这个帖子帮移动到 编程申请论坛了，下次注意。

newer

请截图详细说明。

量出什么长度？ 结果是什么样的？

51895991

newer 发表于 2017-8-19 10:04

2.88梁长度，1.16是梁的展开面积，求结果直接显示在图中上，

newer

51895991 发表于 2017-8-19 10:10

附上你的DWG压缩文件啊，怎么测试？

51895991

图纸上传不了，你可以随便量个长度乘以一个系数，谢谢了

newer

51895991 发表于 2017-8-19 10:10

试试
用前，下载安装XDRX API 或者 晓东工具箱，确保运行环境。

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (xdrx_sysvar_push '("dimzin" 0))
   
4.   (if (not #xd_var_textheight)
   
5.     (setq #xd_var_textheight 3.5)
   
6.   )
   
7.   (if (setq h (getreal
   
8.                 (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)
   
9.               )
   
10.       )
    
11.     (setq #xd_var_textheight h)
    
12.   )
    
13.   (while (and (setq scl (getreal "\n输入乘数<退出>:"))
    
14.               (setq e (car (xdrx_entsel
    
15.                              "\n拾取曲线<退出>:"
    
16.                              '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
    
17.                            )
    
18.                       )
    
19.               )
    
20.          )
    
21.          (setq len (xdrx_getpropertyvalue e "length")
    
22.                str (rtos len 2 2)
    
23.                str (strcat str
    
24.                            "*("
    
25.                            (rtos scl 2 2)
    
26.                            ")="
    
27.                            (rtos (* scl len) 2 2)
    
28.                            "m2"
    
29.                    )
    
30.          )
    
31.          (xdrx_text_make
    
32.            '(0 0 0)
    
33.            str
    
34.            h
    
35.            (xdrx_vector_angle (getvar "ucsxdir"))
    
36.          )
    
37.          (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)
    
38.   )
    
39.   (xdrx_sysvar_pop)
    
40.   (xdrx_end)
    
41.   (princ)
    
42. )
    
43. 
    

(defun c:tt ()<br />   (xdrx_begin)<br />   (xdrx_sysvar_push '("dimzin" 0))<br />   (if (not #xd_var_textheight)<br />     (setq #xd_var_textheight 3.5)<br />   )<br />   (if (setq h (getreal<br />                 (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)<br />               )<br />       )<br />     (setq #xd_var_textheight h)<br />   )<br />   (while (and (setq scl (getreal "\n输入乘数<退出>:"))<br />               (setq e (car (xdrx_entsel<br />                              "\n拾取曲线<退出>:"<br />                              '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))<br />                            )<br />                       )<br />               )<br />          )<br />          (setq len (xdrx_getpropertyvalue e "length")<br />                str (rtos len 2 2)<br />                str (strcat str<br />                            "*("<br />                            (rtos scl 2 2)<br />                            ")="<br />                            (rtos (* scl len) 2 2)<br />                            "m2"<br />                    )<br />          )<br />          (xdrx_text_make<br />            '(0 0 0)<br />            str<br />            h<br />            (xdrx_vector_angle (getvar "ucsxdir"))<br />          )<br />          (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )<br /> <br />

51895991

谢谢！！我试试

51895991

你好版主，太牛逼了，是这个效果，可否改成这样（4200如何显示4.2）拾取曲线改成量取距离，自己量取，还有个就是只显示结果。就太完美了

newer

51895991 发表于 2017-8-20 10:49

你说的量取，是点两个点算长度？

51895991

是的。谢谢

newer

51895991 发表于 2017-8-20 12:56

1、文字高度输入0，屏幕显示，大于0，标注文字
2、保留位数 自己修改
  (setq area_bit 2) ;;面积保留位数
  (setq len_bit 1)  ;;长度保留位数

3、如果可以了，编辑下主题帖子，前面粘贴上【已解决】

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (xdrx_sysvar_push '("dimzin" 0 "osmode" 33))
   
4.   (if (not #xd_var_textheight)
   
5.     (setq #xd_var_textheight 3.5)
   
6.   )
   
7.   (setq area_bit 2) ;;面积保留位数
   
8.   (setq len_bit 1)  ;;长度保留位数
   
9.   (if (setq h (getreal
   
10.                 (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)
    
11.               )
    
12.       )
    
13.     (setq #xd_var_textheight h)
    
14.   )
    
15.   (if (not #xd_var_chengshu)
    
16.     (setq #xd_var_chengshu 1.0)
    
17.   )
    
18.   (if (setq scl (getreal (xdrx_prompt "\n输入乘数<" #xd_var_chengshu ">:" t)))
    
19.     (setq #xd_var_chengshu
    
20.            scl
    
21.     )
    
22.   )
    
23.   (if (not #xd_var_scl)
    
24.     (setq #xd_var_scl 1.0)
    
25.   )
    
26.   (if (setq scl (getreal (xdrx_prompt "\n输入比例<" #xd_var_scl ">:" t)))
    
27.     (setq #xd_var_scl
    
28.            scl
    
29.     )
    
30.   )
    
31.   (while (and (xdrx_initget "A")
    
32.               (setq e (xdrx_entsel
    
33.                              "\n拾取曲线[量取(A]<退出>:"
    
34.                              '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
    
35.                            )
    
36.               )
    
37.          )
    
38.     (cond
    
39.       ((= e "A")
    
40.        (if (and        (setq p1 (getpoint "\n第一点<退出>:"))
    
41.                 (setq p2 (getpoint p1 "\n第二点<退出>:"))
    
42.            )
    
43.          (setq len (distance p1 p2))
    
44.        )
    
45.       )
    
46.       (t
    
47.        (setq len (xdrx_getpropertyvalue (car e) "length"))
    
48.       )
    
49.     )
    
50.     (setq
    
51.       len (/ len #xd_var_scl)
    
52.       str (rtos len 2 len_bit)
    
53.       str (strcat str
    
54.                   "*("
    
55.                   (vl-princ-to-string #xd_var_chengshu)
    
56.                   ")="
    
57.                   (rtos (* #xd_var_chengshu len) 2 area_bit)
    
58.                   "m2"
    
59.           )
    
60.     )
    
61.     (if        (<= #xd_var_textheight 0)
    
62.       (xdrx_prompt "\n" str)
    
63.       (progn (xdrx_text_make
    
64.                '(0 0 0)
    
65.                str
    
66.                #xd_var_textheight
    
67.                (xdrx_vector_angle (getvar "ucsxdir"))
    
68.              )
    
69.              (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)
    
70.       )
    
71.     )
    
72.   )
    
73.   (xdrx_sysvar_pop)
    
74.   (xdrx_end)
    
75.   (princ)
    
76. )
    

(defun c:tt ()<br />   (xdrx_begin)<br />   (xdrx_sysvar_push '("dimzin" 0 "osmode" 33))<br />   (if (not #xd_var_textheight)<br />     (setq #xd_var_textheight 3.5)<br />   )<br />   (setq area_bit 2) ;;面积保留位数<br />   (setq len_bit 1)  ;;长度保留位数<br />   (if (setq h (getreal<br />                 (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)<br />               )<br />       )<br />     (setq #xd_var_textheight h)<br />   )<br />   (if (not #xd_var_chengshu)<br />     (setq #xd_var_chengshu 1.0)<br />   )<br />   (if (setq scl (getreal (xdrx_prompt "\n输入乘数<" #xd_var_chengshu ">:" t)))<br />     (setq #xd_var_chengshu<br />            scl<br />     )<br />   )<br />   (if (not #xd_var_scl)<br />     (setq #xd_var_scl 1.0)<br />   )<br />   (if (setq scl (getreal (xdrx_prompt "\n输入比例<" #xd_var_scl ">:" t)))<br />     (setq #xd_var_scl<br />            scl<br />     )<br />   )<br />   (while (and (xdrx_initget "A")<br />               (setq e (xdrx_entsel<br />                              "\n拾取曲线[量取(A]<退出>:"<br />                              '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))<br />                            )<br />               )<br />          )<br />     (cond<br />       ((= e "A")<br />        (if (and        (setq p1 (getpoint "\n第一点<退出>:"))<br />                 (setq p2 (getpoint p1 "\n第二点<退出>:"))<br />            )<br />          (setq len (distance p1 p2))<br />        )<br />       )<br />       (t<br />        (setq len (xdrx_getpropertyvalue (car e) "length"))<br />       )<br />     )<br />     (setq<br />       len (/ len #xd_var_scl)<br />       str (rtos len 2 len_bit)<br />       str (strcat str<br />                   "*("<br />                   (vl-princ-to-string #xd_var_chengshu)<br />                   ")="<br />                   (rtos (* #xd_var_chengshu len) 2 area_bit)<br />                   "m2"<br />           )<br />     )<br />     (if        (<= #xd_var_textheight 0)<br />       (xdrx_prompt "\n" str)<br />       (progn (xdrx_text_make<br />                '(0 0 0)<br />                str<br />                #xd_var_textheight<br />                (xdrx_vector_angle (getvar "ucsxdir"))<br />              )<br />              (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)<br />       )<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

51895991

谢谢我 试试

51895991

还要麻烦版主可以这样改下吗？改成只显示结果可以吗？

newer

51895991 发表于 2017-8-20 17:45

1. (defun c:tt ()
   
2.   (xdrx_begin)
   
3.   (xdrx_sysvar_push '("dimzin" 0 "osmode" 33))
   
4.   (if (not #xd_var_textheight)
   
5.     (setq #xd_var_textheight 3.5)
   
6.   )
   
7.   (setq area_bit 2) ;;面积保留位数
   
8.   (setq len_bit 1)  ;;长度保留位数
   
9.   (if (setq h (getreal
   
10.                 (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)
    
11.               )
    
12.       )
    
13.     (setq #xd_var_textheight h)
    
14.   )
    
15.   (if (not #xd_var_chengshu)
    
16.     (setq #xd_var_chengshu 1.0)
    
17.   )
    
18.   (if (setq scl (getreal (xdrx_prompt "\n输入乘数<" #xd_var_chengshu ">:" t)))
    
19.     (setq #xd_var_chengshu
    
20.            scl
    
21.     )
    
22.   )
    
23.   (if (not #xd_var_scl)
    
24.     (setq #xd_var_scl 1.0)
    
25.   )
    
26.   (if (setq scl (getreal (xdrx_prompt "\n输入比例<" #xd_var_scl ">:" t)))
    
27.     (setq #xd_var_scl
    
28.            scl
    
29.     )
    
30.   )
    
31.   (while (and (xdrx_initget "A")
    
32.               (setq e (xdrx_entsel
    
33.                              "\n拾取曲线[量取(A]<退出>:"
    
34.                              '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
    
35.                            )
    
36.               )
    
37.          )
    
38.     (cond
    
39.       ((= e "A")
    
40.        (if (and        (setq p1 (getpoint "\n第一点<退出>:"))
    
41.                 (setq p2 (getpoint p1 "\n第二点<退出>:"))
    
42.            )
    
43.          (setq len (distance p1 p2))
    
44.        )
    
45.       )
    
46.       (t
    
47.        (setq len (xdrx_getpropertyvalue (car e) "length"))
    
48.       )
    
49.     )
    
50.     (setq
    
51.       len (/ len #xd_var_scl)
    
52.       str (rtos len 2 len_bit)
    
53.       str1 (strcat str
    
54.                   "*("
    
55.                   (vl-princ-to-string #xd_var_chengshu)
    
56.                   ")="
    
57.                   (rtos (* #xd_var_chengshu len) 2 area_bit)
    
58.                   "m2"
    
59.           )
    
60.       str (strcat (rtos (* #xd_var_chengshu len) 2 area_bit)
    
61.                   "m2"
    
62.           )
    
63.       )
    
64.     (if        (<= #xd_var_textheight 0)
    
65.       (xdrx_prompt "\n" str1)
    
66.       (progn (xdrx_text_make
    
67.                '(0 0 0)
    
68.                str
    
69.                #xd_var_textheight
    
70.                (xdrx_vector_angle (getvar "ucsxdir"))
    
71.              )
    
72.              (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)
    
73.       )
    
74.     )
    
75.   )
    
76.   (xdrx_sysvar_pop)
    
77.   (xdrx_end)
    
78.   (princ)
    
79. )
    

(defun c:tt ()<br />   (xdrx_begin)<br />   (xdrx_sysvar_push '("dimzin" 0 "osmode" 33))<br />   (if (not #xd_var_textheight)<br />     (setq #xd_var_textheight 3.5)<br />   )<br />   (setq area_bit 2) ;;面积保留位数<br />   (setq len_bit 1)  ;;长度保留位数<br />   (if (setq h (getreal<br />                 (xdrx_prompt "\n文字高度<" #xd_var_textheight ">:" t)<br />               )<br />       )<br />     (setq #xd_var_textheight h)<br />   )<br />   (if (not #xd_var_chengshu)<br />     (setq #xd_var_chengshu 1.0)<br />   )<br />   (if (setq scl (getreal (xdrx_prompt "\n输入乘数<" #xd_var_chengshu ">:" t)))<br />     (setq #xd_var_chengshu<br />            scl<br />     )<br />   )<br />   (if (not #xd_var_scl)<br />     (setq #xd_var_scl 1.0)<br />   )<br />   (if (setq scl (getreal (xdrx_prompt "\n输入比例<" #xd_var_scl ">:" t)))<br />     (setq #xd_var_scl<br />            scl<br />     )<br />   )<br />   (while (and (xdrx_initget "A")<br />               (setq e (xdrx_entsel<br />                              "\n拾取曲线[量取(A]<退出>:"<br />                              '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))<br />                            )<br />               )<br />          )<br />     (cond<br />       ((= e "A")<br />        (if (and        (setq p1 (getpoint "\n第一点<退出>:"))<br />                 (setq p2 (getpoint p1 "\n第二点<退出>:"))<br />            )<br />          (setq len (distance p1 p2))<br />        )<br />       )<br />       (t<br />        (setq len (xdrx_getpropertyvalue (car e) "length"))<br />       )<br />     )<br />     (setq<br />       len (/ len #xd_var_scl)<br />       str (rtos len 2 len_bit)<br />       str1 (strcat str<br />                   "*("<br />                   (vl-princ-to-string #xd_var_chengshu)<br />                   ")="<br />                   (rtos (* #xd_var_chengshu len) 2 area_bit)<br />                   "m2"<br />           )<br />       str (strcat (rtos (* #xd_var_chengshu len) 2 area_bit)<br />                   "m2"<br />           )<br />       )<br />     (if        (<= #xd_var_textheight 0)<br />       (xdrx_prompt "\n" str1)<br />       (progn (xdrx_text_make<br />                '(0 0 0)<br />                str<br />                #xd_var_textheight<br />                (xdrx_vector_angle (getvar "ucsxdir"))<br />              )<br />              (xd::drag:simplemove (entlast) "\n文字插入点:" 2 t)<br />       )<br />     )<br />   )<br />   (xdrx_sysvar_pop)<br />   (xdrx_end)<br />   (princ)<br /> )<br />