给块加上一个圆

357785513

大家好.我想要一个程序.首先执行某个命令.再选择多个任意块.然后回车.这些块就加上了一个圆圈.圆圈不到块里面,圆圈大小可以手输入.层可以在0层或者,当前层,请问那位高手能做到吗.好烦.公司最近老让我给这些块画一个个圆圈

caoyin

(defun c:tt (/ s d i)
  (if (and (setq s (ssget '((0 . "insert"))))
           (setq d (getdist "\n指定圆直径: "))
      )
    (repeat (setq i (sslength s))
      (setq p (cdr (assoc 10 (entget (ssname s (setq i (1- i)))))))
      (entmake (list '(0 . "circle") (cons 10 p) (cons 40 (/ d 2.))))
    )
  )
  (princ)
)

357785513

谢谢谢谢.实在感谢.要是那么多,我加一个月也加不完.

357785513

对了.能不能增强它的功能.比如说.我先用过滤器选择这些块.再用这个程序.能加上圆不

jxlsp

(defun c:tt (/ s d i)(COMMAND"PAN"'(0 0)'(0 0))
  (if (and (setq s (ssget "P"))
           (setq d (getdist "\n指定圆直径: "))
      )
    (repeat (setq i (sslength s))
      (setq p (cdr (assoc 10 (entget (ssname s (setq i (1- i)))))))
      (entmake (list '(0 . "circle") (cons 10 p) (cons 40 (/ d 2.))))
    )
  )
  (princ)
)

wutao8282

jxlsp 发表于 2008-11-2 10:57
(defun c:tt (/ s d i)(COMMAND"PAN"'(0 0)'(0 0))  (if (and (setq s (ssget "P"))  &nbsp ...

老师您好！如果直径改成插入指定半径的圆怎么改呢？请指教