[编程申请]：拷贝后标高更新程序

coolzhb

标高是一个组，当标高copy后，希望有一个lisp程序，能自动更新的标高数值！

    具体的步骤和想法：

    1。框选标高；
    2。根据标高数值的组名，读出同组中bg_line图层中line的Y坐标；
    3。用此Y坐标更新标高数值！

    图纸详见附件！

eachy

最初由 coolzhb 发布
[B]标高是一个组，当标高copy后，希望有一个lisp程序，能自动更新的标高数值！

    具体的步骤和想法：

    1。框选标高；
    2。根据标高数值的组名，读出同组中bg_line图层中line的Y坐标；
    3。用此Y坐标... [/B]

CAD工具论坛有个类似功能的程序“关联标高”

coolzhb

我知道的，但是那个标高程序不能在R14中使用，再说如果别人画好的图，需要修改的话，就得利用标高更新程序了！

eachy

最初由 coolzhb 发布
[B]我知道的，但是那个标高程序不能在R14中使用，再说如果别人画好的图，需要修改的话，就得利用标高更新程序了！ [/B]

1 组并不可靠，有时会丢失
2 如果是属性块可以单独写命令移动拷贝，提取其插入点
3 如果单独修改一个标高（只选择两个实体），不用那么麻烦

coolzhb

最初由 eachy 发布
[B]
1 组并不可靠，有时会丢失
2 如果是属性块可以... [/B]

“ 组并不可靠，有时会丢失”
＝》如果不通过组获得相关信息，还有办法通过程序能实现标高的更新吗？

“如果是属性块可以单独写命令移动拷贝，提取其插入点属性块编程”
＝>读插入点是可以的，如果程序不能对形成组的标高更新，我就将我的标高程序由组改成属性块！

“如果单独修改一个标高（只选“择两个实体），不用那么麻烦”
＝》不是单独修改一个标高，一般情况有很多的标高要修改！现在我们都是手工修改的！

eachy

文字和线有什么特性吗？
不用块的话，可以根据线的位置构造一个框来选择文字，但是文字有重叠时就不对了。
别人画的图有规律吗？步骤太多还不如用属性块批量插入然后删除其他的。

coolzhb

最初由 eachy 发布
[B]文字和线有什么特性吗？
不用块的话，可以根据线的位置构造一个框来选择文字，但是文字有重叠时就不对了。
别人画的图有规律吗？步骤太多还不如用属性块批量插入然后删除其他的。 [/B]

根据线的位置构造一个框来选择文字，这个方法不错，文字不会有重叠的，别人图中的标高都是统一的。线和文字的关系看我附件中的dwg。而且线和文字都有用不同的层表示！

eachy

最初由 coolzhb 发布
[B][QUOTE]最初由 eachy 发布
[B]文字和线有什么特性吗？
不用块的话，可以根据线的位置构造一个框来选择文字，但是文字有重叠时就不对了。
别人画的图有规律吗？步骤太多还不如用属性块批量插入然后删除其他... [/B]

仅用Lisp实在不爽，给你个参考，排序函数是一位网友提供

2. 
   
3. ;(xl-sort '(2 9 3 -1 6) '<) -> (-1 2 3 6 9)
   
4. ;(xl-sort '(-1 3 -1 3 3 9) '<) -> (-1 -1 3 3 3 9)
   
5. (defun xl-sort (lst fun / k lst2 nlst)
   
6.   (foreach n lst
   
7.     (setq k    T
   
8.           lst2 (apply 'append
   
9.                       (mapcar '(lambda (x)
   
10.                                  (if
    
11.                                    (and K ((eval fun) n x))
    
12.                                     (progn (setq k nil) (list n x))
    
13.                                     (list x)
    
14.                                  )
    
15.                                )
    
16.                               nlst
    
17.                       )
    
18.                )
    
19.           nlst (if K
    
20.                  (append lst2 (list n))
    
21.                  lst2
    
22.                )
    
23.     )
    
24.   )
    
25. )
    
