把选中的圆替换为块~

jianlin521 · 发表于 2012-6-2 23:25:07

本帖最后由 jianlin521 于 2012-6-2 23:29 编辑

请高手帮忙，  现在这个lisp ,运行中，如过  用UCS 移动过坐标，它替换的块就会和所替换的圆偏很远~~~

(defun C:RM6 (/ ss i n ename edata pt)
  (setq ss (ssget '((0 . "CIRCLE"))))
  (if ss
(progn
   (setq i -1 n (sslength ss))
   (while (< (setq i (1+ i)) n)
      (setq ename (ssname ss i))
      (setq edata (entget ename))
      (setq pt (cdr (assoc 10 edata)))
      (command "insert" "M6" pT 1 1 0)
               (entdel ename)))))

uy62226562 · 发表于 2012-6-3 00:48:23

是真的把一个人全部的给遗失

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

把选中的圆替换为块~

相关帖子