矢量图形校正程序的修改

fdh

这是本人在网上下载的矢量图形校正程序，只能二点校正。在校正有些图形后，
图形变斜了。请高手把程序改成四点或多点图形校正的程序。

;图像校正的LSP
(defun c:txjz()
(setq pt1 (getPOINT "\n输入定向第一点假定坐标:"))
(setq pt3 (getpoint "\n输入定向第一点实际坐标:"))
(setq pt2 (getpoint "\n输入定向第二点假定坐标:"))
(setq pt4 (getpoint "\n输入定向第二点实际坐标:"))
(setq angl1 (angle pt1 pt2))
(setq l1(distance pt1 pt2))
(setq l2 (distance pt3 pt4))
(setq k(/ l2 l1))
(setq angl2 (angle pt3 pt4))
(setq angl3 (/ (* 180 (- angl2 angl1)) pi))
;(setq k (getreal "\n输入缩放系数:"))
;(setq pt5 (getpoint "\n中心点一下"))
(setq ss(ssget))
(command "rotate" ss "" pt1 angl3)
(command "move" "p" "" pt1 pt3)
(command "scale" "p" "" pt3 k)
)

lsjj

先關鎖點再説

fdh

楼上这位朋友，怎么说？

ZZXXQQ

fdh 发表于 2014-4-18 21:39
楼上这位朋友，怎么说？

(setvar "OSNAP" 0)
后再运行command

fdh

求高手指点呀？怎么到现在还没有高手给我修改程序？