如何旋转高程点时使高程点注记保持水平

yuanziyou

现有一数据文件dat,展点后,需要根据其中的2个坐标点做旋转操作,如何能保证旋转的时候高程点注记一直保持水平?现在的处理方法是,先旋转,然后分别更新点号层文字的旋转角度为0和高程点注记层的旋转角度为0.虽然功能已经实现,但有个问题就是高程点注记会压盖高程点,请问如何避免.
自己经过几天的摸索,总算找到了方法(主要就是旋转角和对齐点的问题),代码如下

2. (defun c:xz()
   
3.         (xx 100);旋转
   
4.         (dz 100);对齐属性
   
5. )
   
6. (defun xx(blc);修改属性块的旋转角(blc:比例尺)
   
7. (setq s1 (ssget "_X" '((8 . "GCD"))))
   
8. (setq i 0)
   
9. (repeat (sslength s1)
   
10.      (setq e (ssname s1 i)
    
11.              i (1+ i)
    
12.              e1 (entget e)
    
13.                 e2 (entget (entnext e));属性块的属性数据
    
14.         )
    
15.         (entmod (subst (cons 50 0) (assoc 50 e1) e1))
    
16.         (entmod (subst (cons 50 0) (assoc 50 e2) e2))
    
17.             (entupd e)
    
18.         (entupd (entnext e))
    
19. )
    
20. (princ)
    
21. )
    
22. (defun dz(blc);修改属性块对起点(blc:比例尺)
    
23. (setq s2 (ssget "_X" '((8 . "GCD"))))
    
24. (setq j 0)
    
25. (repeat (sslength s2)
    
26.      (setq e (ssname s2 j)
    
27.              j (1+ j)
    
28.              e1 (entget e)
    
29.                 p (cdr (assoc 10 e1));块的插入点
    
30.                 e2 (entget (entnext e))
    
31.                 p2 (list (+ (car p) (* 0.0012 blc)) (cadr p) (cadr p));属性文字的第二对起点
    
32.                 p1 (list (car p2) (- (cadr p2) (* 0.001 blc)) (caddr p2));属性文字的第一对起点
    
33.         )
    
34.         (entmod (subst (cons 10 p1) (assoc 10 e2) e2))
    
35.         (entmod (subst (cons 11 p2) (assoc 11 e2) e2))
    
36.         (entupd (entnext e))
    
37. )
    
38. (princ)
    
39. )

(defun c:xz()<br />         (xx 100);旋转<br />         (dz 100);对齐属性<br /> )<br /> (defun xx(blc);修改属性块的旋转角(blc:比例尺)<br /> (setq s1 (ssget "_X" '((8 . "GCD"))))<br /> (setq i 0)<br /> (repeat (sslength s1)<br />      (setq e (ssname s1 i)<br />              i (1+ i)<br />              e1 (entget e)<br />                 e2 (entget (entnext e));属性块的属性数据<br />         )<br />         (entmod (subst (cons 50 0) (assoc 50 e1) e1))<br />         (entmod (subst (cons 50 0) (assoc 50 e2) e2))<br />             (entupd e)<br />         (entupd (entnext e))<br /> )<br /> (princ)<br /> )<br /> (defun dz(blc);修改属性块对起点(blc:比例尺)<br /> (setq s2 (ssget "_X" '((8 . "GCD"))))<br /> (setq j 0)<br /> (repeat (sslength s2)<br />      (setq e (ssname s2 j)<br />              j (1+ j)<br />              e1 (entget e)<br />                 p (cdr (assoc 10 e1));块的插入点<br />                 e2 (entget (entnext e))<br />                 p2 (list (+ (car p) (* 0.0012 blc)) (cadr p) (cadr p));属性文字的第二对起点<br />                 p1 (list (car p2) (- (cadr p2) (* 0.001 blc)) (caddr p2));属性文字的第一对起点<br />         )<br />         (entmod (subst (cons 10 p1) (assoc 10 e2) e2)) <br />         (entmod (subst (cons 11 p2) (assoc 11 e2) e2))<br />         (entupd (entnext e))<br /> )<br /> (princ)<br /> )

poly168

是用CASS展的高程点吧？可以将这些高程点坐标保存后删除，再重新展点一次即可。

004

楼上的方法是一种，还可以用测站改正。

zjsmlzp

我的做法是：旋转后，检查高程值是否保持原样，然后用CASS重新生成数据进行展点，再核对高程值。

yuanziyou

poly168 发表于 2013-4-10 10:26
是用CASS展的高程点吧？可以将这些高程点坐标保存后删除，再重新展点一次即可。

手动的方法我也想到的:先高程点生成数据文件,然后再重新展点.
但是我想用lisp的方法实现,因为从原始数据到最后的成果的几乎都用代码实现了,就是压盖的问题还没能解决

poly168

因为我是VBA编写的，LISP我很整不来。我的步骤是：一、计算转换参数；二、选择集，我是点号、高程注记作为扩展属性附加到高程点上的块。可以用屏选控制也可以根据起始和终止点号控制要转换的坐标点数量，测量过程中可能会出现某天的数据定错向的情况，用点号控制比较方便。三、将选择集中的每一个点坐标和点号提取，然后删除这个点，将坐标转换后重展每一个点。展出来的点可以根据需要进行旋转或水平放置。

poly168

你要的是不是这样的功能啊图片

╰☆珊瑚玉ヤ

poly168 发表于 2013-6-7 10:38
你要的是不是这样的功能啊图片

欢迎分享
软件界面挺好看的