请教尺寸箭头问题！

lsj2004

１．怎样在ＣＡＤ中用lisp程序获得已标尺寸的箭头信息。


２．获得后怎么改变箭头样式！（比如将建筑标记改为圆点标记，其中改一点，或两个都改）。


麻烦各位高手给出指点！谢谢

无痕

用“特性”按钮不行么？

龙龙仔

dimblk 類型: 字串
儲存於: 圖檔
初始值: ""
設定標註線或引線端點上所顯示的箭頭圖塊。如果關閉箭頭，您可以輸入一個單點 (.)。下面會顯示在「新標註型式」、「修改標註型式」和「取代標註型式」等對話方塊中的箭頭圖塊項目和用來選取它們的名稱。您也可以輸入使用者定義的箭頭圖塊的名稱。 "" 封閉填實
"_DOT" 圓點
"_DOTSMALL" 小圓點
"_DOTBLANK" 空白圓點
"_ORIGIN" 原點指示器
"_ORIGIN2" 原點指示器 2
"_OPEN" 開放
"_OPEN90" 直角
"_OPEN30" 開放 30
"_CLOSED" 封閉
"_SMALL" 空白小圓點
"_NONE" 無
"_OBLIQUE" 傾斜
"_BOXFILLED" 填實方塊
"_BOXBLANK" 方塊
"_CLOSEDBLANK" 封閉空白
"_DATUMFILLED" 填實基準面三角形
"_DATUMBLANK" 基準面三角形
"_INTEGRAL" 整條線
"_ARCHTICK" 建築斜線

ljcgq

dimblk(简体）--cad2004帮助里有

类型：字符串
保存位置：图形
初始值： ""

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

"" 实心闭合

"_DOT" 点

"_DOTSMALL" 小点

"_DOTBLANK" 空心点

"_ORIGIN" 指示原点

"_ORIGIN2" 指示原点 2

"_OPEN" 打开

"_OPEN90" 直角

"_OPEN30" 30 度角

"_CLOSED" 闭合

"_SMALL" 空心小点

"_NONE" 无

"_OBLIQUE" 倾斜

"_BOXFILLED" 填充框

"_BOXBLANK" 框

"_CLOSEDBLANK" 空心闭合

"_DATUMFILLED" 实心基准三角形

"_DATUMBLANK" 基准三角形

"_INTEGRAL" 完整标记

"_ARCHTICK" 建筑标记

lsj2004

我知道那样是可以的，但我想用lisp程序来修改呀！

meflying

(setvar "dimblk" ...)

SWAYWOOD

我看见过一段程序，可以实现，但可能要在它之前设置一些系统变量才能，达到要求，我找不到这个系统变量，



(defun c:test( / obj)


(princ "\n箭头1为小点：")


(while (setq obj(ssget))


(command "dimoverride" "dimblk1" "_DOTSMALL" "" obj "")


)


(princ)


)


帮助文件里有一个相关系统变量DIMSAH，当其为ON是，DIMBLK1才有效，我试着打开一张原来有的图，然后将dimsah设置为ON，然后用程序试验原图已有的对齐标注，发现不能修改为小圆点，但如果是新建的就可以改变过来，不知是什么缘故，请赐教

龙龙仔

(defun C:TEST (/ OBJ HOLDSAH HOLDBLK)
(princ "\n箭頭1為小點：")
(setq OBJ (ssget))
(if OBJ
(progn
(setq HOLDSAH (getvar "dimsah")
HOLDBLK (getvar "dimblk1")
)
(setvar "dimsah" 1)
(setvar "dimblk1" "_DOTSMALL")
(command "_.dim1" "update" OBJ "")
(setvar "dimsah" HOLDSAH)
(if (= "" HOLDBLK)
(setvar "dimblk1" ".")
(setvar "dimblk1" HOLDBLK)
)
)
)
(princ)
)

SWAYWOOD

多谢龙大侠

SWAYWOOD

龙版，我希望点击左边的箭头，它就变成小点，而不是第一个箭头块，怎么样才能实现呢？