fdh 发表于 2014-4-16 20:06:14

矢量图形校正程序的修改

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

;图像校正的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 发表于 2014-4-16 20:54:58

先關鎖點再説

fdh 发表于 2014-4-18 21:39:23

楼上这位朋友,怎么说?

ZZXXQQ 发表于 2014-4-19 07:54:03

fdh 发表于 2014-4-18 21:39 static/image/common/back.gif
楼上这位朋友,怎么说?

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

fdh 发表于 2014-4-23 20:33:05

求高手指点呀?怎么到现在还没有高手给我修改程序?
页: [1]
查看完整版本: 矢量图形校正程序的修改