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

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

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

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



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

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

fangzi 发表于 2004-8-9 13:01:00


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

xyp1964 发表于 2004-8-9 13:14:00

给个信箱我把程序传给你,把它放到cad路径下。
在command下:
(load"view")
scsc

fangzi 发表于 2004-8-9 13:19:00

喔,好的,谢谢啦!!

一休 发表于 2004-8-9 13:56:00

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

xyp1964 发表于 2004-8-9 14:00:00

一休,慧眼!
上当!
呵呵……
页: [1]
查看完整版本: 大伙帮帮忙,小女子感激涕零!