liaobadadi 发表于 2010-11-16 21:05:00

[求助]~~~~~如何把一个块 替换成 圆 ，高手指点下，急啊~~~

LISP 中 如何把一个块 替换成 圆 （不是块），高手指点下，急啊<br/>LISP 中 如何把一个块 替换成 圆 （不是块），高手指点下，急啊<br/>LISP 中 如何把一个块 替换成 圆 （不是块），高手指点下，急啊<br/>LISP 中 如何把一个块 替换成 圆 （不是块），高手指点下，急啊<br/>

lenlenq 发表于 2010-11-16 21:20:00

&nbsp;得到块的插入点，删除块，新建圆<br/><br/>

ZZXXQQ 发表于 2010-11-17 19:58:00



;块替换成圆 明经 ZZXXQQ 2010.11.17
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (and (princ "\n选择图块 :") (setq ss (ssget '((0 . "INSERT"))))) (progn
(setq r (getdist "\n圆半径 :"))
(setq i 0)
(repeat (sslength ss)
   (setq ent (entget(ssname ss i))
         i (1+ i))
   (command ".CIRCLE" (cdr(assoc 10 ent)) r)
)
))
(princ)
)

0523 发表于 2012-5-1 00:57:01

来看看，我在找把图元替换成块

【KAIXIN】 发表于 2012-11-5 16:59:20

;批量块替换为圆
(defun C:XX( / i s1 ss)
(KX-COMA)   
(KX-princA "批量块替换为圆")
(KX-princ "块对象")
   (setq R (KX-Dist 7 "" "圆半径" R nil 1))
   (while (setq ss(ssget":s" '((0 . "INSERT"))))
             (setqi   -1)
    (while (setq s1 (ssname ss (setq i (1+ i))))
   (kx-mk-CIRCLE (KX-GET-S1-9PT S1 5) R)
    )
    (KX-E SS)
   )
(KX-COMB)
)
页: [1]
查看完整版本: [求助]~~~~~如何把一个块 替换成 圆 ，高手指点下，急啊~~~