3D->2D转三维消隐线框为二维

龙龙仔

;;使用vl-cmdf來寫SolProf=======
;;所以在R2008(以下)只能連續使用3次,SolProf改用別的寫法吧!
;;但R2009版後沒有這個問題

yoyoho

感谢诸位分享

学习了!

龙龙仔

;;這樣的功能R14時就提供過了!
;;下列只是一個未完善的程序
(defun CAI_3D2D (/ DATA HOLDECHO LAY LAY1 SS)
  (vl-load-com)
  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "_.undo" "G")
  (vl-catch-all-apply
    'vl-cmdf
    (list "UCS" "N" "V" "LAYOUT" "N" "Test")
  )
  (setvar "CTAB" "Test")
  (vl-catch-all-apply
    'vl-cmdf
    (list "MVIEW" "F" "MSPACE")
  )
  (setq DATA (cdr (assoc 5 (entget (entlast)))))
  (setq LAY (strcat "PV-" DATA))
  (setq LAY1 (strcat "PH-" DATA))
  (setq SS (ssget "x" '((0 . "3DSOLID"))))
  (solprof SS 0 1 0)
  (setvar "CTAB" "Model")
  (vl-cmdf "UCS" "N" "V")
  (setq SS (ssget "x" (list (cons 8 (strcat LAY "," LAY1)))))
  (vl-file-delete "C:\\TEST.DWG") ;_路徑您可以更改設置，也可以改成發送到剪貼板
  (vl-cmdf "wblock" "c:\\TEST.dwg" "" '(0 0 0) SS "")
  (command "_.undo" "E")
  (command "_.undo" "1")
  (setvar "cmdecho" HOLDECHO)
  (princ)
)
(princ
  "\n3D實體轉2D線(含虛線)程序,命令LAI_3D2D, LUCAS 2010.09"
)
(princ)

chlh_jd

无意中写的一个小程序，居然与斑竹多年前写过的程序暗合，又让我欣慰很多了，往高手的足迹上又迈进了一步了^_^

AMTONNY

谢谢楼主的分享

434939575

谢谢分享，我用BO处理的。

mmmmmm

08版以后好像直接用flatshot就行