linx1314 发表于 2008-8-16 22:24:00

[求助]高手进来!两点之中点镜像?

由于工作原因,现请高手为我解决下,在此先谢谢!镜像时,我要两点之中点镜像!请教高手如何解决啊?如有疑问,请Q我262022875!

ZZXXQQ 发表于 2008-8-19 22:28:00

本帖最后由 ZZXXQQ 于 2020-8-23 00:06 编辑



;两点中点镜像 明经 ZZXXQQ 2008.8.19
(defun c:tt ()
(setvar "CMDECHO" 0)
(if (and (setq ss (ssget))
      (setq pt1 (getpoint "\nFirst Point :"))
      (setq pt2 (getpoint "\nSecand Point :"))
   ) (progn
(setq ang (angle pt1 pt2)
      dst (distance pt1 pt2)
      ptm (polar pt1 ang (/ dst 2))
      ptm1 (polar ptm (+ (/ pi 2) ang) dst))
(command ".mirror" ss "" ptm ptm1 "n")
))
(setvar "CMDECHO" 1)
(princ)
)

magicheno 发表于 2020-8-22 19:00:27

ZZXXQQ 发表于 2008-8-19 22:28


Z版这个镜像很好用啊，就是第二点，能识别第一点后延伸出来的捕捉就好了，类似原有一条线A，然后命令pline点任意一点，再点A线上的一点，可以识别和低一点是不是垂足的关系，这样就好了，因为有时候点的两点和对象不是垂足关系，这样就镜像过去就歪掉了

OooCcc 发表于 2020-4-23 16:59:10

楼主你太牛B啊,呵呵,谢谢!找了那么久,终于找到!感谢你的无私奉献!

ZZXXQQ 发表于 2008-8-17 09:51:00

两点中点只是一点，镜像要两点。是与两点垂直吗？

linx1314 发表于 2008-8-19 12:32:00

是啊,可以做到吗!如果可以的话,请帮我写下啊,谢谢啦!工作需要啊,急啊!

linx1314 发表于 2008-8-20 15:24:00

楼主你太牛B啊,呵呵,谢谢!找了那么久,终于找到!感谢你的无私奉献!

linx1314 发表于 2008-8-20 16:33:00

再进来顶一下啊,使用一下,<strong><font face="Verdana" color="#da2549">ZZXXQQ,你太厉害啦,再次谢谢你啊!</font></strong>

yetianyemy 发表于 2010-6-24 23:03:00

谢了

yetianyemy 发表于 2010-6-24 23:06:00

值得顶起。

yetianyemy 发表于 2010-6-24 23:23:00

继续顶。。

clf5151 发表于 2010-6-28 17:37:00

<p>都是高手啊！</p>
页: [1] 2 3
查看完整版本: [求助]高手进来!两点之中点镜像?