[求助]：想知道下面这个lisp应该怎么用？

zhangjianlin

我在本论坛看到了这个地形图初探的文章，觉得很有用，但是不知道下面这个步骤是如何进行的，谢了！

利用以下Autolisp程序，通过对图象平移，旋转，放缩，使其定向：


(defun c:dingxiang ()

;(setq wucha (getreal"请输入允许检核点位误差:");可据要求调整

(setq wucha 0.001

real_wucha

1

)

(print "请选择要定向图形：")

(setq image_sel (ssget)

image_p1 (getpoint "请输入第一定向点:")

)

(while (and (> real_wucha wucha) (/= image_p1 nil))

(setq ordi_p1 (getpoint "请输入第一定向点坐标:")

image_p2 (getpoint "请输入第二定向点:")

ordi_p2 (getpoint "请输入第二定向点坐标:")

move_dist (list (- (car ordi_p1) (car image_p1))

(- (cadr ordi_p1) (cadr image_p1))

)

image_angle (angle image_p1 image_p2)

ordi_angle (angle ordi_p1 ordi_p2)

rota_angel (- ordi_angle image_angle)

bili (/ (distance ordi_p1 ordi_p2)

(distance image_p1 image_p2)

)

)

(command "move" image_sel "" move_dist "")

(command "rotate" image_sel "" ordi_p1 rota_angle)

(command "scale" image_sel "" ordi_p1 bili)

(setq image_p3 (getpoint "请输入检核点:")

ordi_p3 (getpoint "请输入检核点坐标:")

real_wucha (/ (distance image_p3 ordi_p3)

(distance ordi_p1 ordi_p2)

)

)

(if (> real_wucha wucha)

(setq image_p1

(getpoint "定向误差超限请输入第一定向点<回车结束定向>:"

)

)

(print "定向完毕!!!")

) ;if

) ;while

) ;defun

自由的鱼

是不是卫片纠正用的？定位点可能就是像控点！

zhangjianlin

可以说明白点吗？恕我笨，看不明白！谢了！

自由的鱼

我也不是很懂，看程序很象完成那个功能的，你要问问读航测的人，他们比较清楚！

zhangjianlin

没有人可以告诉我吗？我急着用！

zk_hisen

看不懂，不是这个专业的。根本就没有那个概念啊。帮不了你了。

它山之石

既然是在本论坛看到的，最好是问发帖人。发悄悄话给他。

zxf309

这个应该是卫星图片或者扫描图的纠正程序吧。
将卫星图片或扫描图片上的特征点或者控制点（这些点坐标已知）与CAD中的坐标符合，从而定位、纠正图片，然后进行数字化或者其他工作。