如图中已经存在一个圆形，求输入tt，提示输入距离就是红色那个地方的距离然后画矩形

664571221

如图中已经存在一个圆形，求输入tt，提示输入距离就是红色那个地方的距离然后画矩形，圆有多个，最好可以批量

lch8526

看看是不是想这样

664571221

lch8526 发表于 2018-11-27 11:34
看看是不是想这样

你好是的，能否传下程序

Gu_xl

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq ss (ssget '((0 . "circle"))))
   
4.         (setq d (getreal "\n输入距离:"))
   
5.       )
   
6.     (repeat (setq n (sslength ss))
   
7.       (setq el (entget (ssname ss (setq n (1- n))))
   
8.             pt (cdr (assoc 10 el))
   
9.             r  (cdr (assoc 40 el))
   
10.             p1 (trans (list (- (car pt) d r) (- (cadr pt) d r) 0) 0 1)
    
11.             p2 (trans (list (+ (car pt) d r) (+ (cadr pt) d r) 0) 0 1)
    
12.       )
    
13.       (command "_rectang" "_non" p1 "_non" p2)
    
14. 
    
15.     )
    
16.   )
    
17.   (princ)
    
18. )

(defun c:tt ()<br />   (if (and<br />         (setq ss (ssget '((0 . "circle"))))<br />         (setq d (getreal "\n输入距离:"))<br />       )<br />     (repeat (setq n (sslength ss))<br />       (setq el (entget (ssname ss (setq n (1- n))))<br />             pt (cdr (assoc 10 el))<br />             r  (cdr (assoc 40 el))<br />             p1 (trans (list (- (car pt) d r) (- (cadr pt) d r) 0) 0 1)<br />             p2 (trans (list (+ (car pt) d r) (+ (cadr pt) d r) 0) 0 1)<br />       )<br />       (command "_rectang" "_non" p1 "_non" p2) <br /> <br />     )<br />   )<br />   (princ)<br /> )

664571221

Gu_xl 发表于 2018-11-27 13:35

谢谢G版主，非常感谢