构建三维框架的lisp小程序

nfs538

(defun c:3pl()
           (setq ptl nil mypl nil)
           (if (setq en (xdrx_EntSel "\n请点取多义线<退出>:" '((0 . "*polyline"))))
            (progn
                     (setq myz(getreal"\n请输入z坐标值:"))   
                    (xdrx_SetEntToDb (car en))
                    (while (setq pt (xdrx_getpolyvtx))
                        (setq ptl (cons pt ptl))
                    )
                  (setq ptl (reverse ptl))
                 (setq mypln (length ptl) j 0)
                 (setq p0 (list (car (nth 0 ptl)) (cadr (nth 0 ptl)) myz))
                 (command"3dpoly" p0)
                 (while (<= j mypln)
                     (setq pj (list (car (nth j ptl)) (cadr (nth j ptl)) myz))
                     (setq j (1+ j))
                     (command pj)  
                  )   
                ;(setq pllast (entlast))
                (entdel (car en))
          )
      )  
)

wwxx

感谢分享