紧急求助，各位大侠能否帮我编个尺寸标注修改刷

yansu · 发表于 2013-10-15 16:28:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

紧急求助，各位大侠能否帮我编个尺寸标注修改刷，即可以设置一个参数，然后刷到标注上可以将参数值与尺寸标注值相加，起因，我完成的图纸，业主临时通知要统一将某些尺寸都减去或加一个相同尺寸，由于时间来不及了，恳请高手帮忙。O(∩_∩)O谢谢

newer · 发表于 2013-10-15 16:34:30

只改标注值？你发错版块了，去编程申请版块发帖吧。最后上个图。

newer · 发表于 2013-10-15 16:34:35

只改标注值？你发错版块了，去编程申请版块发帖吧。最后上个图。

st788796 · 发表于 2013-10-15 17:04:03

(defun c:tt (/ ss num e txt)
(and
(setq ss (ssget '((0 . "Dimension"))))
(setq num (getreal "\n输入增减数: "))
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(and
(member (xdrx_getpropertyvalue e "IsA") '("AcDbAlignedDimension" "AcDbRotatedDimension"))
(if (/= (xdrx_getpropertyvalue e "DimensionText") "")
(setq txt (distof (xdrx_getpropertyvalue e "DimensionText")))
(setq txt (xdrx_getpropertyvalue e "Measurement"))
)
(xdrx_setpropertyvalue e "Dimtext" (rtos (+ txt num) 2 0))
)
)
)
(princ)
)

yansu · 发表于 2013-10-15 17:11:31

非常感谢，帮了大忙啦，O(∩_∩)O谢谢:lol:lol:lol

newer · 发表于 2013-10-15 18:16:28

st788796 发表于 2013-10-15 17:04

(member (xdrx_getpropertyvalue e "IsA") '("AcDbAlignedDimension" "AcDbRotatedDimension"))

这行返回值是个表吧 (t t)这样的，做and条件肯定为真吧，是不是应该改成

(apply 'and (member (xdrx_getpropertyvalue e "IsA") '("AcDbAlignedDimension" "AcDbRotatedDimension")))

更符合要求？

st788796 · 发表于 2013-10-15 20:00:40

newer 发表于 2013-10-15 18:16
(member (xdrx_getpropertyvalue e "IsA") '("AcDbAlignedDimension" "AcDbRotatedDimension"))

这行 ...

一般写法用 if，用 and 是有一语句为 nil 就退出了，后面语句不执行，这个只要是 Rotated 或者 Aligned 标注即可，member 就是一判断

lizhaojun45 · 发表于 2019-3-17 15:43:06

尺寸的原来数字，减去整数还是很好用的，如果是减去，带小数的，就不太好用。比如，减去0.5或1.5或2.5，要是尺寸数字递减之后，还能把数字的颜色变成白色或其它颜色就更好了，总的来说还是很好用的，谢谢大神的分享。

账号		自动登录	找回密码
密码			立即注册

[已解决] 紧急求助，各位大侠能否帮我编个尺寸标注修改刷

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评