社区 › AutoLISP/Visual LISP 编程技术 › 能不能实现 标注尺寸 加减，请大侠给个思路？

lidaxiu 发表于 2012-9-4 20:18:24

能不能实现 标注尺寸 加减，请大侠给个思路？

在画加工图时发现好多图形状是一样的，只是总尺寸不一样，想搞个 标注尺寸 加减，
能不能实现，请大侠给个思路？
是不是得先从尺寸标注中提取尺寸，然后进行，加减运算，再放回标注中？

lidaxiu 发表于 2012-9-4 20:24:00

呵呵不好意思刚发贴，自己就找到思路找到答案 了

haoryh 发表于 2012-9-8 12:16:24

如何做到的？能共享下不？

vlisp2012 发表于 2012-9-8 18:37:58

就是啊，思路呢？

xyp1964 发表于 2012-9-8 18:49:55

;; 尺寸数值增减
;; 伪源码需要e派工具箱(XCAD)的支持
(defun c:tt ()
(CMDLA0)
(setq NO1 (UREAL 1 "" "增减数值" NO1))
(princ "\n选择尺寸标注: ")
(setq ss (ssget '((0 . "DIMENSION")))i-1)
(while (setq s1 (ssname ss (setq i (1+ i))))
    (xyp-SubUpd s1 1 (rtos (+ (xyp-dxf 42 s1) no1) 2 0))
)
(CMDLA1)
)

414249149 发表于 2024-9-3 23:46:27

有好思路的代码也分项下啊

查看完整版本: 能不能实现 标注尺寸 加减，请大侠给个思路？