利用晓东API进行多边形拓扑的应用示例

XDSoft

Free-Lancer 发表于 2013-6-24 10:29
curve->region也可以修改返回值为选择集

已经返回选择集了。

QiaoCheng

收集一些思路已是一种学习{:soso_e113:}

st788796

QiaoCheng 发表于 2013-6-24 12:28
收集一些思路已是一种学习

借助 xdapi 可以程序执行更有效率，写程序也可以省大量时间，思路有了，完全用A/VLisp也不是不能做到，只不过要投入更多时间写代码。

Love-Lisp

XDRX_CURVE_INTERSECTBREAK 、XDRX_CURVE->REGION  函数可以返回选择集，代码又精简了！{:soso_e113:}老大的API真是强大啊！

1. (defun c:t13 ()
   
2.   (setq cmd (getvar 'cmdecho))
   
3.   (setvar 'cmdecho 0)
   
4.   (princ "\n选择直线、多段线、圆弧、圆:")
   
5.   (setq ss (ssget '((0 . "line,*polyline,circle,arc"))))
   
6.   (if ss
   
7.     (progn
   
8.       ;;曲线交点打断
   
9.       (setq ss (XDRX_CURVE_INTERSECTBREAK ss 0))
   
10.       ;;生成面域
    
11.       (setq ss (XDRX_CURVE->REGION ss) lst nil)
    
12.       (repeat (setq n (sslength ss))
    
13.   (setq lst (cons (ssname ss (setq n (1- n))) lst))
    
14.       )
    
15.       ;;面域按面积从大到小排序
    
16.       (setq
    
17.   lst (vl-sort
    
18.         lst
    
19.         '(lambda (a b)
    
20.      (> (XDRX_REGION_GETAREA a) (XDRX_REGION_GETAREA b))
    
21.          )
    
22.       )
    
23.       )
    
24.       ;;删除最外围的面域
    
25.       (entdel (car lst))
    
26.       (setq lst (cdr lst))
    
27.       ;;将面域转成多段线
    
28.       (setq ss (xdrx_region->curve lst))      
    
29.       (setvar 'cmdecho cmd)
    
30.       ;;返回多段线选择集
    
31.       ss
    
32.     )
    
33.   )
    
34. )

(defun c:t13 ()<br />   (setq cmd (getvar 'cmdecho))<br />   (setvar 'cmdecho 0)<br />   (princ "\n选择直线、多段线、圆弧、圆:")<br />   (setq ss (ssget '((0 . "line,*polyline,circle,arc"))))<br />   (if ss<br />     (progn<br />       ;;曲线交点打断<br />       (setq ss (XDRX_CURVE_INTERSECTBREAK ss 0))<br />       ;;生成面域<br />       (setq ss (XDRX_CURVE->REGION ss) lst nil)<br />       (repeat (setq n (sslength ss))<br />   (setq lst (cons (ssname ss (setq n (1- n))) lst))<br />       )<br />       ;;面域按面积从大到小排序<br />       (setq<br />   lst (vl-sort<br />         lst<br />         '(lambda (a b)<br />      (> (XDRX_REGION_GETAREA a) (XDRX_REGION_GETAREA b))<br />          )<br />       )<br />       )<br />       ;;删除最外围的面域<br />       (entdel (car lst))<br />       (setq lst (cdr lst))<br />       ;;将面域转成多段线<br />       (setq ss (xdrx_region->curve lst))      <br />       (setvar 'cmdecho cmd)<br />       ;;返回多段线选择集<br />       ss<br />     )<br />   )<br /> )

hzj268

Love-Lisp 发表于 2013-6-24 20:10
XDRX_CURVE_INTERSECTBREAK 、XDRX_CURVE->REGION  函数可以返回选择集，代码又精简了！老大 ...

麻烦问一下为什么这个多线段不能用  st788796老大写的         统计相同曲线(复制)数量并制表   ，来统计图形呀。。。提示找到0

anwil

非常青睐这个功能，对于密闭空间的计算很有大作用。

376394482

啥也不说了，感谢楼主分享哇！

tyrasv

66666666666666啥也不说了，感谢楼主分享哇！

snigefqb

晓东api怎么在哪下载?

snigefqb

XDSoft 发表于 2013-6-23 13:39

xxdrx_setmark 这些没有吧

paniclp

选择直线、多段线、圆弧、圆:
选择对象: 指定对角点: 找到 8 个
选择对象:
; 错误: no function definition: GXL-TIMEINIT

paniclp

你好
http://bbs.xdcad.net/forum.php?m ... p;page=1#pid3467477
这个帖子的函数我调用了一下，api也装过了，不过运行时候提示
错误: no function definition: SXDRX_SETMARK
怎么办？

newer

paniclp 发表于 2017-8-2 17:11

修改三处


(xxdrx_setmark)  改为 (xdrx_setmark)
(sdrx_setmark)   改为 (xdrx_setmark)
(xxdrx_getss)     改为 (xdrx_getss)

paniclp

newer 发表于 2017-8-2 17:14

非常感谢，还是你厉害

jiaoquangb

这个程序用在哪个方面的？