大伙帮帮忙,小女子感激涕零!
我想要在CAD布局里面设置这种效果,请大家帮忙想想!谢谢!你的那张图纸是用日本的一个软件做的(日文版的),那个软件里边有个图库是专门画日式墓碑和外栅的,那些图框标题栏也都是自带的,熟悉这个软件的人应该不是很多。所以说很难回答你的问题。如果是AutoCAD的话建立四个浮动视口就行了。
可是图框的问题怎么解决呢
图框要自己建,AutoCAD没有那种样式的图框。 在图纸空间插入四个图框,然后再根据需要建立不同的视窗“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
再请教一下,在CAD中视窗怎么建立!请指示一下,谢谢! 给个信箱我把程序传给你,把它放到cad路径下。
在command下:
(load"view")
scsc 喔,好的,谢谢啦!! 我讨厌那种男扮女装的,明明是个男的干嘛弄成女的身份,恶心! 一休,慧眼!
上当!
呵呵……
页:
[1]