726613 发表于 2013-5-22 22:10:17

复制到四角


图一


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

maiko 发表于 2013-5-22 22:53:31

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

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

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

726613 发表于 2013-5-22 23:03:25

ZZXXQQ 发表于 2013-5-22 22:55 static/image/common/back.gif


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

仲文玉 发表于 2013-5-22 23:08:26

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

zmzk 发表于 2023-1-10 11:06:54

感谢分享， 有你更精彩

376394482 发表于 2023-1-10 11:23:54

谢谢分享             .

dylovemm 发表于 2024-8-23 16:40:23

应该再来个复制到对角lsp:lol
页: [1]
查看完整版本: 复制到四角