将已做好的CAD三维模型生成工程图！！

vlisp2012

本程序，采用了明经论坛众多高手的子程序，很遗憾的是未引用出处，在此表示歉意了！
需要注意的是，本程序是第三象限视图方式来表达的,适合CNC机器加工，可能和国内的机械加工方式表达不一样，大家自行斟酌和修改吧，
未经过严格测试，且有bug，水平有限，可以凑合用。
如有高手感兴趣，请指点一下。
(defun c:3RD( / cent h jidian obj obj1 orign pbox pi2 pt pt1 w);;;3rd Angle í¶ó°,Ïèóø©êóí¼VT,è»oóÖ′DDÃüáî3RD,×îoó½«éÏÃæμÄí¶ó°Îaí¼¿éμÄêóí¼òÆÖáÏ·½¾ííê3éáË¡￡
  (defun getbox (obj /  minpoint maxpoint)
  (vla-GetBoundingBox obj 'minpoint 'maxpoint)
                                        ;è¡μðüèYí¼ÔaμÄ×î′óμãoí×îD¡μã
  (setq minpoint (vlax-safearray->list minpoint)) ;°Ñ±äìåêy¾Y×a»ˉÎa±í
  (setq maxpoint (vlax-safearray->list maxpoint)) ;°Ñ±äìåêy¾Y×a»ˉÎa±í
  (list minpoint maxpoint)
)
  (setq pi2 (* 0.5 pi))
(setq obj (vlax-ename->vla-object (ssname (ssget  '((0 . "3DSOLID"))) 0)))
  (setq cent (vla-get-Centroid obj) Orign (vlax-3d-point '(0 0 0)))
  (setq jidian ¡¡ (list (vlax-safearray-get-element (vlax-variant-value Cent) 0)  
¡¡       ¡¡(vlax-safearray-get-element (vlax-variant-value Cent) 1)  
¡¡¡¡       (vlax-safearray-get-element (vlax-variant-value Cent) 2)))

  (setq pbox (GETBOX obj))
  (setq h (- (cadadr pbox) (cadar pbox)))
;;;  (command "line" jidian (polar jidian pi2 (* 3 h)) "")  
  (setq pt (polar jidian pi2 (* 3 h)))
  (setq obj1 (vla-copy obj))
  (vla-move obj1 cent Orign)
  (vla-transformby obj1 (vlax-tmatrix (list '(1 0 0 0) '(0 0 1 0) '(0 -1 0 0) '(0 0 0 1))))
  (vla-move obj1 Orign (vlax-3d-point pt))
  (setq pbox (GETBOX obj1))
  (setq h (- (cadadr pbox) (cadar pbox)))
  (entmake (list '(0 . "text") '(100 . "AcDbEntity") (cons 10 (polar pt pi2 (* 0.7 h))) (cons 40 (getvar "textsize")) '(1 . "Ö÷êóí¼Î»ÖÃ:")));;;

  ;;;(setq pt (getpoint "\nóòêóí¼Î»ÖÃ1:"));;;

  (setq obj11 (vla-copy obj))
  (vla-move obj11 cent Orign)
  (vla-transformby obj11 (vlax-tmatrix (list '(0 1 0 0) '(0 0 1 0) '(1 0 0 0) '(0 0 0 1))))
  (setq pbox (GETBOX obj11))
  (setq h (- (cadadr pbox) (cadar pbox)))
  (setq w (abs (- (caddar pbox) (last (cadr pbox)))))
  (setq pt1 (polar pt 0 (+(* 0.6 w) h)))


  (vla-move obj11 Orign (vlax-3d-point pt1))
  (entmake (list '(0 . "text") '(100 . "AcDbEntity") (cons 10 (polar pt1 pi2 (* 0.7 h))) (cons 40 (getvar "textsize")) '(1 . "óòêóí¼Î»ÖÃ1:")))



  ;;;(setq pt (getpoint "\nóòêóí¼Î»ÖÃ2:"));;;

  (setq obj2 (vla-copy obj1))
  (vla-move obj2 cent Orign)
  (vla-transformby obj2 (vlax-tmatrix (list '(0 1 0 0) '(0 0 1 0) '(1 0 0 0) '(0 0 0 1))))
  (setq pbox2 (GETBOX obj2))
  (setq h2 (- (cadadr pbox2) (cadar pbox2)))
  (setq w2 (abs (- (caddar pbox2) (last (cadr pbox2)))))
  (setq pt2 (polar jidian 0 (+(* 1.1 w2) h2)))


  (vla-move obj2 Orign (vlax-3d-point pt2))
  (vla-rotate obj2    (vlax-3d-point pt2) pi)

  (entmake (list '(0 . "text") '(100 . "AcDbEntity") (cons 10 pt2) (cons 40 (getvar "textsize")) '(1 . "óòêóí¼Î»ÖÃ2:")))


  (command "flatshot"  pause "" "" "" \r)
  (princ)
  )

vlisp2012

(defun c:3RD( / cent h jidian obj obj1 orign pbox pi2 pt pt1 w);;;3rd Angle 投影,先用俯视图,然后执行命令3RD,最后将上面的投影为图块的视图移至下方就完成了。
  (defun getbox (obj /  minpoint maxpoint)
  (vla-GetBoundingBox obj 'minpoint 'maxpoint)
                                        ;取得包容图元的最大点和最小点
  (setq minpoint (vlax-safearray->list minpoint)) ;把变体数据转化为表
  (setq maxpoint (vlax-safearray->list maxpoint)) ;把变体数据转化为表
  (list minpoint maxpoint)
)
  (setq pi2 (* 0.5 pi))
(setq obj (vlax-ename->vla-object (ssname (ssget  '((0 . "3DSOLID"))) 0)))
  (setq cent (vla-get-Centroid obj) Orign (vlax-3d-point '(0 0 0)))
  (setq jidian 　 (list (vlax-safearray-get-element (vlax-variant-value Cent) 0)  
　       　(vlax-safearray-get-element (vlax-variant-value Cent) 1)  
　　       (vlax-safearray-get-element (vlax-variant-value Cent) 2)))

  (setq pbox (GETBOX obj))
  (setq h (- (cadadr pbox) (cadar pbox)))
;;;  (command "line" jidian (polar jidian pi2 (* 3 h)) "")  
  (setq pt (polar jidian pi2 (* 3 h)))
  (setq obj1 (vla-copy obj))
  (vla-move obj1 cent Orign)
  (vla-transformby obj1 (vlax-tmatrix (list '(1 0 0 0) '(0 0 1 0) '(0 -1 0 0) '(0 0 0 1))))
  (vla-move obj1 Orign (vlax-3d-point pt))
  (setq pbox (GETBOX obj1))
  (setq h (- (cadadr pbox) (cadar pbox)))
  (entmake (list '(0 . "text") '(100 . "AcDbEntity") (cons 10 (polar pt pi2 (* 0.7 h))) (cons 40 (getvar "textsize")) '(1 . "主视图位置:")));;;
  
  ;;;(setq pt (getpoint "\n右视图位置1:"));;;
  
  (setq obj11 (vla-copy obj))
  (vla-move obj11 cent Orign)
  (vla-transformby obj11 (vlax-tmatrix (list '(0 1 0 0) '(0 0 1 0) '(1 0 0 0) '(0 0 0 1))))
  (setq pbox (GETBOX obj11))
  (setq h (- (cadadr pbox) (cadar pbox)))
  (setq w (abs (- (caddar pbox) (last (cadr pbox)))))
  (setq pt1 (polar pt 0 (+(* 0.6 w) h)))

  
  (vla-move obj11 Orign (vlax-3d-point pt1))
  (entmake (list '(0 . "text") '(100 . "AcDbEntity") (cons 10 (polar pt1 pi2 (* 0.7 h))) (cons 40 (getvar "textsize")) '(1 . "右视图位置1:")))



  ;;;(setq pt (getpoint "\n右视图位置2:"));;;
  
  (setq obj2 (vla-copy obj1))
  (vla-move obj2 cent Orign)
  (vla-transformby obj2 (vlax-tmatrix (list '(0 1 0 0) '(0 0 1 0) '(1 0 0 0) '(0 0 0 1))))
  (setq pbox2 (GETBOX obj2))
  (setq h2 (- (cadadr pbox2) (cadar pbox2)))
  (setq w2 (abs (- (caddar pbox2) (last (cadr pbox2)))))
  (setq pt2 (polar jidian 0 (+(* 1.1 w2) h2)))

  
  (vla-move obj2 Orign (vlax-3d-point pt2))
  (vla-rotate obj2    (vlax-3d-point pt2) pi)
  
  (entmake (list '(0 . "text") '(100 . "AcDbEntity") (cons 10 pt2) (cons 40 (getvar "textsize")) '(1 . "右视图位置2:")))


  (command "flatshot"  pause "" "" "" \r)
  (princ)
  )

vlisp2012

英文系统，所以有乱码，抱歉，二楼已经更正了，程序未做好，需要手动在将上方的视图，移动至下方。