晓东API真是爽，生成三角网速度很快

zzyong00@163.co · 发表于 2017-1-15 22:32:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:ss ()
(setq pts (ssget (list '(0 . "POINT"))))
(setq n 0)
(setq newPlist nil)
(repeat (sslength pts)
(setq ent (ssname pts n))
(setq entdata (entget ent))
(setq pt (cdr (assoc 10 entdata)))
(setq newPlist (append newPlist (list pt)))
(setq n (1+ n))
)
(setq res (xdrx_points_Delaunay newPlist T));生成三角网，用的是晓东API
)

newer · 发表于 2017-1-16 21:49:27

本帖最后由 newer 于 2017-1-16 21:50 编辑

zzyong00@163.co 发表于 2017-1-16 21:35

既然用API，帮楼主改下代码，更简洁

(defun c:ss ()
  (if (setq pts (ssget (list '(0 . "POINT"))))
    (progn
      (setq newplist (xdrx_entity_getproperty pts "position"))

      (setq res (xdrx_points_delaunay newplist t)) ; 生成三角网，用的是晓东
                                       ; api

    )
  )
  (princ)
)

alliuyx · 发表于 2017-1-16 09:28:40

确实是难得好帖啊，顶先

Lisphk · 发表于 2017-1-16 09:43:21

本帖最后由 Lisphk 于 2017-1-16 10:36 编辑

测试了下，82万个点，只要10秒左右，确实很快啊

(defun c:ss ()
  (setq pts (ssget (list '(0 . "POINT"))))
  (setq n 0)
  (setq newPlist nil)
  (repeat (sslength pts)
    (setq ent (ssname pts n))
    (setq entdata (entget ent))
    (setq pt (cdr (assoc 10 entdata)))
    (setq newPlist (append newPlist (list pt)))
    (setq n (1+ n))
  )
  (xdrx_runtime t)
  (setq res (xdrx_points_Delaunay newPlist T))
                                        ;生成三角网，用的是晓东API
  (xdrx_prompt "\n执行时间:" (xdrx_runtime)

)

longer1000 · 发表于 2017-1-16 10:23:01

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

yoyoho · 发表于 2017-1-16 15:18:47

正需要，支持楼主大人了！

zzyong00@163.co · 发表于 2017-1-16 21:35:21

你们还是感谢晓东API吧

zzyong00@163.co · 发表于 2017-1-16 21:53:12

newer 发表于 2017-1-16 21:49

谢谢，晓东api还是很不了解的，很多都不知道

newer · 发表于 2017-1-17 00:31:21

zzyong00@163.co 发表于 2017-1-16 21:53

多看看函数手册，和论坛上的插件的源代码就可以了。常用的也就那么几个。

xdrx_getpropertyvalue 包括了几乎所有的属性的查询
xdrx_setpropertyvlaue 包括了几乎所有的属性的设置
这两个是对单独实体的

对应多个实体，选择集的查询和设置就是
xdrx_entity_setproperty
xdrx_entity_getproperty

就这4个函数组合，就可以写出很多的插件出来。

newer · 发表于 2017-1-17 00:35:48

zzyong00@163.co 发表于 2017-1-16 21:53

设置选择集实体的颜色比如

(setq ss (ssget))
(mapcar
  '(lambda (x)
     (xdrx_setpropertyvalue x "color" 1)
   )
  (xdrx_pickset->ents ss)
)

xdrx_entity_setproperty就是为了省去mapcar 循环结构的

(setq ss (ssget))
(xdrx_entity_setproperty ss "color" 1)

下面的要高效的多，省去了选择集转实体表的时间，省去了LISP循环处理的时间，让选择集的操作直接在ARX代码里面实现了。

aeo · 发表于 2017-1-18 14:38:40

Lisphk 发表于 2017-1-16 09:43

82万个点没重复点吗？没经过消重？消重的效率如何

Lisphk · 发表于 2017-1-18 15:02:29

aeo 发表于 2017-1-18 14:38

随便生成的80多万个点，可能有重复的，没测试

主要是测试三角网生成的函数

  (xdrx_runtime t)
  (setq res (xdrx_points_Delaunay newPlist T))
                                        ;生成三角网，用的是晓东API
  (xdrx_prompt "\n执行时间:" (xdrx_runtime)

当然实际应用中，需要消除重复的，这个应该和测试三角网函数无关，应该在这段代码前面加上重复点消除代码，效率另算。开源函数库和XD API里面有消除重点的函数吧。

zhong2013 · 发表于 2018-4-10 15:14:50

不知如何在生成的三角网中加入地形特性线。

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

[每日一码] 晓东API真是爽，生成三角网速度很快

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。