[原创]：装饰施工图引线标注程序【2004.3.19更新V1.2版】

snsj · 发表于 2003-10-17 11:25:47

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

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

×

;;;--------------------程序名:装饰施工图引线标注程序--------------------;;;
;;;----------------------依据:公司图纸规范编制要求----------------------;;;
;;;用法:根据图纸的出图比例和行业的有关规定确定不同出图比例下的引线的设置;;;
;;;---------------------制作:SNSJ-----apple_yl.lsp----------------------;;;
(defun c:yl (/ apple_get_dimsc apple_getdoc apple_addtx tsty 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_ge tdoc)
)
(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_di msc 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_get pt1 "\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_getpt 1 apple_getpt2 "0" "")
)
)
;;;建立新的标注样式，并设置点标，不同比例点标的尺寸;;;
(vla-put-ActiveDimStyle apple_getdoc apple_getold_dmst )
(setenv "Dimtxsty" apple_odv)
(setvar "CLAYER" apple_odv1)
(setvar "Textstyle" apple_odv 2)
(setvar "Dimtxt" apple_odv3)
(princ)
)
;;;--------结束---------;;;

;;;--------------------程序名:装饰施工图引线标注程序--------------------;;; 
;;;----------------------依据:公司图纸规范编制要求----------------------;;; 
;;;用法:根据图纸的出图比例和行业的有关规定确定不同出图比例下的引线的设置;;; 
;;;---------------------制作:SNSJ-----apple_yl.lsp----------------------;;; 
(defun c:yl (/ apple_get_dimsc apple_getdoc apple_addtx tsty 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_ge tdoc) 
        ) 
    (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_di msc 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_get pt1 "\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_getpt 1 apple_getpt2 "0" "") 
    ) 
       ) 
   ;;;建立新的标注样式，并设置点标，不同比例点标的尺寸;;; 
  (vla-put-ActiveDimStyle apple_getdoc apple_getold_dmst ) 
  (setenv "Dimtxsty" apple_odv) 
   (setvar "CLAYER" apple_odv1) 
    (setvar "Textstyle" apple_odv 2) 
     (setvar "Dimtxt"  apple_odv3) 
  (princ) 
  ) 
;;;--------结束---------;;;

程序源文件下载：
http://www.xdcad.net/forum/attachment.php?postid=493595
使用时请将国标宋体文字从系统文字目录拷贝到CAD搜索路径内的目录里(如CAD里的FONT文件夹内)

wjl911 · 发表于 2003-10-18 00:50:08

好复杂哦，楼住能不能先把这个程序的功能做一个说明？

snsj · 发表于 2003-10-18 12:39:10

比如在做立面的时候和做节点详图的时候标注文字和标注点的大小都是不一样的，出图时候为了保证所有文字大小和点的大小都一样就做了本程序

下载地址：http://www.xdcad.net/modrator/fi ... 33019_snsj-ylbz.swf

<embed src=http://www.xdcad.net/modrator/file_upload/4508/20031018133019_snsj-ylbz.swf quality=high width=416 height=312 loop=true type="application/x-shockwave-flash">
</embed>

xbx7920 · 发表于 2003-10-18 13:50:40

应该很不错我很佩服你有这样的精力哦
等会请一个朋友帮忙看看
记得常联系.

韦小宝 · 发表于 2003-10-21 10:14:55

2004能不能用
能否写清楚怎么用的~

snsj · 发表于 2003-10-21 11:34:54

详细使用方法:
1.在系统-----控制面板－－文字里找到“仿宋_GB2312”字体（英文名字为simfang.ttf），然后拷贝到autocad安装目录里的fonts里面，如果是2002就是autocad 2002/fonts,如果是2004就是autocad 2004/fonts里面。
注释：标注文字采用的就是这种国标仿宋字体，拷贝到CAD的FONTS里面目的是把字体添加到CAD的搜索路径中，也可以在CAD的选项－文件－文件搜索路径里把文字所在的目录添加进去效果一样，上面的是比较省力的办法，因为安装CAD后其FONTS已经默认添加到搜索路径了。

snsj · 发表于 2003-10-21 11:40:25

2.加载应用程序
看上面的FLASH教学
还有一种简单的方法就是把程序加载到启动组里面，优点是加入以后每次启动CAD和打开新图形都将自动加载，一劳永逸
步骤：在CAD里输入命令appload－－点启动组－添加
找到下载的程序文件，确定后OK，以后除了重装CAD就可以直接使用了
3.在命令行输入YL即可使用

snsj · 发表于 2003-10-21 11:41:36

最初由韦小宝发布
[B]2004能不能用
能否写清楚怎么用的~ [/B]

和2004是完全兼容的，你可能是没有把字体拷贝到相应目录里，按照我上面的步骤试试*-*4 *-*4

伊枫 · 发表于 2003-10-21 16:51:22

我一般不同比例的另存一个文件的

snsj · 发表于 2003-10-21 16:57:37

另存文件也要换算比例，否则无法统一

snsj · 发表于 2003-11-17 09:20:46

哪些不懂的地方请提出来～～

snsj · 发表于 2003-11-18 15:02:37

按照上面的方法用就是了，不需要看明白，写这个程序的目的是为了让大家能更快的使用引线标注提高工作效率，下载下来用就行了，使用方法上面说的很清楚请仔细看说明～～·

dyh5005 · 发表于 2003-11-20 00:38:08

具体是对那个文件进行修改，或是要编辑一个什么文件到哪个文件夹下呢？

snsj · 发表于 2003-11-20 18:09:59

先在第一贴下载程序，然后看后面的说明和FLASH演示很详细照做就行了

snsj · 发表于 2004-1-9 00:12:53

引线标注过段更新，将支持词组选择，将会更节省时间c敬请关注

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

[原创]：装饰施工图引线标注程序【2004.3.19更新V1.2版】

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

相关帖子