26. (defun c:test (/ p1 p2 s1 s2 n1 n2 e1 e2 ylst tlst tlst1)
    
27.   (if (and (setq p1 (getpoint "\n第一角点: "))
    
28.            (setq p2 (getcorner p1 "\n对角点: "))
    
29.       )
    
30.     (progn
    
31.       (setq s1 (ssget "_C" p1 p2 '((0 . "line") (8 . "BG_LINE")))
    
32.             s2 (ssget "_C" p1 p2  '((0 . "text") (8 . "BG_text")))
    
33.             n1 (sslength s1)
    
34.             n2 (sslength s2)
    
35.       )
    
36.       (while (> n1 0)
    
37.         (setq e1 (ssname s1 (setq n1 (1- n1)))
    
38.               y         (caddr (assoc 10 (entget e1)))
    
39.         )
    
40.         (setq ylst (cons y ylst))
    
41.       )
    
42.       (while (> n2 0)
    
43.         (setq e2   (ssname s2 (setq n2 (1- n2)))
    
44.               tlst (cons (list (caddr (assoc 10 (entget e2))) e2) tlst)
    
45.         )
    
46.       )
    
47.       (setq ylst  (xl-sort ylst '<)
    
48.             tlst1 (xl-sort (mapcar 'car tlst) '<)
    
49.       )
    
50.       (mapcar '(lambda (x y / e el)
    
51.                  (setq e  (cadr (assoc x tlst))
    
52.                        el (entget e)
    
53.                  )
    
54.                  (entmod (subst        (cons 1 (rtos (/ y 1000.) 2 3))
    
55.                                 (assoc 1 el)
    
56.                                 el
    
57.                          )
    
58.                  )
    
59.                )
    
60.               tlst1
    
61.               ylst
    
62.       )
    
63.     )
    
64.   )
    
65.   (princ)
    
66. )

<br /> ;(xl-sort '(2 9 3 -1 6) '<) -> (-1 2 3 6 9)<br /> ;(xl-sort '(-1 3 -1 3 3 9) '<) -> (-1 -1 3 3 3 9)<br /> (defun xl-sort (lst fun / k lst2 nlst)<br />   (foreach n lst<br />     (setq k    T<br />           lst2 (apply 'append<br />                       (mapcar '(lambda (x)<br />                                  (if<br />                                    (and K ((eval fun) n x))<br />                                     (progn (setq k nil) (list n x))<br />                                     (list x)<br />                                  )<br />                                )<br />                               nlst<br />                       )<br />                )<br />           nlst (if K<br />                  (append lst2 (list n))<br />                  lst2<br />                )<br />     )<br />   )<br /> )<br /> (defun c:test (/ p1 p2 s1 s2 n1 n2 e1 e2 ylst tlst tlst1)<br />   (if (and (setq p1 (getpoint "\n第一角点: "))<br />            (setq p2 (getcorner p1 "\n对角点: "))<br />       )<br />     (progn<br />       (setq s1 (ssget "_C" p1 p2 '((0 . "line") (8 . "BG_LINE")))<br />             s2 (ssget "_C" p1 p2  '((0 . "text") (8 . "BG_text")))<br />             n1 (sslength s1)<br />             n2 (sslength s2)<br />       )<br />       (while (> n1 0)<br />         (setq e1 (ssname s1 (setq n1 (1- n1)))<br />               y         (caddr (assoc 10 (entget e1)))<br />         )<br />         (setq ylst (cons y ylst))<br />       )<br />       (while (> n2 0)<br />         (setq e2   (ssname s2 (setq n2 (1- n2)))<br />               tlst (cons (list (caddr (assoc 10 (entget e2))) e2) tlst)<br />         )<br />       )<br />       (setq ylst  (xl-sort ylst '<)<br />             tlst1 (xl-sort (mapcar 'car tlst) '<)<br />       )<br />       (mapcar '(lambda (x y / e el)<br />                  (setq e  (cadr (assoc x tlst))<br />                        el (entget e)<br />                  )<br />                  (entmod (subst        (cons 1 (rtos (/ y 1000.) 2 3))<br />                                 (assoc 1 el)<br />                                 el<br />                          )<br />                  )<br />                )<br />               tlst1<br />               ylst<br />       )<br />     )<br />   )<br />   (princ)<br /> )

xyp1964

平面图不适用此方法！

coolzhb

最初由 eachy 发布
仅用Lisp实在不爽，给你个参考，排序函数是一位网友提供
... [/B]

实在是高！好用了，完全达到了我的要求！谢谢！

它山之石

用用天正6.0，试试看吧。
关于标高，比你想要的功能更多。