[紧急求助]闭合线标坐标

8350

现在在cad中有一个任意几个点的闭合线,我想一次线选中多义线后,每个端点的坐标自动标注!

标注样式中字体的大小按照图形的大小自动调整!!

谢谢!!

样式附图:

8350

自己顶吧!

怎么没有人来帮我呢?

高手何在????

 

jdhszh

你把多义线顶点坐标求出，分离标出行了，给你一个求多一线顶点的子程序
(defun getecordList (entname z / eList eType subent subelist subeCord CordList subeType
                                  elem dxfType subecordx subecordy
                       )
       (setq eList (entget entName))
       (setq eType (cdr (assoc '0 eList)))
       (cond ((eq eType "POLYLINE")
              (setq subent (entnext entName))
              (setq subeList (entget subent))
              (setq subeCord  (cdr (assoc '10 subeList)))
              (setq subeCordx (car subeCord))
              (setq subeCordy (cadr subeCord))
              (setq subecord (list subeCordx subeCordy z))
              (while (not (eq subeType "SEQEND"))
                     (setq CordList (cons subeCord CordList))
                     (setq subent (entnext subent))
                     (setq subeList (entget subent))
                     (setq subeCord  (cdr (assoc '10 subeList)))
                     (setq subeCordx (car subeCord))
                     (setq subeCordy (cadr subeCord))
                     (setq subecord (list subeCordx subeCordy z))
                     (setq subeType (cdr (assoc '0 subeList)))
              )
    
             );;end cond-1;

             ((eq eType "LWPOLYLINE")
              (foreach Elem eList
                       (setq dxfType (car Elem))
                       (if (eq dxfType 10)
                           (progn
                                (setq subeCord (append (cdr Elem) (list z)))
                                (setq CordList (cons subeCord CordList))
                            )
                       )
              );;end foreach;
             );;;end cond;
              ('T (alert "注意：\n     发现数据错误,非多义线,不进行处理!"))
      );;;end cond
 
      ;;;使坐标按升序排列
      (setq CordList (reverse CordList))     
 );;end defun   

ZZXXQQ

坛子上搜一下，有类似的。

8350

各位大哥,就不能给一个比较完整的lisp给我么?

论坛上我已经找过了,没有的!

8350

我不会编辑lisp,所以只有用各位大哥编的现成的了!!!

8350

唉！！

我等了一天了，怎么没有人帮我呢！！

小顽童

这有啥难的啊，看看是不是你要求的效果，有具体要求可以发信到我信箱详谈！我的信箱：my9683@163.com

8350

唉,有没有好心人!!!

8350

唉,顶