尺寸自动添加公差问题

菜卷鱼

自己编了一个标公差的东西，假如用nentsel提取群码再修改，要regen之后才能显示修改后的值

荣entsel提取群码在修改，虽然能实时更新，但是提取的值不是准确值，比如说标注的尺寸是48.0，

用nentsel提取群码，用下面的程序加公差，要regen一次才能显示出修改后的效果，并且双击一下尺寸它又变回来了，

假如用entsel提取群码，标准的尺寸值提取出来是“<>”,而不是48.0，虽然能实时更新尺寸，但是程序里面的if对它来说

没有限制，标注的公差不一定正确

求高人指教啊！！

(defun c:gc()

(setq en (nentsel "\n 选择对象：" ))

(setq ens (entget (car en )))

(setq s0 (assoc 0 ens))

(setq s0a (cdr s0))

(setq s1 (assoc 1 ens ))

(setq s1a (cdr s1))

(setq s2 (assoc 2 ens ))

(setq s2a (cdr s2))

(setq s3 (assoc 3 ens ))

(setq s3a (cdr s3))

(if (and (>= s1a 30)(< s10 200))

    (setq dx "%%p0.15")

    (if (and (>= s1a 200)(< s10 500))

        (setq dx "%%p0.2")

        (if (and (>= s1a 500)(< s10 1000))

            (setq dx "%%p0.3")

            (if (and (>= s1a 1000)(< s10 1500))

                 (setq dx "%%p0.5")

                 (if (and (>= s1a 1000)(< s10 1500))

                     (setq dx "%%p1"))))))

(setq ns1a (strcat s1a dx))

(setq ns1 (cons 1 ns1a))

(setq ens (subst ns1 s1a))

(entmod ens)

(prin1)

)

该贴已经同步到 菜卷鱼的微博

Gu_xl

组码42为测量值

菜卷鱼

Gu_xl 发表于 2011-8-15 22:58
组码42为测量值

但是我测量的值为 36，而组码42的值只有4.166667，我还是弄不清什么原因

菜卷鱼

菜卷鱼 发表于 2011-8-15 23:12
但是我测量的值为 36，而组码42的值只有4.166667，我还是弄不清什么原因

谢谢，弄清楚了！！

caoyin

一个是实际的数值，一个是显示的数值

菜卷鱼

1. (defun c:gc  (/)
   
2.   (setq *error* gc_err)
   
3.   (princ "标注孔位公差")
   
4.   (setvar "cmdecho" 0)
   
5.   (setq gc_obj (entsel "\n选择标注尺寸:"))
   
6.   (while gc_obj
   
7.     (setq gc_info (entget (car gc_obj)))
   
8.     (setq gc42 (assoc 42 gc_info))
   
9.     (setq gc_42 (cdr gc42))
   
10.     (setq gc2 (assoc 1 gc_info))
    
11.     (setq gc_2 (cdr gc2))
    
12.     (cond ((<= gc_42 30)
    
13.            (progn (setq gc_num "") (princ "\n选择的值小于等于30"))))
    
14.     (cond ((and (> gc_42 30) (<= gc_42 200)) (setq gc_num "%%p0.15")))
    
15.     (cond ((and (> gc_42 200) (<= gc_42 500)) (setq gc_num "%%p0.2")))
    
16.     (cond ((and (> gc_42 500) (<= gc_42 1000)) (setq gc_num "%%p0.3")))
    
17.     (cond ((and (> gc_42 1000) (<= gc_42 1500))
    
18.            (setq gc_num "%%p0.5")))
    
19.     (cond ((and (> gc_42 1500) (<= gc_42 2000)) (setq gc_num "%%p1")))
    
20.     (cond ((> gc_42 2000)
    
21.            (progn (setq gc_num "") (princ "\n选择的值大于2000"))))
    
22.     (if (= gc_2 "")
    
23.       (setq gc_string (strcat "<>" gc_num))
    
24.       (if (wcmatch gc_2 "*%%p*")
    
25.         (setq gc_string gc_2)
    
26.         (setq gc_string (strcat gc_2 gc_num))))
    
27.     (setq ngc42 (cons 1 gc_string))
    
28.     (setq gc_ninfo (subst ngc42 gc2 gc_info))
    
29.     (entmod gc_ninfo)
    
30.     (setq gc_obj (entsel "")))
    
31.   (setvar "cmdecho" 1)
    
32.   (prin1))

(defun c:gc  (/)<br />   (setq *error* gc_err)<br />   (princ "标注孔位公差")<br />   (setvar "cmdecho" 0)<br />   (setq gc_obj (entsel "\n选择标注尺寸:"))<br />   (while gc_obj<br />     (setq gc_info (entget (car gc_obj)))<br />     (setq gc42 (assoc 42 gc_info))<br />     (setq gc_42 (cdr gc42))<br />     (setq gc2 (assoc 1 gc_info))<br />     (setq gc_2 (cdr gc2))<br />     (cond ((<= gc_42 30)<br />            (progn (setq gc_num "") (princ "\n选择的值小于等于30"))))<br />     (cond ((and (> gc_42 30) (<= gc_42 200)) (setq gc_num "%%p0.15")))<br />     (cond ((and (> gc_42 200) (<= gc_42 500)) (setq gc_num "%%p0.2")))<br />     (cond ((and (> gc_42 500) (<= gc_42 1000)) (setq gc_num "%%p0.3")))<br />     (cond ((and (> gc_42 1000) (<= gc_42 1500))<br />            (setq gc_num "%%p0.5")))<br />     (cond ((and (> gc_42 1500) (<= gc_42 2000)) (setq gc_num "%%p1")))<br />     (cond ((> gc_42 2000)<br />            (progn (setq gc_num "") (princ "\n选择的值大于2000"))))<br />     (if (= gc_2 "")<br />       (setq gc_string (strcat "<>" gc_num))<br />       (if (wcmatch gc_2 "*%%p*")<br />         (setq gc_string gc_2)<br />         (setq gc_string (strcat gc_2 gc_num))))<br />     (setq ngc42 (cons 1 gc_string))<br />     (setq gc_ninfo (subst ngc42 gc2 gc_info))<br />     (entmod gc_ninfo)<br />     (setq gc_obj (entsel "")))<br />   (setvar "cmdecho" 1)<br />   (prin1))

s678z

这里有的http://bbs.mjtd.com/thread-90861-1-1.html

菜卷鱼

s678z 发表于 2013-12-26 12:13
这里有的http://bbs.mjtd.com/thread-90861-1-1.html

这是我11年8月份的帖子，自己顶一下自己