|
吾爱游客
发表于 2011-10-31 13:51
1、申 请 I D:icebug
2、个人邮箱:520ice@gmail.com
3、自我简要介绍及主要作品链接:
icebug,男,24岁,建筑设计行业,对计算机有学习的热情和一点点基础,尝试做了些设计行业需要的软件的插件。希望加入论坛,接触更多这方面的高手,学习下。
主要作品如下:
CAD 画图字体修改工具 ( .lsp 文件,可做cad 插件 功能是批量把图纸中的字体改为要求的字体,把某些特殊符号改为规定样式 直接贴上代码,比较简单 )
;;;; 字体更改
(load "chg_str")
(defun c:chfs (/ var1 sset i name change_style)
(setq var1 (getvar "cmdecho"))
(setvar "cmdecho" 0)
(command "style" "hh" "仿宋_GB2312" "0" "1" "" "" "")
(command "style" "hh1" "仿宋_GB2312" "0" "1" "" "" "")
(command "ltscale" "0.6")
(prompt "\n请选择文字:")
(setq sset (ssget) )
(if sset
(progn
(setq sset (cht_ve sset))
(setq change_style "HH")
;;;;例子:
;;;;(chg_string sset '("原字符" "原字符" ....)
;;;; '("改成字符" "改成字符" ....)(与原字符相同时可为nil)
;;;; 改后字高(不改为nil) 改后字宽(不改为nil)
;;;; 是否搜索字符串内字符(整字搜索为nil)
;;;; 移动字符相对距离'(x y z)(不移动为nil)
(chg_string sset
'("X" "x" "%%211" "%%212" "%%202" "%%203" "~" "&" "^")
'("×" "×" "" "" "" "" "~" "" "")
nil nil 1 nil)
(chg_string sset
'("桥" "梁" "中" "线" "心" "号"
"设" "计" "高" "坡" "地" "承" "外" "左" "右" "幅"
"程" "度" "桩" "长") nil 2.5 1 nil nil)
(chg_string sset '("均布") nil 2 1 nil nil)
(chg_string sset
'("桥梁起点桩号" "桥梁中心桩号" "桥梁终点桩号" "被交叉路桩号"
"主线交叉桩号" "左线设计高程" "右线设计高程" "设计高程")
nil 2.5 0.9 nil '(0 0.6 0))
(chg_string sset '("平均") nil 1.6 1 nil '(-0.7 0.7 0))
(chg_string sset '("宁波" "金华" "嵊州" "乍浦" "嘉兴") nil 2.5 0.9 nil nil)
;;
;;
(setvar "cmdecho" var1)
(prompt "\nOK!!")
);progn
(prompt "\n未选择文字!")
);if
(command "regen")
(princ)
);defun
4、申请时间:2011年10月31日
5、备注:请管理人员审核,谢谢。
|
|
发帖前要善用【论坛搜索】功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。 |
|
|
|
|