求一个 纬地道路横断面 文字避让处理 的程序

st788796

spp_wall 发表于 2013-10-26 20:38
这次 用了命令  没有反应呢！！！！

而且  我发现  用 ObjectID  有的左边框选到右边没反应  右边框选 ...

实体顺序问题,这个图中第一个是 dmx ,你试试下面的代码,就加了个 Reverse

2. 
   
3. 
   
4. (defun c:tt (/ XD::List:DivedBy ss mat0 vmat lmat rmat)
   
5.   (defun XD::List:DivedBy (lst / ll nl)
   
6.     (while lst
   
7.       (if (/= (strcase (car (xdrx_getpropertyvalue (car lst) "Layer")))
   
8.        "DMX"
   
9.    )
   
10. (setq ll (cons (car lst) ll))
    
11. (setq nl (cons (reverse (cons (car lst) ll)) nl)
    
12.        ll nil
    
13. )
    
14.       )
    
15.       (setq lst (cdr lst))
    
16.     )
    
17.     (reverse nl)
    
18.   )
    
19.   (if (setq ss (ssget '((0 . "Text,*polyline,line") ;_实体类型
    
20.    (8 . "shuju,zhix,dmx,lc,sjx,标高") ;_图层
    
21.          )
    
22.         ) ;_过滤出断面上的字 线
    
23.       )
    
24.     (progn
    
25.       (setq mat0 (xdrx_matrix_identity 3) ;_基本矩阵
    
26.      vmat (xdrx_matrix_settranslation mat0 '(0. 1.5 0.)) ;_向上偏移矩阵
    
27.      lmat (xdrx_matrix_settranslation mat0 '(-6.0 0. 0.)) ;_向右偏移矩阵
    
28.      rmat (xdrx_matrix_settranslation mat0 '(6. 0. 0.)) ;_向左偏移矩阵
    
29.       )
    
30.       (mapcar
    
31. '(lambda (x)
    
32.     (mapcar '(lambda (a)
    
33.         (xdrx_entity_transform a vmat) ;_矩阵变换，就是移动
    
34.       )
    
35.      (list (nth 1 x) (nth 2 x) (nth 7 x) (nth 8 x)) ;_向上偏移的实体
    
36.     )
    
37.     (cond
    
38.       ((= (length x) 34) ;_两侧有放坡的是 34
    
39.        (xdrx_entity_transform (nth 15 x) lmat) ;_左侧
    
40.        (xdrx_entity_transform (nth 21 x) rmat) ;_右侧
    
41.       )
    
42.       ((= (length x) 33) ;_单侧放坡是 33
    
43.        (xdrx_entity_transform (nth 14 x) lmat)
    
44.        (xdrx_entity_transform (nth 20 x) rmat)
    
45.       )
    
46.       ((= (length x) 32) ;_两侧都不放坡是 32
    
47.        (xdrx_entity_transform (nth 13 x) lmat)
    
48.        (xdrx_entity_transform (nth 19 x) rmat)
    
49.       )
    
50.       (t)
    
51.     )
    
52.   )
    
53. (XD::List:DivedBy
    
54.    (reverse (vl-sort
    
55.        (xdrx_pickset->ents ss) ;_选择集转为实体列表
    
56.        '(lambda (e1 e2)
    
57.    (< (cdr (assoc 5 (entget e1))) ;_ API 有 Bug ，用 Entget
    
58.       (cdr (assoc 5 (entget e2)))
    
59.    )
    
60.         )
    
61.      ) ;_按句柄排序，即实体生成顺序,
    
62.    );_这个图第一个实体是 dmx
    
63. )
    
64.       )
    
65.     )
    
66.   )
    
67.   (princ)
    
68. )

