标注样式.lsp

自贡黄明儒

;;;本程序适用于样版文件(.dwt)作图,当图框放大n倍后,输入D选择某一标注样式并修改[尺寸特征比例](变量"dimscale"),
;;;然后运行下面的程序,将产生四种新的标注样式(经我的实践,这4种标注样式基本满足各种需要了,象1元,2元,5元类似)
;;;对于采用布局出图,一种标注就够了,使用如下的程序没有必要
;;;本程序结合明经多个贴子而成
(defun C:DStyle(/ ACADDOCUMENT ACADOBJECT CURRDIMSTYLE MSPACE)
;;; 首先,返回当前的标注的样式
;;; 接着,设定新的样式。
;;; 最后,将样式恢复为原来的设定值。
  (VL-LOAD-COM)
  (setq AcadObject(vlax-get-acad-object)
        AcadDocument(vla-get-ActiveDocument AcadObject)
        mSpace(vla-get-ModelSpace AcadDocument)
  )
;;; 返回激活文件当前的标注样式
(setq currDimStyle(vla-get-ActiveDimStyle AcadDocument))
;(princ "当前的标注型式是 ")(princ (vla-get-name currDimStyle))

;;; 建立标注样式2.5B1
  (setvar "dimlfac" 0.4);因为图元放大了2.5倍
  (setvar "DIMCLRD" 1);改变颜色以区分
  (if (not (tblsearch "dimstyle" "2.5B1"))
      (command "-dimstyle" "s" "2.5B1")
      (command "-dimstyle" "s" "2.5B1" "y")
  )
  (vla-put-ActiveDimStyle AcadDocument currDimStyle);; 将标注样式设回原来的标注样式
  ;(princ "标注型式重设为 ")(princ (vla-get-name currDimStyle))

  ;;; 建立标注样式4B1
  (setvar "dimlfac" 0.25)
  (setvar "DIMCLRD" 2)
  (if (not (tblsearch "dimstyle" "4B1"))
      (command "-dimstyle" "s" "4B1")
      (command "-dimstyle" "s" "4B1" "y")
  )
  (vla-put-ActiveDimStyle AcadDocument currDimStyle)

  ;;; 建立标注样式10B1
  (setvar "dimlfac" 0.1)
  (setvar "DIMCLRD" 4)
  (if (not (tblsearch "dimstyle" "10B1"))
      (command "-dimstyle" "s" "10B1")
      (command "-dimstyle" "s" "10B1" "y")
  )
  (vla-put-ActiveDimStyle AcadDocument currDimStyle)

    ;;; 建立标注样式16B1
  (setvar "dimlfac" 0.1)
  (setvar "DIMCLRD" 5)
  (if (not (tblsearch "dimstyle" "16B1"))
      (command "-dimstyle" "s" "16B1")
      (command "-dimstyle" "s" "16B1" "y")
  )
  (vla-put-ActiveDimStyle AcadDocument currDimStyle)

  (princ)
)
(princ "\n 四川自贡运机集团 黄明儒 2011年8月4日)

先进者

能不能帮我看下控制这个的参数是什么

自贡黄明儒

先进者 发表于 2012-1-9 14:46
能不能帮我看下控制这个的参数是什么

dimtih
试试这个变量

先进者

先进者 发表于 2012-1-9 14:46
能不能帮我看下控制这个的参数是什么

再请教一下,在LISP里面好像提示是参数错误

自贡黄明儒

先进者 发表于 2012-1-9 16:17
再请教一下,在LISP里面好像提示是参数错误

(setvar "dimtih" 0)没有错呀！