[LISP程序]：如何批量改圆环大小

hisum

用filter命令全部选取圆，然后在属性编辑里修改半径值就可以了

liulzr

圆环不是圆，不能改半径的

cy956

你看一下pline圆环的实体数据，比如：

该实体数据en-lk为:
((-1 . <Entity name: 7ef7cf60>) (0 . LWPOLYLINE) (330 . <Entity name:
7ef78c10>) (5 . 1FFC) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 .
建筑面积框线) (100 . AcDbPolyline) (90 . 2) (70 . 1) (43 . 50.0) (38 . 0.0) (39
. 0.0) (10 72420.2 41999.7) (40 . 50.0) (41 . 50.0) (42 . 1.0) (10 80860.2
41999.7) (40 . 50.0) (41 . 50.0) (42 . 1.0) (210 0.0 0.0 1.0))

你只要能改两个dxf10就可以做到。

zxq0220

不改也行。
[php]
;批量改圆环大小 晓东 zxq0220 2007.12.30
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq oldos (getvar "OSMODE"))
(setq sc (getdist "\nScale :"))
(if (setq ss (ssget '((0 . "LWPOLYLINE") (70 . 1) (42 . 1.0)))) (progn
  (setvar "osmode" 0)
  (command ".UNDO" "BE")
  (setq i -1)
  (repeat (sslength ss)
   (setq en (ssname ss (setq i (1+ i)))
           ent (entget en)
           w (cdr (assoc 40 ent))
           pt (cdr (assoc 10 ent))
           pc (osnap pt "CEN")
           pt1 (polar pc (angle pc pt) (* (distance pc pt) sc)))
   (command "scale" en "" pc sc "pedit" pt1 "W" w "")
  )
  (command ".UNDO" "E")
  (setvar "osmode" oldos)
))
(setvar "CMDECHO" 1)
(princ)
)
[/php]

zxq0220

系统出错了！这回可以又发一个贴子。