请求高手帮忙，自动在框选的2点处各自设定的距离生成一个孔！

xieling888

xieling888

补充：生成的第一个孔是第一点的相对位置(X20,Y-2)      
         生成的第二个孔是第二个孔的相对位置(X-20,Y2)

请高手帮忙解决下，谢谢！

xieling888

请求高手帮忙写个LISP程序，谢谢！

zyhandw

不是吧，这个很简单啊，入门的人应该还难自己写出来！
帮你写一个简单的吧，命令是test，代码如下：

2. (defun c:test()
   
3.     (setq pt1 (getpoint "\n请指定第一点:") pt2 (getpoint "\n请指定第二点:"))
   
4.         (setq cir1 (list (+ (car pt1) 20.0) (- (cadr pt1) 2.0)))
   
5.         (setq cir2 (list (- (car pt2) 20.0) (+ (cadr pt2) 2.0)))
   
6.         (command "circle" cir1 0.5)
   
7.         (command "circle" cir2 0.5)
   
8.                 (command "rectangle" pt1 pt2)
   
9.         (princ)
   
10. )

(defun c:test()<br />     (setq pt1 (getpoint "\n请指定第一点:") pt2 (getpoint "\n请指定第二点:"))<br />         (setq cir1 (list (+ (car pt1) 20.0) (- (cadr pt1) 2.0)))<br />         (setq cir2 (list (- (car pt2) 20.0) (+ (cadr pt2) 2.0)))<br />         (command "circle" cir1 0.5)<br />         (command "circle" cir2 0.5)<br />                 (command "rectangle" pt1 pt2)<br />         (princ)<br /> )

xieling888

zyhandw 发表于 2012-4-6 15:28
不是吧，这个很简单啊，入门的人应该还难自己写出来！
帮你写一个简单的吧，命令是test，代码如下：

非常感谢！好人啊

zyhandw

呵呵，不用客气，举手之劳而已！！