批量更新圆的半径

hhh454

1. ;;;代码功能：批量更新圆的半径.lsp
   
2. ;;;代码含有多选对象批量单处理
   
3. ;;;代码含有多选特定对象
   
4. ;;;代码含有命令行显示处理结果
   
5. ;;;春婵写于20231103
   
6. (defun c:tt (/ newr ss n i ngc_ss)
   
7.   (setq newr (getreal "输入新半径："));;;程序开始
   
8.   (setq ss (ssget '((0 . "CIRCLE"))));;;取得圆选择集ss
   
9.   (setq n (sslength ss))
   
10.   (setq i 0)
    
11.   (while (< i n)
    
12.     (progn
    
13.       (setq ngc_ss (ssname ss i));;;取得选择集内第0个图元名称
    
14.       (Vlax-Put-Property (Vlax-Ename->Vla-Object ngc_ss) 'Radius newr);;;这里的newr是新的半径
    
15.       (setq i (1+ i));;;while循环条件
    
16.     );;;end progn
    
17.   );;;endwhile
    
18. (princ (strcat "\n共更新了<"(itoa n)">个圆，新半径="(rtos newr)))
    
19. (princ)
    
20. )
    

;;;代码功能：批量更新圆的半径.lsp<br /> ;;;代码含有多选对象批量单处理<br /> ;;;代码含有多选特定对象<br /> ;;;代码含有命令行显示处理结果<br /> ;;;春婵写于20231103<br /> (defun c:tt (/ newr ss n i ngc_ss)<br />   (setq newr (getreal "输入新半径："));;;程序开始<br />   (setq ss (ssget '((0 . "CIRCLE"))));;;取得圆选择集ss<br />   (setq n (sslength ss))<br />   (setq i 0)<br />   (while (< i n)<br />     (progn<br />       (setq ngc_ss (ssname ss i));;;取得选择集内第0个图元名称<br />       (Vlax-Put-Property (Vlax-Ename->Vla-Object ngc_ss) 'Radius newr);;;这里的newr是新的半径<br />       (setq i (1+ i));;;while循环条件<br />     );;;end progn<br />   );;;endwhile<br /> (princ (strcat "\n共更新了<"(itoa n)">个圆，新半径="(rtos newr)))<br /> (princ)<br /> )<br />

源码和上面的是一样的，代码包含基础处理，学习备用

xyp1964

(defun c:tt ()
  "批量更新圆或圆弧的半径"
  (setq rr (Ureal 7 "" "新半径" rr))
   (while (setq ss (ssget '((0 . "CIRCLE,ARC"))))
    (xyp-SubUpd ss 40 rr)
   )
  (princ)
)

LYC688

xyp1964 发表于 2023-11-4 09:52
(defun c:tt ()
  "批量更新圆或圆弧的半径"
  (setq rr (Ureal 7 "" "新半径" rr))

(defun c:11 ()
  "批量更新圆或圆弧的半径"
  (setq rr (getreal "输入新半径："))
  (while (setq ss (ssget '((0 . "CIRCLE,ARC"))))
    (xyp-SubUpd ss 40 rr)
  )
  (princ)
)

(defun xyp-SubUpd (ename code val / ent x y i s1)
  (cond
    ((= (type ename) 'ENAME)
     (setq ent (entget ename))
     (if (and (= (type code) 'LIST) (= (type val) 'LIST))
       (mapcar '(lambda (x y) (xyp-SubUpd ename x y)) code val)
       (progn (if (= (xyp-dxf code ename) nil)
                (entmod (append ent (list (cons code val))))
                (entmod (subst (cons code val) (assoc code ent) ent))
              )
              (entupd ename)
       )
     )
    )
    ((= (type ename) 'PICKSET)
     (setq i -1)
     (while (setq s1 (ssname ename (setq i (1+ i))))
       (xyp-SubUpd s1 code val)
     )
    )
    ((= (type ename) 'LIST)
     (foreach s1 ename (xyp-SubUpd s1 code val))
    )
  )
  ename
)

(defun xyp-dxf (code ename / ent lst a)
  (if (= (type code) 'list)
    (progn (setq ent (entget ename))
           (setq lst nil)
           (foreach a code
             (setq lst (cons (list a (cdr (assoc a ent))) lst))
           )
           (reverse lst)
    )
    (progn (if (= code -3)
             (progn (cdr (assoc code (entget ename '("*")))))
             (progn (cdr (assoc code (entget ename))))
           )
    )
  )
)

LYC688

hhh454 发表于 2023-11-4 13:49
需要加载院长的自定函数，论坛里面有

是这个函数吗？
(defun xyp-SubUpd (ename code val / ent x y i s1)

(cond ((= (type ename) 'ENAME)

(setq ent (entget ename))

(if (and (= (type code) 'LIST) (= (type val) 'LIST))

(mapcar '(lambda (x y) (xyp-SubUpd ename x y)) code val)

(progn

(if (= (xyp-dxf code ename) nil)

(entmod (append ent (list (cons code val))))

(entmod (subst (cons code val) (assoc code ent) ent))

)

(entupd ename)

)

)

)

((= (type ename) 'PICKSET)

(setq i -1)

(while (setq s1 (ssname ename (setq i (1+ i))))

(xyp-SubUpd s1 code val)

)

)

((= (type ename) 'LIST)

(foreach s1 ename (xyp-SubUpd s1 code val))

)

)

ename

)

haoxuan

很实用，小白一枚，向大佬学习

菜鸟初来乍到

感谢楼主分享

菜鸟初来乍到

xyp1964 发表于 2023-11-4 09:52
(defun c:tt ()
  "批量更新圆或圆弧的半径"
  (setq rr (Ureal 7 "" "新半径" rr))

感谢大佬分享

vista228

xyp1964 发表于 2023-11-4 09:52
(defun c:tt ()
  "批量更新圆或圆弧的半径"
  (setq rr (Ureal 7 "" "新半径" rr))

版主2024，用不了，AutoCAD 变量设置被拒绝: "osmode" nil

hhh454

vista228 发表于 2023-11-4 13:21
版主2024，用不了，AutoCAD 变量设置被拒绝: "osmode" nil

需要加载院长的自定函数，论坛里面有

harderman

感谢楼主分享

vista228

hhh454 发表于 2023-11-4 13:49
需要加载院长的自定函数，论坛里面有

好的，谢谢楼主

LYC688

hhh454 发表于 2023-11-4 13:49
需要加载院长的自定函数，论坛里面有

没有找到这个函数啊。xyp-SubUpd