原创力文档cad 三维 立体 图 自动生成 二维 三视图 插件（Automatic generation of 2D view three plug-in CAD three-dimensional map）.docVIP
- 1、本文档共15页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
cad 三维 立体 图 自动生成 二维 三视图 插件（Automatic generation of 2D view three plug-in CAD three-dimensional map）
cad 三维 立体 图 自动生成 二维 三视图 插件（Automatic generation of 2D view three plug-in CAD three-dimensional map）
(defun c: ()
(setq dcl _ id (load _ dialog sanshi)
(new _ dialog sanshi lcd _ id)
(_ tile sansh _ cf1 (done _ dialog 1)
(_ tile sansh _ cf2 done _ dialog 2))
(_ tile sansh _ cf3 (done _ dialog (3)
(_ tile sansh _ cf4 (done _ dialog (4)
(_ tile sansh _ zds done _ dialog 5)
(setq sansh _ done _ id (start _ dialog)
(if ( sansh _ done _ id 0).
(progn
(cond (= 1 sansh _ done _ id)
(sanshm _ cf1.
)
(= 2 sansh _ done _ id)
(sanshm _ cf2)
)
(= 3 sansh _ done _ id)
(sanshm _ cf3)
)
(4 sansh _ done _ id)
(sanshm _ cf4).
)
(5 sansh _ done _ id)
(sanshm _ zds)
)
)
)
)
(w)
)
;
--------------------------------------------------------;
;;; 函数 cf1.
--------------------------------------------------------;
2009.03.27; 编制日期.
2011.07.28; 修改日期.
曾敏辉; 编制者.
本函数将复制并旋转对象为右视; 说明.
--------------------------------------------------------;
(defun sanshm _ cf1 (pt1 pt2 entgrp oldort / ss)
(the \ n 复制并旋转对象为右视)
(setvar cmdecho)
(setq oldort (getvar orthomode)
(the \ n 请选择主视图对象:)
(setq entgrp (ssget)
(the \ n 请选择主视图的基准点:)
(setvar orthomode (1)
(setq is (getpoint)
(the n请选择右视图的基准点 (按左键接受并绘制右视图))
(3 setq (getpoint)
(setq (entlast)
(command copy is entgrp break)
(setq ss (lt: ss entnext)
(the n正在绘制右视图...)
(command rotate3d ss, 3, 90); 绘制右视图
(the n绘制右视图完毕!)
(w)
)
--------------------------------------------------------;
函数: cf2.
--------------------------------------------------------;
2009.03.27; 编制日期.
2011.07.28; 修改日期.
曾敏辉; 编制者.
;;;
Description: this function will copy and rotate objects for upward view
--------------------------------------------------------;;;
(DEFUN, sanshm_CF2 (/ en, entgrp, oldort, pT1, pT2, SS)
(setvar, cmdecho, 0)
(PRINC, \n copy and rotate the object for looking up)
(setq oldort (getvar orthomode))
(princ, \n, select the main view object:)
(SETQ, ENTGRP (SSGET))
(princ, \n, select the baseline for the main view: )
(setvar, orthomode, 1)
(SETQ, pT1 (GETPOINT))
(princ, \n, sele
您可能关注的文档
- 2011届南充市高三第零诊物理试卷分析（Analysis of the physics examination paper of the 2011 senior middle school in Nanchong）.doc
- 2011年科学素养大赛题库(100题)（2011 scientific literacy competition question bank (100 questions)）.doc
- 2011年造价员考试土建工程模拟试题及答案汇总1（2011 cost engineer exam civil engineering simulation questions and answers summary 1）.doc
- 2011年福建省普通高中学生学业基础会考（Fujian basic high school students' academic foundation examination in 2011）.doc
- 2011年高考地理复习必须知晓的九大锦囊（Nine tips for geography review must be aware of the college entrance examination in 2011）.doc
- 2011新甲级设计院（2011 New Grade A Design Institute）.doc
- 2011注册电气工程师基础考试大纲（2011 basic examination program for Registered Electrical Engineers）.doc
- 2011注册考试大纲档（2011 registration examination outline file）.doc
- 2011考研普地专业课重点（2011 postgraduate courses focus on PU）.doc
- 2011语文中考模拟题（2011 Chinese exam simulation）.doc
文档评论（0）