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

请教尺寸箭头问题！

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


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


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

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

用“特性”按钮不行么？

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

dimblk


類型: 字串<BR>儲存於: 圖檔<BR>初始值: ""<BR>設定標註線或引線端點上所顯示的箭頭圖塊。如果關閉箭頭，您可以輸入一個單點 (.)。下面會顯示在「新標註型式」、「修改標註型式」和「取代標註型式」等對話方塊中的箭頭圖塊項目和用來選取它們的名稱。您也可以輸入使用者定義的箭頭圖塊的名稱。


""         封閉填實<BR>"_DOT"         圓點<BR>"_DOTSMALL"         小圓點<BR>"_DOTBLANK"         空白圓點<BR>"_ORIGIN"         原點指示器<BR>"_ORIGIN2"         原點指示器 2<BR>"_OPEN"         開放<BR>"_OPEN90"         直角<BR>"_OPEN30"         開放 30<BR>"_CLOSED"         封閉<BR>"_SMALL"         空白小圓點<BR>"_NONE"         無<BR>"_OBLIQUE"         傾斜<BR>"_BOXFILLED"         填實方塊<BR>"_BOXBLANK"         方塊<BR>"_CLOSEDBLANK"         封閉空白<BR>"_DATUMFILLED"         填實基準面三角形<BR>"_DATUMBLANK"         基準面三角形<BR>"_INTEGRAL"         整條線<BR>"_ARCHTICK"         建築斜線

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

<P class=table_body>dimblk(简体）--cad2004帮助里有


<P class=table_body>类型：字符串<BR>保存位置：图形<BR>初始值： ""


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


<P class=table_body>"" 实心闭合


<P class=table_body>"_DOT" 点


<P class=table_body>"_DOTSMALL" 小点


<P class=table_body>"_DOTBLANK" 空心点


<P class=table_body>"_ORIGIN" 指示原点


<P class=table_body>"_ORIGIN2" 指示原点 2


<P class=table_body>"_OPEN" 打开


<P class=table_body>"_OPEN90" 直角


<P class=table_body>"_OPEN30" 30 度角


<P class=table_body>"_CLOSED" 闭合


<P class=table_body>"_SMALL" 空心小点


<P class=table_body>"_NONE" 无


<P class=table_body>"_OBLIQUE" 倾斜


<P class=table_body>"_BOXFILLED" 填充框


<P class=table_body>"_BOXBLANK" 框


<P class=table_body>"_CLOSEDBLANK" 空心闭合


<P class=table_body>"_DATUMFILLED" 实心基准三角形


<P class=table_body>"_DATUMBLANK" 基准三角形


<P class=table_body>"_INTEGRAL" 完整标记


<P class=table_body>"_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)<BR>       (princ "\n箭頭1為小點：")<BR>       (setq OBJ (ssget))<BR>       (if OBJ<BR>                       (progn<BR>                                       (setq HOLDSAH (getvar "dimsah")<BR>                               HOLDBLK (getvar "dimblk1")<BR>                                       )<BR>                                       (setvar "dimsah" 1)<BR>                                       (setvar "dimblk1" "_DOTSMALL")<BR>                                       (command "_.dim1" "update" OBJ "")<BR>                                       (setvar "dimsah" HOLDSAH)<BR>                                       (if (= "" HOLDBLK)<BR>        (setvar "dimblk1" ".")<BR>        (setvar "dimblk1" HOLDBLK)<BR>                                       )<BR>                       )<BR>       )<BR>       (princ)<BR>)<BR>

SWAYWOOD 发表于 2004-5-27 20:45:00

多谢龙大侠

SWAYWOOD 发表于 2004-6-5 10:07:00

龙版，我希望点击左边的箭头，它就变成小点，而不是第一个箭头块，怎么样才能实现呢？
页: [1] 2
查看完整版本: 请教尺寸箭头问题！