[求助]：一个图框里做两种比例的图纸

温柔一刀 · 发表于 2003-10-12 16:38:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我请问一个问题,我常在一个图框里画好一个大图如一个平面图,然后会在旁边加一个节点,这时节点图会很小,我只好把它放大几倍,这样的话标注的比例也要改大几倍,感觉很不方便,有什么好办法可以在一个图框内画两种甚至更多比例的图，而且要打印出来的节点和大图只有比例不同而字体标注都是一样的大小。

snsj · 发表于 2003-10-12 17:01:36

看这里：
http://www.xdcad.net/techcenter/ ... 1369&tempshow=1

温柔一刀 · 发表于 2003-10-12 17:10:31

最初由 snsj 发布
[B]看这里：
http://www.xdcad.net/techcenter/ ... 1369&tempshow=1 [/B]

老大我点了看不了咧，怎么办？

jhwjm369 · 发表于 2003-10-12 17:20:26

到教学中心自己找不好吗？

snsj · 发表于 2003-10-12 17:21:14

http://www.xdcad.net/modrator/fi ... 942_snsj---jcdy.swf

wjl911 · 发表于 2003-10-13 11:19:04

用图纸空间就可以解决了，不过要多练习几遍，用后保证你说好

温柔一刀 · 发表于 2003-10-17 10:39:23

最初由 snsj 发布
[B]http://www.xdcad.net/modrator/fi ... 942_snsj---jcdy.swf [/B]

这样操作是不是要是图纸空间里面标注,才能使标注一的字一样大啊?那要设两种标注比例了?

snsj · 发表于 2003-10-17 11:17:29

最初由温柔一刀发布
[B]
这样操作是不是要是图纸空间里面标注,才能使标注一的字一样大啊?那... [/B]

;;;--------------------程序名:装饰施工图引线标注程序--------------------;;;
;;;----------------------依据:公司图纸规范编制要求----------------------;;;
;;;用法:根据图纸的出图比例和行业的有关规定确定不同出图比例下的引线的设置;;;
;;;---------------------制作:SNSJ-----apple_yl.lsp----------------------;;;
(defun c:yl (/ apple_get_dimsc apple_getdoc apple_addtxtsty apple_dimst_add
apple_getpt apple_getpt1 apple_getpt2 apple_odv apple_odv1
apple_odv2 apple_odv3 apple_txtsiz apple_getold_dmst)
(vl-load-com)
(setq apple_odv (getvar "Dimtxsty")
apple_odv1 (getvar "CLAYER")
apple_odv2 (getvar "Textstyle")
apple_odv3 (getvar "Dimtxt")
)
;;;设定系统变量原始值;;;
(if (null apple_oldnb)
(setq apple_oldnb 100)
)
(initget (+ 2 4))
(setq apple_get_dimsc (getint(strcat "\n请输入图纸的出图比例 <1:" (rtos apple_oldnb 2 0) "> 1:")
)
)
(if (not apple_get_dimsc)
(setq apple_get_dimsc apple_oldnb)
(setq apple_oldnb apple_get_dimsc)
)
;;;输入出图比例(记忆上次输入值);;;
(setq apple_getdoc
(vla-get-ActiveDocument (vlax-get-acad-object))
)
(vla-put-color
(vla-add
(vla-get-layers apple_getdoc)
"apple_qld_layer"
)
3
)
;;;生成引线专用的图层;;;
(setq apple_addtxtsty
(vla-add
(vla-get-Textstyles apple_getdoc)
"apple_tools_text"
)
)
(vla-put-fontfile apple_addtxtsty "SIMFANG.TTF")
(vla-put-Height apple_addtxtsty 0)
;;;增加一个文字样式，设置字体高度和文字类型，供标注样式调用;;;
(setq apple_dimst_add
(vla-add
(vla-get-dimstyles apple_getdoc)
"apple-red-qld")
)
(setq apple_getold_dmst
(vla-get-ActiveDimStyle apple_getdoc)
)
(vla-put-ActiveDimStyle
apple_getdoc apple_dimst_add
)
(setvar "Dimtxsty" "apple_tools_text")
;;;增加一个标注样式，将标注的文字样式设为新增加的字体;;;
(setvar "Dimasz" apple_get_dimsc)
(setvar "Dimldrblk" "dot")
(setq apple_txtsiz (* apple_get_dimsc 3.5)
)
(setvar "Dimtxt" apple_txtsiz)
(setvar "Clayer" "apple_qld_layer")
;;;设置当前图层;;;
(setq apple_getpt (getpoint "\n点取引线的起点:")
apple_getpt1 (getpoint apple_getpt "\n点取第二点:")
apple_getpt2 (getpoint apple_getpt1 "\n点取下一点:")
)
(cond
((null apple_getpt2)
(setq apple_getpt2 apple_getpt1)
(vl-cmdf ".qleader" apple_getpt apple_getpt1 apple_getpt2 "" "0" "")
)
(t
(vl-cmdf ".qleader" apple_getpt apple_getpt1 apple_getpt2 "0" "")
)
)
;;;建立新的标注样式，并设置点标，不同比例点标的尺寸;;;
(vla-put-ActiveDimStyle apple_getdoc apple_getold_dmst)
(setenv "Dimtxsty" apple_odv)
(setvar "CLAYER" apple_odv1)
(setvar "Textstyle" apple_odv2)
(setvar "Dimtxt" apple_odv3)
(princ)
)
;;;--------结束---------;;;

