jidian24 发表于 2011-4-2 23:06:31

求将所有直径6的圆转变为M6的符号lisp

求将所有直径6的圆转变为M6的符号lisp源码，想了很久没搞定。请高手帮忙！

ZZXXQQ 发表于 2011-4-2 23:23:27


(defun c:tt ()
(if (setq ss (ssget '((0 . "DIMENSION") (70 . 35) (42 . 6.0)))) (progn
(setq i 0)
(repeat (sslength ss)
   (setq ent (entget(ssname ss i))
         ent (subst '(1 . "M6") (assoc 1 ent) ent))
   (entmod ent)
   (setq i (1+ i))
)
))
(princ)
)

lenlenq 发表于 2011-4-4 20:48:11

(defun c:tt (/ EN EN1 ENT I P SS)
(if (setq en1 (car (entsel "请选择M6块图形:")))
    (if        (setq ss (ssget '((0 . "circle") (40 . 3))))
      (progn (setq i 0)
             (repeat (sslength ss)
             (setq ent (entget (setq en (ssname ss i)))
                     p       (assoc 10 ent)
             )
             (entmake (list '(0 . "insert") '(2 . "M6") p))
             (entdel en)
             (setq i (1+ i))
             )
      )

    )
)
)
页: [1]
查看完整版本: 求将所有直径6的圆转变为M6的符号lisp