施工坐标转成大地坐标？

树櫴希德

假如我们把地下室和每层平面图各自设置一个用户坐标（用户坐标才是大坐标），就可以大坐标直接放线了，现在的CAD放线软件都能识别多个UCS，是不是很爽

1. (defun vxs (e / i v lst)
   
2.     (setq i -1)
   
3.     (while
   
4.        (setq v   (vlax-curve-getpointatparam e (setq i (1+ i))))
   
5.        (setq lst (cons v lst))
   
6.     )
   
7.     (reverse lst)
   
8.   )
   
9. 
   
10. 
    
11. (defun c:zb123 (/ p1 p2 p3 p4 yuandian fxdian xbzx bz UCSColl origin xAxisPnt yAxisPnt ucsObj)
    
12. 
    
13. (VL-LOAD-COM)
    
14. 
    
15. (setq xbzx (getstring "\n请输入新坐标系的名称：")   )
    
16. (setq bz(getvar "osmode"))
    
17.    
    
18. ;(command "_.pline" '(0.0000 0 0) '(100.000 0 0) "")
    
19. (setq p1 (getpoint "\n请点击广州坐标源点1: "))
    
20. (setq p2 (getpoint "\n请点击广州坐标源点2: "))
    
21.   (command "_.pline" '(0.0000 0 0) (list (* 1000(distance p1 p2)) 0 0) "")
    
22. (setq p3 (getpoint "\n请点击施工坐标源点1 :"))
    
23. (setq p4 (getpoint "\n请点击施工坐标源点2 :"))
    
24. (command "_.align" (entlast) ""  p1 p3 p2 p4 "" "n" )
    
25. (setq yuandian (car (vxs (entlast))))
    
26. (setq fxdian (cadr (vxs (entlast))))
    
27.   ;(setq yuandian (cdr(assoc 10 (entget(entlast)))) )
    
28. ;(setq fxdian (cdr(assoc 11 (entget(entlast)))) )
    
29. 
    
30. 
    
31.   (setvar "osmode" 0)
    
32. (vl-cmdf "_.ucs" "3p" yuandian  fxdian  "" )
    
33. 
    
34.   ;(vl-cmdf "_.ucs"  "ob" (mapcar '* '(0.5 0.5 )  (mapcar '+ yuandian fxdian) )    )
    
35. (command "_.ucs" "na" "s" xbzx )
    
36.   (setvar "osmode" bz)
    
37.   ;(command "_.plan" "c")
    
38.   (entdel (entlast))
    
39. (command "_.ucs" "w"  )  
    
40. (princ)
    
41. )

(defun vxs (e / i v lst)<br />     (setq i -1)<br />     (while<br />        (setq v   (vlax-curve-getpointatparam e (setq i (1+ i))))<br />        (setq lst (cons v lst))<br />     )<br />     (reverse lst)<br />   )<br /> <br /> <br /> (defun c:zb123 (/ p1 p2 p3 p4 yuandian fxdian xbzx bz UCSColl origin xAxisPnt yAxisPnt ucsObj)<br /> <br /> (VL-LOAD-COM)<br /> <br /> (setq xbzx (getstring "\n请输入新坐标系的名称：")   )<br /> (setq bz(getvar "osmode")) <br />     <br /> ;(command "_.pline" '(0.0000 0 0) '(100.000 0 0) "")<br /> (setq p1 (getpoint "\n请点击广州坐标源点1: "))<br /> (setq p2 (getpoint "\n请点击广州坐标源点2: "))<br />   (command "_.pline" '(0.0000 0 0) (list (* 1000(distance p1 p2)) 0 0) "")<br /> (setq p3 (getpoint "\n请点击施工坐标源点1 :"))<br /> (setq p4 (getpoint "\n请点击施工坐标源点2 :"))<br /> (command "_.align" (entlast) ""  p1 p3 p2 p4 "" "n" )<br /> (setq yuandian (car (vxs (entlast))))<br /> (setq fxdian (cadr (vxs (entlast))))<br />   ;(setq yuandian (cdr(assoc 10 (entget(entlast)))) )<br /> ;(setq fxdian (cdr(assoc 11 (entget(entlast)))) )<br /> <br /> <br />   (setvar "osmode" 0)<br /> (vl-cmdf "_.ucs" "3p" yuandian  fxdian  "" )<br /> <br />   ;(vl-cmdf "_.ucs"  "ob" (mapcar '* '(0.5 0.5 )  (mapcar '+ yuandian fxdian) )    )<br /> (command "_.ucs" "na" "s" xbzx )<br />   (setvar "osmode" bz)<br />   ;(command "_.plan" "c")<br />   (entdel (entlast))<br /> (command "_.ucs" "w"  )  <br /> (princ)<br /> )