;;;--------------------程序名:装饰施工图引线标注程序--------------------;;; 
;;;----------------------依据:公司图纸规范编制要求----------------------;;; 
;;;用法:根据图纸的出图比例和行业的有关规定确定不同出图比例下的引线的设置;;; 
;;;---------------------制作:SNSJ-----apple_yl.lsp----------------------;;; 
(defun c:yl (/ apple_get_dimsc apple_getdoc apple_addtxtsty apple_dimst_add 
               apple_getpt apple_getpt1 apple_getpt2 apple_odv apple_odv1 
               apple_odv2 apple_odv3 apple_txtsiz apple_getold_dmst) 
  (vl-load-com) 
(setq apple_odv (getvar "Dimtxsty") 
      apple_odv1 (getvar "CLAYER") 
      apple_odv2 (getvar "Textstyle") 
      apple_odv3 (getvar "Dimtxt") 
      ) 
  ;;;设定系统变量原始值;;; 
  (if (null apple_oldnb) 
    (setq apple_oldnb 100) 
    ) 
    (initget (+ 2 4)) 
  (setq apple_get_dimsc (getint(strcat "\n请输入图纸的出图比例 <1:" (rtos apple_oldnb 2 0) "> 1:") 
                            ) 
        ) 
  (if (not apple_get_dimsc) 
    (setq apple_get_dimsc  apple_oldnb)    
     (setq apple_oldnb  apple_get_dimsc)      
      ) 
 ;;;输入出图比例(记忆上次输入值);;; 
 (setq apple_getdoc             
               (vla-get-ActiveDocument (vlax-get-acad-object)) 
       ) 
(vla-put-color 
  (vla-add 
    (vla-get-layers apple_getdoc) 
       "apple_qld_layer" 
      ) 
   3 
  ) 
  ;;;生成引线专用的图层;;;   
  (setq apple_addtxtsty 
         (vla-add 
      (vla-get-Textstyles apple_getdoc) 
        "apple_tools_text" 
      )          
        ) 
  (vla-put-fontfile apple_addtxtsty "SIMFANG.TTF") 
  (vla-put-Height apple_addtxtsty 0) 
  ;;;增加一个文字样式，设置字体高度和文字类型，供标注样式调用;;; 
(setq apple_dimst_add 
    (vla-add              
               (vla-get-dimstyles apple_getdoc) 
           "apple-red-qld") 
      ) 
  (setq apple_getold_dmst 
  (vla-get-ActiveDimStyle apple_getdoc) 
        ) 
    (vla-put-ActiveDimStyle 
      apple_getdoc apple_dimst_add 
      ) 
  (setvar "Dimtxsty" "apple_tools_text") 
 ;;;增加一个标注样式，将标注的文字样式设为新增加的字体;;;        
         (setvar "Dimasz" apple_get_dimsc)          
           (setvar "Dimldrblk" "dot")             
            (setq apple_txtsiz (* apple_get_dimsc 3.5) 
                    ) 
       (setvar "Dimtxt" apple_txtsiz)      
            (setvar "Clayer" "apple_qld_layer") 
 ;;;设置当前图层;;; 
  (setq apple_getpt (getpoint "\n点取引线的起点:") 
        apple_getpt1 (getpoint apple_getpt "\n点取第二点:") 
        apple_getpt2 (getpoint apple_getpt1 "\n点取下一点:")        
        ) 
  (cond 
    ((null apple_getpt2) 
         (setq apple_getpt2 apple_getpt1) 
    (vl-cmdf ".qleader" apple_getpt apple_getpt1 apple_getpt2 "" "0" "") 
    ) 
   (t 
    (vl-cmdf ".qleader" apple_getpt apple_getpt1 apple_getpt2 "0" "") 
    ) 
       ) 
   ;;;建立新的标注样式，并设置点标，不同比例点标的尺寸;;; 
  (vla-put-ActiveDimStyle apple_getdoc apple_getold_dmst) 
  (setenv "Dimtxsty" apple_odv) 
   (setvar "CLAYER" apple_odv1) 
    (setvar "Textstyle" apple_odv2) 
     (setvar "Dimtxt"  apple_odv3) 
  (princ) 
  ) 
;;;--------结束---------;;;

具体请参照这里

http://www.xdcad.net/forum/showt ... d=493595#post493595
使用此程序一套图纸可节约几个小时时间

counter · 发表于 2003-10-21 17:14:18

在标注格式中设置一下不是挺方便的吗
想多少比例就多少比例！！！

vickyyan · 发表于 2003-10-21 22:37:51

是啊，楼上说得有道理，实施过吗？

uxg41972 · 发表于 2003-10-23 20:15:57

改变标柱比例命令：dimlfac

lqxuyan · 发表于 2003-11-14 13:36:32

你看看别人对我贴子的回复:http://www.xdcad.net/forum/showthread.php?threadid=103104

账号		自动登录	找回密码
密码			立即注册

[求助]：一个图框里做两种比例的图纸

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子