请教尺寸箭头问题！

lsj2004 · 发表于 2004-4-1 23:00:00

１．怎样在ＣＡＤ中用lisp程序获得已标尺寸的箭头信息。
２．获得后怎么改变箭头样式！（比如将建筑标记改为圆点标记，其中改一点，或两个都改）。
麻烦各位高手给出指点！谢谢

无痕 · 发表于 2004-4-2 00:30:00

用“特性”按钮不行么？

龙龙仔 · 发表于 2004-4-2 07:59:00

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

ljcgq · 发表于 2004-4-2 20:29:00

dimblk(简体）--cad2004帮助里有
类型：字符串
保存位置：图形
初始值： ""
设置尺寸线或引线末端显示的箭头块。要返回默认值（实心闭合箭头显示），请输入单个句点 (.)。“新建标注样式”、“修改标注样式”和“替代当前样式”对话框中可用于选择的箭头块的项和名称显示如下。还可以输入用户定义的箭头块名称。
"" 实心闭合
"_DOT" 点
"_DOTSMALL" 小点
"_DOTBLANK" 空心点
"_ORIGIN" 指示原点
"_ORIGIN2" 指示原点 2
"_OPEN" 打开
"_OPEN90" 直角
"_OPEN30" 30 度角
"_CLOSED" 闭合
"_SMALL" 空心小点
"_NONE" 无
"_OBLIQUE" 倾斜
"_BOXFILLED" 填充框
"_BOXBLANK" 框
"_CLOSEDBLANK" 空心闭合
"_DATUMFILLED" 实心基准三角形
"_DATUMBLANK" 基准三角形
"_INTEGRAL" 完整标记
"_ARCHTICK" 建筑标记

lsj2004 · 发表于 2004-4-2 22:17:00

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

meflying · 发表于 2004-4-2 22:48:00

(setvar "dimblk" ...)

SWAYWOOD · 发表于 2004-5-25 20:59:00

我看见过一段程序，可以实现，但可能要在它之前设置一些系统变量才能，达到要求，我找不到这个系统变量，(defun c:test( / obj)
(princ "\n箭头1为小点：")
(while (setq obj(ssget))
(command "dimoverride" "dimblk1" "_DOTSMALL" "" obj "")
)
(princ)
)
帮助文件里有一个相关系统变量DIMSAH，当其为ON是，DIMBLK1才有效，我试着打开一张原来有的图，然后将dimsah设置为ON，然后用程序试验原图已有的对齐标注，发现不能修改为小圆点，但如果是新建的就可以改变过来，不知是什么缘故，请赐教

龙龙仔 · 发表于 2004-5-26 08:23:00

(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)
)