去掉柱子边上多余的点.lsp（为了下载开源函数，现在还不够级下）

zhbzhbzhb

(Defun c:ch()              
   (setq v1 (ssget))
   (setq n (sslength v1))
   (while (>= (setq n (1- n)) 0)
      ;柱子端点提取
      (setq db (Vlax-Get (Vlax-Ename->Vla-Object (ssname v1 n)) 'Coordinates))
      (setq sstdb '())
      (while (/= db nil)   
         (setq sstdb (cons (list(car db)(cadr db)) sstdb))
         (setq db (cddr db))     
      )
      ;要去掉的端点提取
      (setq m (length sstdb))
      (setq sstsc '())
      (repeat m
         (command "area" (car sstdb) (cadr sstdb) (caddr sstdb) "")
         (setq s (getvar "area"))
         (if (< s 1)                             
            (setq sstsc (cons (cadr sstdb) sstsc))           
         )
         (setq sstdb (reverse (cons (car sstdb) (reverse (cdr sstdb)))))
      )
      (setq m1 (length sstsc))
      (repeat m1
         (setq sstdb (vl-remove-if '(lambda (x) (= (distance x (car sstsc)) 0)) sstdb))
         (setq sstsc (cdr sstsc))
      )
      (command "pline")
      (mapcar 'command sstdb)
      (command "c")
      (command "")
   )
   (command "erase" v1 "")
)

zhbzhbzhb

这个有点复杂，大家有没有简单一点的，

zhbzhbzhb

这个有点复杂，大家有没有简单一点的，

iLisp

zhbzhbzhb 发表于 2014-10-2 15:19
这个有点复杂，大家有没有简单一点的，

你演示下干什么用的啊！

zhbzhbzhb

不会作演示，说明一下，就是pl线的四边形有5个点，有一个点没用，删除这个没用的点的程序，四边形有6个点也可以。

zhbzhbzhb

iLisp 发表于 2014-10-2 15:39
你演示下干什么用的啊！

不会作演示，说明一下，就是pl线的四边形有5个点，有一个点没用，删除这个没用的点的程序，四边形有6个点也可以。

ysq101

汗...哪个点啊???还有一个点在哪啊??

zhbzhbzhb

ysq101 发表于 2014-10-3 13:26
汗...哪个点啊???还有一个点在哪啊??

正方形只有4个顶点对不对，那么如果组码有5个顶点，那么第5个就是多出来的。本程序就是删除第5个点的程序。

XDSoft

zhbzhbzhb 发表于 2014-10-3 15:03
正方形只有4个顶点对不对，那么如果组码有5个顶点，那么第5个就是多出来的。本程序就是删除第5个点的程序 ...

发帖配图片，不就说清楚了。

kwok

他可能是要去掉多余顶点，四方形只需4个顶点，有多的去掉。
如一条直线只要2个顶点，如果有其它多余顶点就去掉

我猜的.

zhbzhbzhb

楼上说得对，结构pkpm导入探索者时柱子有多余的点，这个程序就可以去掉多余的点。

xvjiex

感谢分享去掉柱子边上多余的点