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

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

提示: 作者被禁止或删除内容自动屏蔽

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

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

王咣生 · 发表于 2003-7-1 17:16: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)) "

OLYLINE")
         (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

dr_gis_jyx · 发表于 2003-7-1 17:42:00

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

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

lzfat lzfat 当前离线积分 702 明经币个注册时间 2002-4-21 在线时间小时威望金钱个贡献激情	发表于 2003-7-1 14:41:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

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

回复