如何改变引线箭头的大小

panpan1202

如何用lisp语句改变引线箭头的大小？谢谢

zlg258369

(setvar "dimasz" 1)

zlg258369

DIMADEC     0                    角度小数位数
DIMALT      关                    选定的换算单位
DIMALTD     3                    换算单位小数位数
DIMALTF     0.0394               换算单位比例因子
DIMALTRND   0.0000               换算单位舍入值
DIMALTTD    3                    换算公差小数位数
DIMALTTZ    0                    换算公差消零
DIMALTU     2                    换算单位
DIMALTZ     0                    换算单位消零
DIMAPOST                         替换文字的前缀和后缀
DIMARCSYM   0                    弧长符号
DIMASZ      2.5000               箭头大小
DIMATFIT    3                    箭头和文字调整
DIMAUNIT    0                    角度单位格式
DIMAZIN     0                    角度消零
DIMBLK      实心闭合                 箭头块名
DIMBLK1     实心闭合                 第一个箭头块名
DIMBLK2     实心闭合                 第二个箭头块名
DIMCEN      2.5000               圆心标记大小
DIMCLRD     BYBLOCK              尺寸线和引线颜色
DIMCLRE     BYBLOCK              尺寸界线颜色
DIMCLRT     BYBLOCK              标注文字颜色
DIMDEC      2                    小数位数
DIMDLE      0.0000               尺寸线
DIMDLI      3.7500               尺寸线间距
DIMDSEP     ,                    小数分隔符
DIMEXE      1.2500               尺寸界线在尺寸线上
DIMEXO      0.6250               尺寸界线原点偏移
DIMFRAC     0                    分数格式
DIMFXL      1.0000               固定的尺寸界线
DIMFXLON    关                    启用固定的尺寸界线
DIMGAP      0.6250               尺寸线和文字的间距
DIMJOGANG   45                   半径标注折弯角度
DIMJUST     0                    尺寸线上的文字对正
DIMLDRBLK   实心闭合                 引线块名
DIMLFAC     1.0000               线性单位比例因子
DIMLIM      关                    生成标注界限
DIMLTEX1    BYBLOCK              线型尺寸界线 1
DIMLTEX2    BYBLOCK              线型尺寸界线 2
DIMLTYPE    BYBLOCK              标注线型
DIMLUNIT    2                    线性单位格式
DIMLWD      -2                   尺寸线和引线线宽
DIMLWE      -2                   尺寸界线线宽
DIMPOST                          标注文字的前缀和后缀
DIMRND      0.0000               舍入值
DIMSAH      关                    独立的箭头块
DIMSCALE    1.0000               全局比例因子
DIMSD1      关                    隐藏第一条尺寸线
DIMSD2      关                    隐藏第二条尺寸线
DIMSE1      关                    隐藏第一条尺寸界线
DIMSE2      关                    隐藏第二条尺寸界线
DIMSOXD     关                    隐藏外侧尺寸线
DIMTAD      1                    文字位于尺寸线上方
DIMTDEC     2                    公差小数位数
DIMTFAC     1.0000               公差文字高度比例因子
DIMTFILL    0                    文字背景已启用
DIMTFILLCLR BYBLOCK              文字背景颜色
DIMTIH      关                    尺寸界线内侧的文字水平放置
DIMTIX      关                    将文字放置于尺寸界线内侧
DIMTM       0.0000               下偏差
DIMTMOVE    0                    文字移动
DIMTOFL     开                    强制在尺寸界线内侧画尺寸线
DIMTOH      关                    外侧文字水平放置
DIMTOL      关                    公差标注
DIMTOLJ     0                    公差垂直对齐
DIMTP       0.0000               上偏差
DIMTSZ      0.0000               标记大小
DIMTVP      0.0000               文字垂直位置
DIMTXSTY    Standard             文字样式
DIMTXT      2.5000               文字高度
DIMTZIN     8                    公差消零
DIMUPT      关                    用户定位的文字
DIMZIN      8                    消零

yxl88168

试试这个，应该是你要找的

lenlenq

(defun change-arr-s (size)
  (vla-put-ArrowheadSize
    (vlax-ename->vla-object (car (entsel)))
    size
  )
)

pxt2001

lenlenq 发表于 2011-3-30 20:36
(defun change-arr-s (size)
  (vla-put-ArrowheadSize
    (vlax-ename->vla-object (car (entsel)))

把这个好程序，顶起来。