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

st788796 · 发表于 2013-10-26 14:03:13

q3_2006 发表于 2013-10-26 13:46
明白版主的意思了，我自己的图没这个问题，都是用来处理别人的图。。。有的软件不是很完美，用的人又完全 ...

记住那些软件再不完美，批量生成是也是循环，这个循环就是实体生成顺序，后期处理利用这个才能事半功倍

q3_2006 · 发表于 2013-10-26 14:07:24

st788796 发表于 2013-10-26 14:03
记住那些软件再不完美，批量生成是也是循环，这个循环就是实体生成顺序，后期处理利用这个才能事半功倍

我想自己会点LISP就是为了弥补各种软件不足。。。也是无奈的事。。

spp_wall · 发表于 2013-10-26 14:32:40

q3_2006 发表于 2013-10-26 14:07
我想自己会点LISP就是为了弥补各种软件不足。。。也是无奈的事。。

我也是刚准备开始学现在只会加载和用lsp 还不会写呢！

谢谢你的帮助

spp_wall · 发表于 2013-10-26 15:21:29

st788796 发表于 2013-10-26 13:36
试试这个，根据自己的图分析后调整，断面有 32 32 34 三种情况，用上面的分析程序，以后自己可以修改

我知道意思了

是每个断面的实体赋予一个序号  然后按照一定的规律挪动与序号相对应的实体

虽然你给的源码  但是我看不懂！

