[求助]请教一下,如何编定义标注样式的LSP?

YDPLDL

  烦劳各位高手,帮我编个能在开启CAD文件时自动建立几个标注样式,我不知用那个命令才行.多谢!

YDPLDL

有这么难吗?也没人回个话.

xd-xdcad

打开别人的图形文件后，在需要的时候，能自动加载自己常用的图层\标注样式\文字样式就好了

至于新建图形,直接在模板里设置即可

hb_xiaofen

这个比较简单，要建立哪几个标注样式？标注样式是什么样的？

xd-xdcad

请问,若想建立的标注样式箭头形式不是默认的,想改成例如倾斜(OBLIQUE)

这部分程序如何写?

hb_xiaofen

;;建立标注式

(defun dimblk1(/ p1 p2 mp p3 p4 ent1 ent2 ifdimblk )
  (setq p1 (list 0 0)
 p2 (polar p1 (* 0.25 pi) 2)
 mp (list (* 0.5 (car p2)) (* 0.5 (cadr p2)))
 p3(list (- (car mp) 1.5) (cadr mp))
 p4(list (+ (car mp) 1.5) (cadr mp))
   )
  (command "line" p3 p4 "")
  (setq ent1 (entlast))
  (command "pline" p1 "w" 0.5 0.5 p2 "")
  (setq ent2 (entlast))
  (setq ifdimblk (tblsearch "block" "DIM1"))
  (if ifdimblk (command "block" "DIM1" "y" mp ent1 ent2 "")
               (command "block" "DIM1" mp ent1 ent2 "")
  )
  (princ)
)

(defun dimblk2(/ p1 p2 p3 arrowblock flag)
  (setq p1 (list 0 0)
 p2 (list -2.5 0.43)
 p3 (list -2.5 -0.43)
  )
  (command "solid" p1 p2 p3 p1"")
  (setq arrowblock (entlast))
  (setq flag (tblsearch "block" "dim2"))
  (if (null flag)
    (command "block" "dim2" p1 arrowblock "")
    (progn (command "block" "dim2" "n") (entdel arrowblock))
  )
)

(defun dimset(/ ifdimt )
  (dimblk1)
  (dimblk2)
;;;  (if (null (tblsearch "style" "DIMT"))(command "style" "DIMT" "txt.shx" 0 0.70 "" "" "" "" ))
  (command "style" "DIMT" "txt.shx" 0 0.70 "" "" "" "" )
  (setq ifdimt (tblsearch "style" "DIMT"))
  (if (not ifdimt) (progn (princ "\n 没有相应的字体")(exit)))
  (setq version (atof (substr (getvar "acadver") 1 2)))
  (setvar "dimexe" 1.25)
  (setvar "dimcen" 2.5)
  (setvar "dimgap" 0.625)
  (setvar "dimsah" 1)
  (setvar "dimblk1" "DIM1")
  (setvar "dimblk2" "DIM1")
  (setvar "dimasz" 1)
  (setvar "dimtxt" 3)
  (setvar "dimtxsty" "DIMT")
  (if (>= version 15)(setvar "dimldrblk" "DIM2"))
  (if (>= version 16)(setvar "dimdsep" "."))
  (setvar "dimclre" 0)
  (setvar "dimclrd" 0)
  (setvar "dimclrt" 0)
  (setvar "dimexo" 2.5)
  (if (>= version 15)(setvar "dimtmove" 2))
)

(defun c:bz()
  (ini)
  (dimset)
  (setvar "dimscale" scal)
  (if (= scal 1) (setvar "dimlfac" 10)(setvar "dimlfac" 0.1))
  (if (not (tblsearch "dimstyle" "SCAL10"))
      (command "dimstyle" "s" "SCAL10")
      (command "dimstyle" "s" "SCAL10" "y")
  )
  (if (= scal 1) (setvar "dimlfac" 20)(setvar "dimlfac" 0.2))
  (if (not (tblsearch "dimstyle" "SCAL20"))
      (command "dimstyle" "s" "SCAL20")
      (command "dimstyle" "s" "SCAL20" "y")
  )
  (if (= scal 1) (setvar "dimlfac" 30)(setvar "dimlfac" 0.3))
  (if (not (tblsearch "dimstyle" "SCAL30"))
      (command "dimstyle" "s" "SCAL30")
      (command "dimstyle" "s" "SCAL30" "y")
  )
  (if (= scal 1) (setvar "dimlfac" 50)(setvar "dimlfac" 0.5))
  (if (not (tblsearch "dimstyle" "SCAL50"))
      (command "dimstyle" "s" "SCAL50")
      (command "dimstyle" "s" "SCAL50" "y")
  )
  (if (= scal 1) (setvar "dimlfac" 100)(setvar "dimlfac" 1.0))
  (if (not (tblsearch "dimstyle" "SCAL100"))
      (command "dimstyle" "s" "SCAL100")
      (command "dimstyle" "s" "SCAL100" "y")
  )
  (princ "\n已经建立了20 30 50 100 比例的标注样式")
  (reset)
  (princ)
)

我以前写过一个，你自己看看吧，

samshs

如有中文注明就好啦

qing6688

个人感觉，这种功能用lisp不好实现。因要使标注样式美观，线性，坐标，角度，R角等设置都不尽相同。即使用lisp能设置，lisp也很长。栽入内存，影响绘图速度。 

    我个人做法是，找一个文件，设成样板。用AutoCAD设计中心功能，将标注样式载入，再将新样式设成当前标注样式。一般用设计中心不是很多，以后打开设计中心，就是上一次载入状态，再直接选中拖入，很方便。

wenhong_teng

不能用?????????????