各位大哥谁能告诉我如何在lisp中得到多义线的各顶点坐标.

lzfat · 发表于 2003-7-1 14:41:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=437

meflying · 发表于 2003-7-1 14:49:00

;;
   ;; Get all nodes of the LWPolyline, Polyline.
   ;;
   (defun GetListOfPline (EntityName / SSE_Pline N newEntityName)
      (setq SSE_Pline (entget EntityName))
      (setq LastList nil)
      (if (= (cdr (assoc 0 SSE_Pline)) "LWPOLYLINE")
         (progn
            (setq LastList (LIST (LIST 0 0)))
            (setq N 0)
            (while (/= (nth N SSE_Pline) nil)
                  (if (= (car (nth N SSE_Pline)) 10)
                     (setq LastList (append LastList (list (list (cadr (nth N SSE_Pline)) (caddr (nth N SSE_Pline)) )) ))
                  )
                  (setq N (+ N 1))
            )
            (setq LastList (cdr LastList))
         )
      )
      (if (= (cdr (ASSOC 0 SSE_Pline)) &quotOLYLINE")
         (PROGN
            (setq LastList (list (list 0 0)))
            (setq newEntityName (entnext EntityName))
            (while (= (cdr (assoc 0 (entget newEntityName))) "VERTEX")
                  (setq LastList (append LastList (list (list (cadr (assoc 10 (entget newEntityName))) (caddr (assoc 10 (entget newEntityName))) ))))
                  (setq newEntityName (entnext newEntityName))
            )
            (setq LastList (cdr LastList))
         )
      )
      (setq LastList LastList)
   );_defun

王咣生 · 发表于 2003-7-1 17:16:00

谢谢各位,再会!!!!!!!!!!!!!

各位大哥谁能告诉我如何在lisp中得到多义线的各顶点坐标.

发表回复

精选推荐

浏览过的版块