比如 xdrx_matrix_identity  XD::List:DivedBy  vmat (xdrx_matrix_settranslation mat0 '(0. 1.5 0.)) 等等  都不知道什么意思{:soso_e127:}

st788796 · 发表于 2013-10-26 15:39:41

spp_wall 发表于 2013-10-26 15:21
我知道意思了

是每个断面的实体赋予一个序号然后按照一定的规律挪动与序号相对应的实体

那些数字就是要移动的实体在这个断面里的次序, 你还要分析一个断面组最后一个实体是什么，比如这个图，每个断面组最后是 dmx ，即地面线，不管这个断面组有多少个实体，最后一个肯定是 dmx 图层实体

st788796 · 发表于 2013-10-26 15:42:07

本帖最后由 st788796 于 2013-10-26 15:45 编辑

Tanslate 就是矩阵变换，这里只需要给一个位移向量，自己在图上量一下，上移多少、左移多少、右移多少，这几个都是固定的，不需要计算，如下图两个线，对上移左右是一样的，左移，x 为负，右移 x 为正

spp_wall · 发表于 2013-10-26 18:44:03

本帖最后由 spp_wall 于 2013-10-26 19:53 编辑

st788796 发表于 2013-10-26 15:42
Tanslate 就是矩阵变换，这里只需要给一个位移向量，自己在图上量一下，上移多少、左移多少、右移多少，这 ...

基本上会了！

但是批量处理的时候还是会错比如K1+100 K0+160 K0+240 K0+300 K0+360 不是移动字体而是移动了dmx

vmat (xdrx_matrix_settranslation mat0 '(0. -1.5 0.)) 表里面第一个是左右第二个是上下第三个表示什么呢？

st788796 · 发表于 2013-10-26 19:04:33

spp_wall 发表于 2013-10-26 18:44
基本上会了！

但是批量处理的时候还是会错比如K1+100 K0+160 K0+240 K0+300 K0+360 K0+500 K0+600 不 ...

错就是实体分组问题，我写的使用 ObjectID，用 Handle 更好些，这个 Handle 是不变的，vl-sort 可以排 Handle 的

向上的矢量为 '(0. 3. 0.) 就是移动一个正 Y，
向左移动向量 '(-6. 0. 0.) 就是移动一个负 X
向右移动向量'(6. 0. 0.) 就是移动一个正 X

spp_wall · 发表于 2013-10-26 19:29:18

本帖最后由 spp_wall 于 2013-10-26 19:37 编辑

st788796 发表于 2013-10-26 19:04
错就是实体分组问题，我写的使用 ObjectID，用 Handle 更好些，这个 Handle 是不变的，vl-sort 可以排 ...

1：是不是ObjectID 改成 Handle 就可以了呢？还是要改其他东西呢这2个是什么意思呢？

st788796 · 发表于 2013-10-26 19:39:20

spp_wall 发表于 2013-10-26 19:29
1：是不是ObjectID 改成 Handle 就可以了呢？还是要改其他东西呢

你测试下, 可以选一个断面测试下构造分组内的实体顺序, 如果最后一个是 dmx 就对了, 否则就 Reverse

spp_wall · 发表于 2013-10-26 19:44:04

本帖最后由 spp_wall 于 2013-10-26 19:51 编辑

st788796 发表于 2013-10-26 19:39
你测试下, 可以选一个断面测试下构造分组内的实体顺序, 如果最后一个是 dmx 就对了, 否则就 Reverse

我试了有错误的都挤在一起不知道 dmx是不是32
我记得好像序号和实体好像是能关联的吧

如果不是dmx 应该如何处理呢！

st788796 · 发表于 2013-10-26 19:53:34

spp_wall 发表于 2013-10-26 19:44
我试了有错误的都挤在一起不知道 dmx是不是32
我记得好像序号和实体好像是能关联的吧

把你改的贴上来

spp_wall · 发表于 2013-10-26 19:55:57

本帖最后由 spp_wall 于 2013-10-26 19:58 编辑

st788796 发表于 2013-10-26 19:53
把你改的贴上来

(defun c:tt1 (/ XD::List:DivedBy ss mat0 vmat lmat rmat)
  (defun XD::List:DivedBy (lst / ll nl)
(while lst
   (if (/= (strcase (car (xdrx_getpropertyvalue (car lst) "Layer")))
   "DMX"
)
(setq ll (cons (car lst) ll))
(setq nl (cons (reverse (cons (car lst) ll)) nl)
   ll nil
)
   )
   (setq lst (cdr lst))
)
(reverse nl)
  )
  (if (setq ss
   (ssget
      '((0 . "Text,*polyline,line")
(8 . "shuju,zhix,dmx,lc,sjx,标高")
  )
   )
   )
(progn
   (setq mat0 (xdrx_matrix_identity 3)
   vmat (xdrx_matrix_settranslation mat0 '(0. 1.5 0.)); 左右上下 ;上为正；左移，x 为负，右移 x 为正
   lmat (xdrx_matrix_settranslation mat0 '(-2.5 0. 0.))
   rmat (xdrx_matrix_settranslation mat0 '(2.5 0. 0.))
   Xmat (xdrx_matrix_settranslation mat0 '(0. -1.5 0.))
   )
   (mapcar
'(lambda (x)
(mapcar '(lambda (a)
      (xdrx_entity_transform a vmat)
   )
   (list (nth 1 x) (nth 2 x) (nth 7 x) (nth 8 x));提前序号2 3 8 9 组合成一个表

)
(cond
   ((= (length x) 34)
   (xdrx_entity_transform (nth 15 x) lmat); 把序号16进行lamt处理
   (xdrx_entity_transform (nth 21 x) rmat); 把序号22进行rmat处理
   (xdrx_entity_transform (nth 13 x) Xmat)
   (xdrx_entity_transform (nth 14 x) Xmat)
   )
   ((= (length x) 33)
   (xdrx_entity_transform (nth 14 x) lmat)
   (xdrx_entity_transform (nth 20 x) rmat)
   )
   ((= (length x) 32)
   (xdrx_entity_transform (nth 13 x) lmat)
   (xdrx_entity_transform (nth 19 x) rmat)
   )
   (t)
)
  )
(XD::List:DivedBy
(vl-sort
   (xdrx_pickset->ents ss)
   '(lambda (e1 e2);定义e1 e2
      (> (xdrx_getpropertyvalue e1 "ObjectID")
(xdrx_getpropertyvalue e2 "ObjectID")
      )
   )
)
)
   )
)
  )
  (princ)
)
和你的好像也没什么区别！！！

st788796 · 发表于 2013-10-26 20:11:26

spp_wall 发表于 2013-10-26 19:55
(defun c:tt1 (/ XD:istivedBy ss mat0 vmat lmat rmat)
(defun XD:istivedBy (lst / ll nl)
...

给你加上详细注释，再试试，自己编辑下帖子的代码部分

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

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

spp_wall · 发表于 2013-10-26 20:38:22

本帖最后由 spp_wall 于 2013-10-26 20:41 编辑

st788796 发表于 2013-10-26 20:11
给你加上详细注释，再试试，自己编辑下帖子的代码部分

这次用了命令没有反应呢！！！！

而且我发现用 ObjectID 有的左边框选到右边没反应右边框选到左边又可以实现程序！

账号		自动登录	找回密码
密码			立即注册

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

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

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

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