yxl88168 发表于 2019-1-25 09:14:56

更改圆的大小

本帖最后由 yxl88168 于 2019-1-25 10:01 编辑

想要把 4.0001的孔改成4.0000的，把5.0001的孔改成5.0000，把6.0001的孔改成6.0000，把7.0001的孔改成7.0000，写了个程序 ，他只把最后一行的那个7.0001的改了，其它的没有改，请问高手帮忙指点一下，谢谢了

(defun c:rr10 ()
;;;改4个的
(setq aa(ssget"X"'(
(0 . "CIRCLE")
(-4 . "=")
(40 . 2.00005)
)))
(setq d 4)
(setq r (/ d 2))
(setq n 0)
(setq c 0)
    (while (<= c (-(sslength ss) 1))
      (setq e (ssname ss c))
      (command "change" e "" "" r)
      (setq c (+ 1 c)))

;;;改5个的
(setq aa(ssget"X"'(
(0 . "CIRCLE")
(-4 . "=")
(40 . 2.50005)
)))
(setq d 5)
(setq r (/ d 2))
(setq n 0)
(setq c 0)
    (while (<= c (-(sslength ss) 1))
      (setq e (ssname ss c))
      (command "change" e "" "" r)
      (setq c (+ 1 c)))

;;;改6个的
(setq aa(ssget"X"'(
(0 . "CIRCLE")
(-4 . "=")
(40 . 3.00005)
)))
(setq d 6)
(setq r (/ d 2))
(setq n 0)
(setq c 0)
    (while (<= c (-(sslength ss) 1))
      (setq e (ssname ss c))
      (command "change" e "" "" r)
      (setq c (+ 1 c)))

;;;改7个的
(setq aa(ssget"X"'(
(0 . "CIRCLE")
(-4 . "=")
(40 . 3.50005)
)))
(setq d 7)
(setq r (/ d 2))
(setq n 0)
(setq c 0)
    (while (<= c (-(sslength ss) 1))
      (setq e (ssname ss c))
      (command "change" e "" "" r)
      (setq c (+ 1 c)))
(princ))

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

start4444 发表于 2019-1-25 10:56:03

本帖最后由 start4444 于 2019-1-25 11:49 编辑

你的选集变量是aa，后面变了ss，前后不一致
建议改成输入直径就能通用了:

(defun c:tt5(/ ss d0 d c e)
(setq d0 (getreal"\n请输入旧直径：") d (getreal"\n请输入新直径："))      
(setq ss(ssget   (list '(0 . "CIRCLE")(cons 40 (/ d0 2)))))
(setq c 0)
    (while (<= c (-(sslength ss) 1))
      (setq e (ssname ss c))
      (command "change" e "" "" (/ d 2))
      (setq c (+ 1 c)))
(princ)

)


xyp1964 发表于 2019-1-25 12:38:39

(defun c:tt ()
(if (setq ss (ssget "X" '((0 . "CIRCLE") (40 . 2.00005))))
    (xyp-SubUpd ss 40 2.0)
)
(if (setq ss (ssget "X" '((0 . "CIRCLE") (40 . 2.50005))))
    (xyp-SubUpd ss 40 2.5)
)
(if (setq ss (ssget "X" '((0 . "CIRCLE") (40 . 3.00005))))
    (xyp-SubUpd ss 40 3.0)
)
(if (setq ss (ssget "X" '((0 . "CIRCLE") (40 . 3.50005))))
    (xyp-SubUpd ss 40 3.5)
)
(princ)
)

mikewolf2k 发表于 2019-1-25 11:52:47

如果只是需要操作，按条件选择，在属性框里直接修改即可。

yxl88168 发表于 2019-1-25 13:06:39

xyp1964 发表于 2019-1-25 12:38


院长这个就是牛，要是能把你这个函数一起放在这程序里就发了:loveliness:

yxl88168 发表于 2019-1-25 13:08:23

start4444 发表于 2019-1-25 10:56
你的选集变量是aa，后面变了ss，前后不一致
建议改成输入直径就能通用了:



因为是固定的几个孔，所以想搞成自动的，不用每次都自己输入的，

yxl88168 发表于 2019-1-25 17:01:12

都去那里了呢，有帮忙搞一下的吗

xyp1964 发表于 2019-1-25 21:14:51

yxl88168 发表于 2019-1-25 13:06
院长这个就是牛，要是能把你这个函数一起放在这程序里就发了

xyp-SubUpd属于开源函数

前生 发表于 2019-1-26 00:09:22

yxl88168 发表于 2019-1-25 17:01
都去那里了呢，有帮忙搞一下的吗

改圆的直径或或者半径。可以用 entmod 来弄。
以及 (vla-put-Radius (vlax-ename->vla-object en) e) --->en为实体名， E为半径。

前生 发表于 2019-1-26 00:14:40

像你那个元整直径的。又有条件选择的直接做个计算就好
R为以前实际的半径。
(setq r-nea(read (rtos r 2 2)))
页: [1] 2
查看完整版本: 更改圆的大小