<br /> <br /> (defun c:tt (/ XD::List:DivedBy ss mat0 vmat lmat rmat)<br />   (defun XD::List:DivedBy (lst / ll nl)<br />     (while lst<br />       (if (/= (strcase (car (xdrx_getpropertyvalue (car lst) "Layer")))<br />        "DMX"<br />    )<br /> (setq ll (cons (car lst) ll))<br /> (setq nl (cons (reverse (cons (car lst) ll)) nl)<br />        ll nil<br /> )<br />       )<br />       (setq lst (cdr lst))<br />     )<br />     (reverse nl)<br />   )<br />   (if (setq ss (ssget '((0 . "Text,*polyline,line") ;_实体类型<br />    (8 . "shuju,zhix,dmx,lc,sjx,标高") ;_图层<br />          )<br />         ) ;_过滤出断面上的字 线<br />       )<br />     (progn<br />       (setq mat0 (xdrx_matrix_identity 3) ;_基本矩阵<br />      vmat (xdrx_matrix_settranslation mat0 '(0. 1.5 0.)) ;_向上偏移矩阵<br />      lmat (xdrx_matrix_settranslation mat0 '(-6.0 0. 0.)) ;_向右偏移矩阵<br />      rmat (xdrx_matrix_settranslation mat0 '(6. 0. 0.)) ;_向左偏移矩阵<br />       )<br />       (mapcar<br /> '(lambda (x)<br />     (mapcar '(lambda (a)<br />         (xdrx_entity_transform a vmat) ;_矩阵变换，就是移动<br />       )<br />      (list (nth 1 x) (nth 2 x) (nth 7 x) (nth 8 x)) ;_向上偏移的实体<br />     )<br />     (cond<br />       ((= (length x) 34) ;_两侧有放坡的是 34<br />        (xdrx_entity_transform (nth 15 x) lmat) ;_左侧<br />        (xdrx_entity_transform (nth 21 x) rmat) ;_右侧<br />       )<br />       ((= (length x) 33) ;_单侧放坡是 33<br />        (xdrx_entity_transform (nth 14 x) lmat)<br />        (xdrx_entity_transform (nth 20 x) rmat)<br />       )<br />       ((= (length x) 32) ;_两侧都不放坡是 32 <br />        (xdrx_entity_transform (nth 13 x) lmat)<br />        (xdrx_entity_transform (nth 19 x) rmat)<br />       )<br />       (t)<br />     )<br />   )<br /> (XD::List:DivedBy<br />    (reverse (vl-sort<br />        (xdrx_pickset->ents ss) ;_选择集转为实体列表<br />        '(lambda (e1 e2)<br />    (< (cdr (assoc 5 (entget e1))) ;_ API 有 Bug ，用 Entget<br />       (cdr (assoc 5 (entget e2)))<br />    )<br />         )<br />      ) ;_按句柄排序，即实体生成顺序, <br />    );_这个图第一个实体是 dmx<br /> )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

spp_wall

st788796 发表于 2013-10-26 21:24
实体顺序问题,这个图中第一个是 dmx ,你试试下面的代码,就加了个 Reverse

这次没有问题了 ！！！！！！谢谢   
我也学到了点东西！！！！

以后程序出的东西  都可以用这些方法了 ！

这里用里晓东的函数  在哪里能查到这些函数呢  

如果要想通用的话  应该怎么做呢！

st788796

spp_wall 发表于 2013-10-26 21:35
这次没有问题了 ！！！！！！谢谢   
我也学到了点东西！！！！

学会了方法以后就可以触类旁通，这个不好说通用

去下载 API函数手册即可，这样的应用根据实际情况用 API 根据需求随时写

spp_wall

st788796 发表于 2013-10-26 21:48
学会了方法以后就可以触类旁通，这个不好说通用

去下载 API函数手册即可，这样的应用根据实际情况用 A ...

不知道这个程序那些是晓东的函数呢！！方便的话 告诉下我 谢谢！

st788796

spp_wall 发表于 2013-10-26 22:16
不知道这个程序那些是晓东的函数呢！！方便的话 告诉下我 谢谢！

XDRX_ 开头的是 ARX 定义函数， XD::  开头的开源 Lisp 函数

newer

spp_wall 发表于 2013-10-26 22:16
不知道这个程序那些是晓东的函数呢！！方便的话 告诉下我 谢谢！

ST抢答对了， 这些函数在手册里面都有详细的用法说明的。多看看手册。