[求助]：这样将尺寸值改为固定值？

coolzhb

我用xd工具箱中标注－》标注改值，
  
  请输入选项[自身变比(1)/取输入值(2)/恢复默认(R)]<1>:1
    请输入尺寸文字缩放比例<1.0>:

    但修改后的尺寸总是和原来的尺寸值不同，个位数有变化，不知道怎么解决？

eachy

四舍五入原因

coolzhb

最初由 eachy 发布
[B]四舍五入原因 [/B]

不是四舍五入的原因，一般相差2－3，而且用dim标注是对的，而标注修改就改变了数值，奇怪，请版主自己试试！

eachy

最初由 coolzhb 发布
[B]

不是四舍五入的原因，一般相差2－3，而且用dim标注是对的，而标注修改就改变了数值，奇怪，请版主自己试试！ [/B]

看了看程序，里面的 rtos 写法有误，都是 (rtos  x 2 0) 把后面的 0  改为需要的 2 或者 3 即可。

程序在 \XDSoft\Lisp 目录下 obj_dim.lsp 中查找 c:XDTB_DimChVal

coolzhb

最初由 eachy 发布
[B]
看了看程序，里面的 rtos 写法有误，都是 [co... [/B]

今天下午仔细研究一下 \XDSoft\Lisp 目录下 obj_dim.lsp 中
c:XDTB_DimChVal程序，发现并不是rtos的写法有误，而是
xd工具箱线性标注取值算法的一个bug。

另外好像还有点bug，我也修改了一下，修改后，程序运行
一切正常。

2. 
   
3.   [FONT=courier new]
   
4. ;;; 命令：xdtb_dimchval
   
5. ;;; 可以多选，可修改为输入的具体数值，也可以根据输入的比例，“缩放”该值。
   
6. 
   
7. (defun c:xdtb_dimchval (/ ss tf val e tf1 #get_val val1)
   
8. 
   
9. ;|defun #get_val (/ p10 p11)
   
10.                 (setq p10 (xdrx_getentdxf 10)
    
11.                                         p11 (polar p10 (xdrx_getentdxf 50) (distance
    
12.                                                                                                                                                                                                                          (xdrx_getentdxf 13)
    
13.                                                                                                                                                                                                                          (xdrx_getentdxf 14)
    
14.                                                                                                                                                                                  )
    
15.                                                         )
    
16.                 )
    
17.                 (rtos (distance p10 p11) 2 0)
    
18.         )
    
19. |;
    
20.   (defun #get_val (/ p10 p11)
    
21.     (rtos (* (cos (- (xdrx_getentdxf 50)
    
22.                      (angle (xdrx_getentdxf 13)
    
23.                             (xdrx_getentdxf 14)
    
24.                      )
    
25.                   )
    
26.              )
    
27.              (distance (xdrx_getentdxf 13) (xdrx_getentdxf 14))
    
28.           )
    
29.           2
    
30.           4
    
31.     )
    
32.   )
    
33.   (prompt "\n请选取要修改的尺寸标注<退出>:")
    
34.   (setq ss (ssget '((0 . "dimension"))))
    
35.   (if (not tf)
    
36.     (progn
    
37.       (setq tf t)
    
38.       (initget 6 "1 2 R")
    
39.       (setq
    
40.         tf1 (getkword
    
41.               "\n请输入选项[自身变比(1)/取输入值(2)/恢复默认(R)]<1>:"
    
42.             )
    
43.       )
    
44.       (if (not tf1)
    
45.         (setq tf1 "1")
    
46.       )
    
47.       (if (= tf1 "R")
    
48.         (progn
    
49.           (xdrx_setsstodb ss 0)
    
50.           (while (setq e (xdrx_getentdata 0)) ; (if (not
    
51.                                         ; (xdrx_dimension_removeoverride e
    
52.                                         ; 271)) (xdrx_modent 1 ""))
    
53.             (xdrx_modent 1 "")
    
54.           )
    
55.         )
    
56.         (progn
    
57.           (initget 6)
    
58.           (setq        val (getreal (strcat "\n请输入尺寸文字"
    
59.                                      (if (= tf1 "1")
    
60.                                        "缩放比例"
    
61.                                        "新值"
    
62.                                      )
    
63.                                      (if #val_z
    
64.                                        (strcat "<"
    
65.                                                (rtos #val_z
    
66.                                                      2
    
67.                                                      1
    
68.                                                )
    
69.                                                ">"
    
70.                                        )
    
71.                                        ""
    
72.                                      )
    
73.                                      ":"
    
74.                              )
    
75.                     )
    
76.           )
    
77.           (if (not val)
    
78.             (setq val #val_z)
    
79.             (setq #val_z val)
    
80.           )
    
81.           (xdrx_setsstodb ss 0)
    
82.           (while (setq e (xdrx_getentdata 0))
    
83.             (setq val1 (if (= "" (xdrx_getentdxf 1))
    
84.                          (#get_val)
    
85.                          (xdrx_getentdxf 1)
    
86.                        )
    
87.             )
    
88.             (xdrx_modent
    
89.               1
    
90.               (if (= tf1 "1")
    
91.                 (rtos (* (atof val1) val) 2 0)
    
92.                 (rtos val 2 0)
    
93.               )
    
94.             )
    
95.             (entupd e)
    
96.           )
    
97.         )
    
98.       )
    
99.     )
    
100.   )
     
101.   (princ)
     
102. )
     
103. 
     
104.    
     
105.   [/FONT]
     

<br />   [FONT=courier new]<br /> ;;; 命令：xdtb_dimchval<br /> ;;; 可以多选，可修改为输入的具体数值，也可以根据输入的比例，“缩放”该值。<br /> <br /> (defun c:xdtb_dimchval (/ ss tf val e tf1 #get_val val1)<br /> <br /> ;|defun #get_val (/ p10 p11)<br />                 (setq p10 (xdrx_getentdxf 10)<br />                                         p11 (polar p10 (xdrx_getentdxf 50) (distance<br />                                                                                                                                                                                                                          (xdrx_getentdxf 13)<br />                                                                                                                                                                                                                          (xdrx_getentdxf 14)<br />                                                                                                                                                                                  )<br />                                                         )<br />                 )<br />                 (rtos (distance p10 p11) 2 0)<br />         )<br /> |;<br />   (defun #get_val (/ p10 p11)<br />     (rtos (* (cos (- (xdrx_getentdxf 50)<br />                      (angle (xdrx_getentdxf 13)<br />                             (xdrx_getentdxf 14)<br />                      )<br />                   )<br />              )<br />              (distance (xdrx_getentdxf 13) (xdrx_getentdxf 14))<br />           )<br />           2<br />           4<br />     )<br />   )<br />   (prompt "\n请选取要修改的尺寸标注<退出>:")<br />   (setq ss (ssget '((0 . "dimension"))))<br />   (if (not tf)<br />     (progn<br />       (setq tf t)<br />       (initget 6 "1 2 R")<br />       (setq<br />         tf1 (getkword<br />               "\n请输入选项[自身变比(1)/取输入值(2)/恢复默认(R)]<1>:"<br />             )<br />       )<br />       (if (not tf1)<br />         (setq tf1 "1")<br />       )<br />       (if (= tf1 "R")<br />         (progn<br />           (xdrx_setsstodb ss 0)<br />           (while (setq e (xdrx_getentdata 0)) ; (if (not<br />                                         ; (xdrx_dimension_removeoverride e<br />                                         ; 271)) (xdrx_modent 1 ""))<br />             (xdrx_modent 1 "")<br />           )<br />         )<br />         (progn<br />           (initget 6)<br />           (setq        val (getreal (strcat "\n请输入尺寸文字"<br />                                      (if (= tf1 "1")<br />                                        "缩放比例"<br />                                        "新值"<br />                                      )<br />                                      (if #val_z<br />                                        (strcat "<"<br />                                                (rtos #val_z<br />                                                      2<br />                                                      1<br />                                                )<br />                                                ">"<br />                                        )<br />                                        ""<br />                                      )<br />                                      ":"<br />                              )<br />                     )<br />           )<br />           (if (not val)<br />             (setq val #val_z)<br />             (setq #val_z val)<br />           )<br />           (xdrx_setsstodb ss 0)<br />           (while (setq e (xdrx_getentdata 0))<br />             (setq val1 (if (= "" (xdrx_getentdxf 1))<br />                          (#get_val)<br />                          (xdrx_getentdxf 1)<br />                        )<br />             )<br />             (xdrx_modent<br />               1<br />               (if (= tf1 "1")<br />                 (rtos (* (atof val1) val) 2 0)<br />                 (rtos val 2 0)<br />               )<br />             )<br />             (entupd e)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />    <br />   [/FONT]<br />

eachy

(rtos val 2 0)
返回的是整数了

coolzhb

最初由 eachy 发布
[B](rtos val 2 0)
返回的是整数了 [/B]

最主要的其实是算法不对，当标注时第一点和第二点和尺寸的角度不一致时，修改尺寸值就变大了，因为它返回的是这两点间的距离，所以必须乘以他们之间夹角的余弦值。看我写的返回值val的求法即可明白！

陌生人

用0.28版本测试了一下,coolzhb朋友的分析很对!主要是对线性标注取值方法不对.
但是你贴上来的修改程序 括号不匹配,没有细看分析是哪里
我以前也写过一个程序,这次在测试中发现一个漏洞,就是没有考虑标注override的情况,拟近期完成修改.因此,再次感谢coolzhb朋友,让我发现了自己程序的bug :)
付上我的原程序

2. 
   
3. (defun c:dmv (/ ss i ent e e1 e10 e13 p14 ang e13e e13p dist dimst st se271 se144 val nval upkey)
   
4. (princ "\ndmv ==锁定/缩放/还原 dim标注数值－v3－－－－－－陌生人.2002.11")
   
5. (initget "S R")
   
6. (setq key (getstring "\n dim标注数值 S-缩放/R-还原/<锁定>:"))
   
7. (if (= "S" (strcase key))
   
8.   (setq sc (getdist "\n 数值缩放比例:"))
   
9. )
   
10. (if (= "" key)(setq key "L"))
    
11. (setq ss (ssget '((0 . "DIMENSION"))) i 0 )
    
12. (repeat (sslength ss)
    
13.   (setq ent (ssname ss i)
    
14.         e (entget ent)
    
15.         e1 (cdr (assoc 1 e))
    
16.         e10 (cdr (assoc 10 e))
    
17.         e13 (cdr (assoc 13 e))
    
18.         e14 (cdr (assoc 14 e))
    
19.         ang (angle e10 e14)
    
20.         e13e (polar e13 (+ (/ PI 2)(angle e10 e14)) 100)
    
21.         e13p (inters e13 e13e e10 e14 nil)
    
22.         dist (distance e13 e13p)
    
23.         dimst (cdr (assoc 3 e))
    
24.         st (tblsearch "dimstyle" dimst)
    
25.         se271 (cdr (assoc 271 st))  
    
26.         se144 (cdr (assoc 144 st))  
    
27.         val (* se144 dist)         
    
28.         i (1+ i)
    
29.   )
    
30.   (cond
    
31.    ((= "S" (strcase key))
    
32.     (if (or (= "" e1)(wcmatch e1 "*<>*"))
    
33.        (setq val (* val sc) nval (rtos val 2 se271))
    
34.        (setq nval (rtos (* (atof e1) sc) 2 se271))
    
35.      );if      
    
36.    )
    
37.    ((= "R" (strcase key)) (setq nval "<>" upkey "Y"))
    
38.    ((= "L" (strcase key))
    
39.     (if (or (= "" e1)(wcmatch e1 "*<>*"))
    
40.        (setq nval (rtos val 2 se271))
    
41.        (setq nval e1)
    
42.      );if
    
43.    )
    
44.   );cond
    
45.   (setq   e (subst (cons 1 nval) (assoc 1 e) e))
    
46.   (entmod e)
    
47.   (entupd ent)
    
48. );end repeat
    
49. (if upkey (command ".dim" "style" dimst "up" ent "" "e"))
    
50. (princ)
    
51. )
    

<br /> (defun c:dmv (/ ss i ent e e1 e10 e13 p14 ang e13e e13p dist dimst st se271 se144 val nval upkey)<br /> (princ "\ndmv ==锁定/缩放/还原 dim标注数值－v3－－－－－－陌生人.2002.11")<br /> (initget "S R")<br /> (setq key (getstring "\n dim标注数值 S-缩放/R-还原/<锁定>:"))<br /> (if (= "S" (strcase key))<br />   (setq sc (getdist "\n 数值缩放比例:"))<br /> )<br /> (if (= "" key)(setq key "L"))<br /> (setq ss (ssget '((0 . "DIMENSION"))) i 0 )<br /> (repeat (sslength ss)<br />   (setq ent (ssname ss i)<br />         e (entget ent)<br />         e1 (cdr (assoc 1 e))<br />         e10 (cdr (assoc 10 e))<br />         e13 (cdr (assoc 13 e))<br />         e14 (cdr (assoc 14 e))<br />         ang (angle e10 e14)<br />         e13e (polar e13 (+ (/ PI 2)(angle e10 e14)) 100)<br />         e13p (inters e13 e13e e10 e14 nil)<br />         dist (distance e13 e13p)<br />         dimst (cdr (assoc 3 e))<br />         st (tblsearch "dimstyle" dimst) <br />         se271 (cdr (assoc 271 st))  <br />         se144 (cdr (assoc 144 st))  <br />         val (* se144 dist)          <br />         i (1+ i)<br />   )<br />   (cond<br />    ((= "S" (strcase key))<br />     (if (or (= "" e1)(wcmatch e1 "*<>*"))<br />        (setq val (* val sc) nval (rtos val 2 se271))<br />        (setq nval (rtos (* (atof e1) sc) 2 se271)) <br />      );if      <br />    )<br />    ((= "R" (strcase key)) (setq nval "<>" upkey "Y"))<br />    ((= "L" (strcase key))<br />     (if (or (= "" e1)(wcmatch e1 "*<>*")) <br />        (setq nval (rtos val 2 se271)) <br />        (setq nval e1) <br />      );if <br />    )<br />   );cond<br />   (setq   e (subst (cons 1 nval) (assoc 1 e) e))<br />   (entmod e)<br />   (entupd ent)<br /> );end repeat<br /> (if upkey (command ".dim" "style" dimst "up" ent "" "e")) <br /> (princ)<br /> ) <br />

coolzhb

最初由 陌生人 发布
[B]用0.28版本测试了一下,coolzhb朋友的分析很对!主要是对线性标注取值方法不对.
但是你贴上来的修改程序 括号不匹配,没有细看分析是哪里
我以前也写过一个程序,这次在测试中发现一个漏洞,就是没有考虑标注override的... [/B]

括号不匹配？可能是贴的过程出现了问题，我把上面的帖子重新贴过了，大家可以下载试试，另外，我贴出obj_dim.lsp，你直接下载覆盖xdsoft\lisp下的同名文件即可。

weifei

括号没有问题