社区 › AutoLISP/Visual LISP 编程技术 › 更改圆的大小

pengfei2010 发表于 2019-1-26 13:27:44

楼主代码写的太乱了

yxl88168 发表于 2019-1-27 10:09:10

xyp1964 发表于 2019-1-25 21:14
xyp-SubUpd属于开源函数

谢谢，我已经找、到了

yxl88168 发表于 2019-1-27 10:10:42

前生 发表于 2019-1-26 00:14
像你那个元整直径的。又有条件选择的直接做个计算就好
R为以前实际的半径。
(setq r-nea(read (rtos r...

谢谢大师指点，我试试看

xyp1964 发表于 2019-1-27 16:43:57

yxl88168 发表于 2019-1-27 10:09
谢谢，我已经找、到了

就服能比这个乱的

xyp1964 发表于 2019-1-27 16:53:12

(defun c:tt ()
(setq i -1)
(if (setq ss (ssget "X" '((0 . "CIRCLE"))))
    (while (setq s1 (ssname ss (setq i (1+ i))))
      (cond ((equal (xyp-DXF 40 s1) 2.00005) (xyp-SubUpd s1 40 2))
          ((equal (xyp-DXF 40 s1) 2.50005) (xyp-SubUpd s1 40 2.5))
          ((equal (xyp-DXF 40 s1) 3.00005) (xyp-SubUpd s1 40 3))
          ((equal (xyp-DXF 40 s1) 3.50005) (xyp-SubUpd s1 40 3.5))
          ((equal (xyp-DXF 40 s1) 4.00005) (xyp-SubUpd s1 40 4))
          ((equal (xyp-DXF 40 s1) 4.50005) (xyp-SubUpd s1 40 4.5))
      )
    )
)
(princ)
)

yxl88168 发表于 2019-1-28 12:07:20

xyp1964 发表于 2019-1-27 16:53


这个不错，更简洁了，谢谢院长

查看完整版本: 更改圆的大小