有实现标注样式设定的LISP吗?

1993063

可以用:
(defun S::STARTUP nil
你的标注样式代码........
)放在ACADDOC.lsp里开启程序时自动建

lohas1118

1993063 发表于 2012-2-4 01:38
可以用:
(defun S::STARTUP nil
你的标注样式代码........

多谢指点

king20061335

(defun c:bzys()
  (vl-load-com)
  (setq acadobj (vlax-get-acad-object))
  (setq dwgobj (vla-get-activedocument acadobj))
  (setq mspace (vla-get-modelspace dwgobj))
  (setq dimstyleobj (vla-get-dimstyles dwgobj))
  (setq newdimstyle (vla-add dimstyleobj "kzq"))
  (vla-put-activedimstyle dwgobj newdimstyle)
  (command "dimtxsty" "hztxt")
  (command "dimtxt" 10)
  (command "dimdec" 0)
  (command "dimasz" 12)
  (command "dimtih" "off")
  (command "dimtad" 3)
  (command "dimjust" 0)
  (command "dimtoh" "off")
  (command "_.dimstyle" "_save" "kzq" "y" "" "" "")
   (setq newdimstyle (vla-add dimstyleobj "kk01"))
  (command "dimtxsty" "hztxt")
  (command "dimtxt" 10)
  (command "dimdec" 0)
  (command "dimasz" 12)
  (command "dimtih" "off")
  (command "dimtad" 3)
  (command "dimjust" 0)
  (command "dimtoh" "off")
  (command "_.dimstyle" "_save" "kk01" "y" "" "" "")
  )

king20061335

我觉得这比记DXF群码简单。

lohas1118

king20061335 发表于 2012-2-27 23:12
(defun c:bzys()
  (vl-load-com)
  (setq acadobj (vlax-get-acad-object))

多谢

LLXXZZ

1993063 发表于 2012-2-4 01:25
哗!发变量也收银子呀

命令: -DIMSTYLE

当前标注样式: ISO-25   注释性: 否
输入标注样式选项
[注释性(AN)/保存(S)/恢复(R)/状态(ST)/变量(V)/应用(A)/?] <恢复>: v

输入标注样式名、[?] 或 <选择标注>: ?

输入要列出的标注样式 <*>:

命名标注样式:

  Standard
  Annotative                             注释性
  ISO-25

输入标注样式名、[?] 或 <选择标注>: iso-25

cad可以自己列出,可能版主不知道.

nibadeqiu

就差一个变量，没有钱看看，，

hulei_accp

如果你看到面前的阴影，别怕，那是因为你的背后有阳光。

回一个帖子就那么难吗？

xingyun300

先留个脚印，明天再看，觉得这是个好东西！！！

功夫佬

我也先留个脚印有了币再来看