龙龙仔 发表于 2010-9-3 07:43:00

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

yoyoho 发表于 2010-9-3 09:05:00

<p>感谢诸位分享</p>
<p>学习了!</p>

龙龙仔 发表于 2010-9-3 12:12:00

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

chlh_jd 发表于 2010-9-27 15:22:00

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

AMTONNY 发表于 2011-4-8 22:35:51

谢谢楼主的分享

434939575 发表于 2014-12-30 12:38:36

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

mmmmmm 发表于 2014-12-30 14:01:42

08版以后好像直接用flatshot就行
页: 1 [2]
查看完整版本: 3D->2D转三维消隐线框为二维