更改圆的大小

pengfei2010

楼主代码写的太乱了

yxl88168

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

谢谢，我已经找、到了

yxl88168

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

谢谢大师指点，我试试看

xyp1964

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

就服能比这个乱的

xyp1964

1. (defun c:tt ()
   
2.   (setq i -1)
   
3.   (if (setq ss (ssget "X" '((0 . "CIRCLE"))))
   
4.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
5.       (cond ((equal (xyp-DXF 40 s1) 2.00005) (xyp-SubUpd s1 40 2))
   
6.             ((equal (xyp-DXF 40 s1) 2.50005) (xyp-SubUpd s1 40 2.5))
   
7.             ((equal (xyp-DXF 40 s1) 3.00005) (xyp-SubUpd s1 40 3))
   
8.             ((equal (xyp-DXF 40 s1) 3.50005) (xyp-SubUpd s1 40 3.5))
   
9.             ((equal (xyp-DXF 40 s1) 4.00005) (xyp-SubUpd s1 40 4))
   
10.             ((equal (xyp-DXF 40 s1) 4.50005) (xyp-SubUpd s1 40 4.5))
    
11.       )
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

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

yxl88168

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

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