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

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

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

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

游客，本帖隐藏的内容需要发帖数高于 3 才可浏览，你当前发帖数只有 0

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

)
  )
)

账号		自动登录	找回密码
密码			注册

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