大伙帮帮忙,小女子感激涕零!
我想要在CAD布局里面设置这种效果,请大家帮忙想想!谢谢!本帖最后由 作者 于 2004-8-9 11:42:34 编辑 <br /><br /> <B></B><BR>你的那张图纸是用日本的一个软件做的（日文版的），那个软件里边有个图库是专门画日式墓碑和外栅的，那些图框标题栏也都是自带的，熟悉这个软件的人应该不是很多。所以说很难回答你的问题。如果是AutoCAD的话建立四个浮动视口就行了。 可是图框的问题怎么解决呢 CADghost发表于2004-8-9 11:39:00static/image/common/back.gif可是图框的问题怎么解决呢
<BR>图框要自己建，AutoCAD没有那种样式的图框。 在图纸空间插入四个图框，然后再根据需要建立不同的视窗“mview”。
或利用以下程序scsc：
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<BR>;;view.lsp<BR>;;;生成视窗<BR>(DEFUN C:SCSC (/ p1 p2)<BR> (CMDLA0)<BR> (MKLA "VIEW" 1)<BR> (setvar "tilemode" 0)<BR> (command "pspace")<BR> (WHILE (NOT (setq p1 (getpoint"\n\t视窗第一点 : "))))<BR> (WHILE (NOT (setq p2 (getcorner p1 "\n\t视窗第二点 : "))))<BR> (command "mview" p1 p2)<BR> (cmdla1)<BR>(pxyp"SCSC (生成视窗)")<BR>);defun<BR>
;;;-------------------------------------------<BR>;;;子程序<BR>;;;<BR>(defun CMDLA0 ()<BR> (setq cmdech (GETVAR "CMDECHO"))<BR> (setq oom (getvar "orthomode"))<BR> (setq osm (getvar "osmode"))<BR> (SETQ LA (getvar "clayer"))<BR> (setvar "regenmode" 1)<BR> (SETVAR "CMDECHO" 0)<BR> )
;;;<BR>(defun CMDLA1 ()<BR> (SETVAR "CMDECHO" cmdech)<BR> (setvar "orthomode" oom)<BR> (setvar "osmode" osm)<BR> (setvar "clayer" LA)<BR> (setvar "regenmode" 1)<BR> )
;;;<BR>(Defun MKLA (a b)<BR> (If (= (Tblsearch "layer" a) nil)<BR> (Command "layer" "m" a "c" b a "")<BR> (Command "layer" "t" a "s" a "c" b a "")<BR> )<BR> )<BR>;;;<BR>(DEFUN PXYP (TXT1)<BR> (SETQ TXT1 (STRCAT "\n\r 程序命令: " TXT1 " -- <A href="mailto:XYP@bsedi.com" target="_blank" >XYP@bsedi.com</A>"))<BR> (PRINC TXT1)<BR> (Princ)<BR> );defun
;;;<BR>(pxyp"SCSC (生成视窗)")<BR>
;;;END xyp1964发表于2004-8-9 12:41:00static/image/common/back.gif在图纸空间插入四个图框，然后再根据需要建立不同的视窗“mview”。
或利用以下程序scsc：
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;...
再请教一下,在CAD中视窗怎么建立!请指示一下,谢谢! 给个信箱我把程序传给你，把它放到cad路径下。
在command下：
(load"view")
scsc 喔,好的,谢谢啦!<fangzi_1984@126.com>! 我讨厌那种男扮女装的，明明是个男的干嘛弄成女的身份，恶心！ 一休，慧眼！
上当！
呵呵……