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

fangzi · 发表于 2004-8-9 09:38:00

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

h2nriurc10l.jpg

FJQZ456 · 发表于 2004-8-9 09:44:00

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

zt2efcntvtj.jpg

CADghost · 发表于 2004-8-9 11:39:00

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

FJQZ456 · 发表于 2004-8-9 11:45:00

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

xyp1964 · 发表于 2004-8-9 12:41:00

在图纸空间插入四个图框，然后再根据需要建立不同的视窗“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