请高手帮看看下面的句子该怎么写呢

yangist

;;;在画图时序号的箭头和尺寸线的箭头我想设成不一样的
;;;可是程序报错  请高手帮忙看下 谢谢
(setq yxjt (getvar "dimldrblk"))
;;;(if (or (= yxjt nil)(= yxjt "")) (setq yxjt "."))
(setvar "dimldrblk" "_DOTSMALL") ;;;引线箭头类型-->小点
;;;
(setvar "dimldrblk" yxjt)

ZZXXQQ

;这样试下
(setvar "dimldrblk" "DotSmall")

yangist

ZZXXQQ 发表于 2015-2-13 08:05
;这样试下
(setvar "dimldrblk" "DotSmall")

版主大人,还是不行呢,
** Error: AutoCAD 变量设置被拒绝: "dimldrblk" "DOTSMALL" **


;;; 编辑标注箭头样式
(vla-put-arrowhead1type obj 5)
    (vla-put-arrowhead2type obj 5)
如果用类似上面的语句不知道可不可以
这是我从别人的代码里抄的 可惜vl函数我知之甚少啊

longcashman

(getvar "dimblk")

yangist

longcashman 发表于 2015-2-13 09:08
(getvar "dimblk")

读取后还要修改了噢 不光是读取

自贡黄明儒

ZZXXQQ 发表于 2015-2-13 08:05
;这样试下
(setvar "dimldrblk" "DotSmall")

汉化版的，"DotSmall"好象不行。

自贡黄明儒

建议这样写
(cond ((VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'setvar (list "dimldrblk" "小点")))
       (VL-CATCH-ALL-APPLY 'setvar (list "dimldrblk" "DotSmall"))
      )
)

yangist

自贡黄明儒 发表于 2015-2-13 11:44
建议这样写
(cond ((VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'setvar (list "dimldrblk" "小点")))
   ...

天啊
(setvar "dimldrblk" "小点")
就这么解决了
想都没想过 中文名
搞进去就行了