大伙帮帮忙,小女子感激涕零!

fangzi

我想要在CAD布局里面设置这种效果,请大家帮忙想想!谢谢!

FJQZ456

你的那张图纸是用日本的一个软件做的（日文版的），那个软件里边有个图库是专门画日式墓碑和外栅的，那些图框标题栏也都是自带的，熟悉这个软件的人应该不是很多。所以说很难回答你的问题。如果是AutoCAD的话建立四个浮动视口就行了。

CADghost

可是图框的问题怎么解决呢

FJQZ456

CADghost发表于2004-8-9 11:39:00可是图框的问题怎么解决呢

图框要自己建，AutoCAD没有那种样式的图框。

xyp1964

在图纸空间插入四个图框，然后再根据需要建立不同的视窗“mview”。 或利用以下程序scsc： ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;view.lsp
;;;生成视窗
(DEFUN C:SCSC (/ p1 p2)
(CMDLA0)
(MKLA "VIEW" 1)
(setvar "tilemode" 0)
(command "pspace")
(WHILE (NOT (setq p1 (getpoint"\n\t视窗第一点 : "))))
(WHILE (NOT (setq p2 (getcorner p1 "\n\t视窗第二点 : "))))
(command "mview" p1 p2)
(cmdla1)
(pxyp"SCSC (生成视窗)")
);defun
;;;-------------------------------------------
;;;子程序
;;;
(defun CMDLA0 ()
(setq cmdech (GETVAR "CMDECHO"))
(setq oom (getvar "orthomode"))
(setq osm (getvar "osmode"))
(SETQ LA (getvar "clayer"))
(setvar "regenmode" 1)
(SETVAR "CMDECHO" 0)
) ;;;
(defun CMDLA1 ()
(SETVAR "CMDECHO" cmdech)
(setvar "orthomode" oom)
(setvar "osmode" osm)
(setvar "clayer" LA)
(setvar "regenmode" 1)
) ;;;
(Defun MKLA (a b)
(If (= (Tblsearch "layer" a) nil)
(Command "layer" "m" a "c" b a "")
(Command "layer" "t" a "s" a "c" b a "")
)
)
;;;
(DEFUN PXYP (TXT1)
(SETQ TXT1 (STRCAT "\n\r 程序命令: " TXT1 " -- XYP@bsedi.com"))
(PRINC TXT1)
(Princ)
);defun ;;;
(pxyp"SCSC (生成视窗)")
;;;END

fangzi

xyp1964发表于2004-8-9 12:41:00在图纸空间插入四个图框，然后再根据需要建立不同的视窗“mview”。



或利用以下程序scsc：


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;...

再请教一下,在CAD中视窗怎么建立!请指示一下,谢谢!

xyp1964

给个信箱我把程序传给你，把它放到cad路径下。


在command下：


(load"view")


scsc

fangzi

喔,好的,谢谢啦!<fangzi_1984@126.com>!

一休

我讨厌那种男扮女装的，明明是个男的干嘛弄成女的身份，恶心！

xyp1964

一休，慧眼！


上当！


呵呵……