复制到四角

726613

  图一


图二
         请问用什么方法将A复制到四角，程序应如何编写？

maiko

这个不就是四分之一镜像?

ZZXXQQ

2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (if (and (setq pt1 (getpoint "\n方框一角: "))
   
5.           (setq pt2 (getcorner pt1 "\n方框另一角: "))
   
6.           (princ "\n选择物体: ")
   
7.           (setq ss (ssget))) (progn
   
8.   (setq pm (mapcar '(lambda (a b) (/ (+ a b) 2)) pt1 pt2)
   
9.         p1 (polar pm 0 10)
   
10.         p2 (polar pm (/ pi 2) 10))
    
11.   (setq s1 (entlast) ss1 (ssadd))
    
12.   (command "_.MIRROR" ss "" pm p1 "N")
    
13.   (while (setq s1 (entnext s1)) (ssadd s1 ss1))
    
14.   (command "_.MIRROR" ss ss1 "" pm p2 "N")
    
15. ))
    
16. (setvar "CMDECHO" 1)
    
17. (princ)
    
18. )
    

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (if (and (setq pt1 (getpoint "\n方框一角: "))<br />           (setq pt2 (getcorner pt1 "\n方框另一角: "))<br />           (princ "\n选择物体: ")<br />           (setq ss (ssget))) (progn<br />   (setq pm (mapcar '(lambda (a b) (/ (+ a b) 2)) pt1 pt2)<br />         p1 (polar pm 0 10)<br />         p2 (polar pm (/ pi 2) 10))<br />   (setq s1 (entlast) ss1 (ssadd))<br />   (command "_.MIRROR" ss "" pm p1 "N")<br />   (while (setq s1 (entnext s1)) (ssadd s1 ss1))<br />   (command "_.MIRROR" ss ss1 "" pm p2 "N")<br /> ))<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )<br />

726613

ZZXXQQ 发表于 2013-5-22 22:55

谢谢版主指教，问题已解决

仲文玉

学会自己写才是正道，光是索取程序。。。。。。。。。。。。

zmzk

感谢分享， 有你更精彩

376394482

谢谢分享             .

dylovemm

应该再来个复制到对角lsp