[求助]标注实心箭头设置失败

congcong96

想编个lisp来自动单边标注，实现

1、第二的界线没有

2.、第二箭头改成实心箭头

第二部没有实现，不知道是什么原因，

标出来的是上一次使用的箭头

(DEFUN C:DJ   ()  (xxx40B)( command  "dimlinear" PAUSE PAUSE  "t" "分格尺寸" PAUSE))

(defun xxx40B()
       (command "DIMSE1" "off" )
       (command "DIMSE2" "on" )
       (command "DIMBLK2" "" ))

congcong96

根据帮助，设置的符号并没有错误，但是不知道为什么没有效果

设置尺寸线或引线末端显示的箭头块。 要返回默认值（实心闭合箭头显示），请输入单个句点 (.)。 “新建标注样式”、“修改标注样式”和“替代当前样式”对话框中用于选择箭头块的项和名称如下所示。 还可以输入用户定义的箭头块名称。

""	实心闭合
"_DOT"	点
"_DOTSMALL"	小点
"_DOTBLANK"	空心点
"_ORIGIN"	原点标记

yoyoho

(defun xxx40B()                   
       (command "DIMSE1" "off" )  
       (command "DIMSE2" "on" )   
       (command "DIMSAH" "on" )   
       (command "DIMBLK2" "_DOT" )
)                                 

congcong96

yoyoho发表于2010-5-21 12:06:00(defun xxx40B()                           (command \"D

想用实心闭合的箭头还是用不了