尺寸公差标注问题lsp

菜卷鱼

大神帮我改进一下这个程序啊，标注尺寸公差的，要重生成才能更新，而且双击标注尺寸后又变回原来的了

(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)
)




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

cabinsummer

程序本身就是错的，如果选取尺寸文本，s1a就是字符串，根本无法与30等数值进行比较。建议楼主好好研习Autolisp一周后再来提问

菜卷鱼

cabinsummer 发表于 2011-9-13 22:08
程序本身就是错的，如果选取尺寸文本，s1a就是字符串，根本无法与30等数值进行比较。建议楼主好好研习Autol ...

谢谢回复，已经搞定