《AutoLISP语言程序设计》郭秀娟.于全通.范小鸥.化学工业出版社.2008

至野异族

这个书是不是很老很老了

a88611462

谢楼主分享~~~

microewjs

;;建立标注样式Standard
(defun C:New_dimStyle (/ L)
  (setq        L '(("dimzin" 9)
            ("dimupt" 0)
            ("dimtzin" 0)
            ("dimtxt" 3.5)
            ("dimtxsty" "Standard")
            ("dimtolj" 1)
            ("dimtol" 0)
            ("dimtofl" 0)
            ("dimtmove" 0)
            ("dimtix" 0)
            ("dimtih" 0)
            ("dimtfac" 1.0)
            ("dimtdec" 3)
            ("dimtad" 1)
            ("dimscale" 1.0)
            ("dimlunit" 2)
            ("dimlfac" 1.0)
            ("dimldrblk"
             "DotSmall"
            )
            ("dimjust" 0)
            ("dimgap" 1.2)
            ("dimexo" 1.0)
            ("dimexe" 2.0)
            ("dimdsep" ".")
            ("dimdli" 10.0)
            ("dimdle" 2.0)
            ("dimdec" 3)
            ("dimclrt" 0)
            ("dimclre" 0)
            ("dimclrd" 0)
            ("dimcen" -3.0)
            ("dimblk" "")
            ("dimazin" 2)
            ("dimaunit" 0)
            ("dimatfit" 3)
            ("dimasz" 3.0)
            ("dimassoc" 2)
            ("dimaltu" 2)
            ("dimalttz" 0)
            ("dimalt" 0)
            ("dimadec" 1)
            ("blipmode" 0)
           )
  )
  (foreach x L
    (cond ((getvar (car x)) (setvar (car x) (cadr x))))
  )
  (cond        ((tblsearch "dimstyle" "Standard") (command "dimstyle" "S" "Standard" "Y"))
        (T (command "dimstyle" "S" "Standard"))
  )
  (princ)
)

gwjcn

谢谢分享，谢谢了！

hyl472166030

下再过来看看

yiyiyiyi_1

我来测试一下，行不行

ymd

谢谢分享！

kqqt6236

谢谢分享。

vpddup

感谢版主的分享啊

yanghz08

ddddddddddddddddddddddddd

liuyefei98

多谢分享 看看学习下

liutong1997

在哪呢，怎么没看到

xukefei

下载看看，谢谢大牛

zy1377145535

谢谢分享，好资料啊

1934539491

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~