收集和整理的lisp源码

czhcarl01 · 发表于 2017-7-22 07:24:09

我来测试一下，行不行

microewjs · 发表于 2017-7-22 23:44:08

;;建立标注样式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)
)

zhouzhiy · 发表于 2017-7-27 18:23:01

谢谢楼主分享！

热土流风 · 发表于 2017-7-28 09:01:34

回复瞧瞧是啥！

254619324 · 发表于 2017-7-28 10:11:10

楼主的分享，真是好东西

wk2004 · 发表于 2017-7-28 10:35:24

想看看。谢谢

wwwwxd · 发表于 2017-7-29 11:24:01

这个真的是太棒了

gate · 发表于 2017-7-29 19:54:34

谢谢分享，辛勤的积累。:)

brainstorm · 发表于 2017-7-29 22:46:01

谢谢楼主无私分享

dl1770621030 · 发表于 2017-8-2 09:36:56

连接在那里

liulisheng · 发表于 2017-8-11 17:15:45

好多啊我顶

livewin · 发表于 2017-8-11 18:34:40

谢谢分享，辛勤的积累

jieqiangbm · 发表于 2017-8-21 23:13:52

谢谢分享学习！

梦在天堂 · 发表于 2017-8-22 00:52:11

谢谢分享，辛勤的积累。:)

aifengshenai · 发表于 2017-9-6 17:26:38

谢谢楼主无私分享

账号		自动登录	找回密码
密码			立即注册

[每日一码] 收集和整理的lisp源码