CAD绘图初始化探讨与setup函数解析

czb203

这个非常好，我们就纯手工制作的

czb203

怎么用不了呢

命令: init 黑体为当前文字样式
_bxfs.shx 是常规字体，不是大字体。未知命令“0”。按 F1 查看帮助。
未知命令“0.7”。按 F1 查看帮助。
未知命令“INIT”。按 F1 查看帮助。
未知命令“INIT”。按 F1 查看帮助。
未知命令“INIT”。按 F1 查看帮助。
未知命令“INIT”。按 F1 查看帮助。
G_text为当前文字样式

_DASHED100
_AXIS100

未在文件 C:\Program Files\LiZheng\GICAD8.5\support\acad.lin 中找到匹配的线型。
*A_LINE,---- A ---- A ---- A----
A,.75,-.125,["A",黑体,S=0.25,R=0.0,X=-0.085,Y=-0.125],-.125


未在文件 C:\Program Files\LiZheng\GICAD8.5\support\acad.lin 中找到匹配的线型。
A_LINE
G-AXIS（主轴线）G-AXIS_TEXT（轴线号）G-LABEL（引线）G_SLAB_HATCH（板填充）G-STAI
R（楼梯）G-TABLE（表格线）G-TITLE（标题）G_AZ（暗柱）G_AZ_HATCH（暗柱填充）G_AZ_
TEXT（暗柱号）G_BAR（钢筋）G_BAR_P（点钢筋）G_BAR_TEXT（钢筋文字）G_BEAM_BAR（梁
筋文字）G_BEAM_IN（梁虚线）G_BEAM_OUT（梁实线）G_BEAM_TEXT（梁截面文字）G_CBEAM_
TEXT（次梁截面文字）G_CBEAM_BAR（次梁钢筋文字）G_COL（墙柱）G_COL_HATCH（墙柱填
充）G_COL_TEXT（墙柱号）G_COL_U（下层墙柱）G_CAP（承台）G_CP_TEXT（承台及桩号）G
_DIM_IN（内尺寸）G_DIM_OUT（主尺寸）G_GZ（构造柱）G_GZ_HATCH（构造柱填充）G_GZ_T
EXT（构造柱号）G_OUTLINE（外轮廓线）G_PILE（桩）G_PILE_X（桩心）G_SLAB_BAR_HATCH
（板配筋填充）G_SLAB_OUT（板分界）G_SLAB_TEXT（板号及板厚）G_SYMBOL（符号）G_TEX
T（文字）G_REFER（索引）
_bxfs.shx 是常规字体，不是大字体。未知命令“0”。按 F1 查看帮助。
未知命令“0.7”。按 F1 查看帮助。
未知命令“INIT”。按 F1 查看帮助。
未知命令“INIT”。按 F1 查看帮助。
未知命令“INIT”。按 F1 查看帮助。
未知命令“INIT”。按 F1 查看帮助。
G_text为当前文字样式; 错误: AutoCAD 变量设置被拒绝: "DIMTXSTY" "G_text"

我爱lisp

可以用公共变量记录所有与绘图比例相关的参数

我爱lisp

这么好的帖子，还是应该顶起来，楼主不喜欢多的表达，客官还是得慢慢看吧

penes520

楼主威武，弄了这么多好用的东西

明_明

谢谢分享。

hooboxu

想学,但现在还看不太懂

用户0105459125

牛人啊，学习了很多，谢谢

rhett_sky

; 设置当前文字样式
(defun setup_G_text ()
  (if ( = (tblsearch "style" "CCDI_T_G01") nil)
  (command "style" "CCDI_T_G01" "Arial" "0" "1" "" "" ""));各专业的设计说明（结构专业除外）
  (if ( = (tblsearch "style" "CCDI_T_G02") nil)
  (command "style" "CCDI_T_G02" "Simplex.shx,zjdz.shx" "0" "0.8" "" "" "" ""));图中注释
  (if ( = (tblsearch "style" "CCDI_T_G03") nil)
  (command "style" "CCDI_T_G03" "黑体" "0" "1" "" "" ""));图纸名称
  (if ( = (tblsearch "style" "CCDI_T_G04") nil)
  (command "style" "CCDI_T_G04" "COMPLEX.shx,zjdz.shx" "0" "0.8" "" "" "" ""));轴号文字
  (if ( = (tblsearch "style" "RAY_TSSD") nil)
  (command "style" "RAY_TSSD" "tssdeng.shx,tssdchn.shx" "0" "0.8" "" "" "" ""));部门字体
  (if ( = (tblsearch "style" "宋体") nil)
  (command "style" "宋体" "宋体" "0" "0.8" "" "" ""));宋体字
  (setvar "textstyle" "RAY_TSSD")
  (princ)
)
加载TTF字体和SHX字体，后面需要的“”数量不同，可能是CAD版本的原因。

lxy_2080

呵呵，纯CAD画图的顶一下