图像两点校正

Lispboy

[sell=5]

1. (defun c:xdtb_image2pjz ( / e mat p1 p2 p3 p4)
   
2.   (if (and
   
3.         (setq e (car (xdrx_entsel "\n选取图像<退出>" '((0 . "image")))))
   
4.         (setq p1 (getpoint "\n源第一点<退出>:"))
   
5.         (setq p2 (getpoint p1 "\n源第二点<退出>:"))
   
6.         (setq p3 (getpoint "\n目标第一点<退出>:"))
   
7.         (setq p4 (getpoint p3 "\n目标第二点<退出>:"))
   
8.       )
   
9.     (progn
   
10.       (xdrx_begin)
    
11.       (xdrx_sysvar_push '(("osmode" 33)("orthomode" 0)))
    
12.       (setq p1 (trans p1 1 0)
    
13.             p2 (trans p2 1 0)
    
14.             p3 (trans p3 1 0)
    
15.             p4 (trans p4 1 0)
    
16.       )
    
17.       (setq mat (xdrx_matrix_align (list p1 p2) (list p3 p4) t))
    
18.       (xdrx_entity_transform e mat)
    
19.       (xdrx_draworder->back e)
    
20.       (xd::doc:command (list ".regen"))
    
21.       (xdrx_prompt "\n图像校正完毕.")
    
22.       (xdrx_sysvar_pop)
    
23.       (xdrx_end)
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )

(defun c:xdtb_image2pjz ( / e mat p1 p2 p3 p4)<br />   (if (and<br />         (setq e (car (xdrx_entsel "\n选取图像<退出>" '((0 . "image")))))<br />         (setq p1 (getpoint "\n源第一点<退出>:"))<br />         (setq p2 (getpoint p1 "\n源第二点<退出>:"))<br />         (setq p3 (getpoint "\n目标第一点<退出>:"))<br />         (setq p4 (getpoint p3 "\n目标第二点<退出>:"))<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (xdrx_sysvar_push '(("osmode" 33)("orthomode" 0)))<br />       (setq p1 (trans p1 1 0)<br />             p2 (trans p2 1 0)<br />             p3 (trans p3 1 0)<br />             p4 (trans p4 1 0)<br />       )<br />       (setq mat (xdrx_matrix_align (list p1 p2) (list p3 p4) t))<br />       (xdrx_entity_transform e mat)<br />       (xdrx_draworder->back e)<br />       (xd::doc:command (list ".regen"))<br />       (xdrx_prompt "\n图像校正完毕.")<br />       (xdrx_sysvar_pop)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )

[/sell]

WhoCanSay

楼主用的是哪个版本的google earth.我在win7 32下载了一个版本，怎么输入地址它不自动定位呢？

Lispboy

WhoCanSay 发表于 2016-6-17 12:10
楼主用的是哪个版本的google earth.我在win7 32下载了一个版本，怎么输入地址它不自动定位呢？

我用的不是GOOLGE EARCH下的地图，是专门的地图下载器下的。

据我的经验，不自动定位是因为你没翻墙的原因:lol，找个**下就能定位了。

xcxjxh@sohu.com

楼主用的是哪个版本的google earth.我在win7 32下载了一个版本，怎么输入地址它不自动定位呢？

land100

楼主用的是哪个版本的google earth.我在win7 32下载了一个版本，怎么输入地址它不自动定位呢？