分享几个函数

神秘将军 · 发表于 2017-4-17 22:23:16

啥也不说了，感谢楼主分享哇！

qjcpj · 发表于 2017-4-18 09:40:18

感谢楼主分享。

olenewman · 发表于 2017-4-18 15:20:48

第一个看不懂

dingwqing · 发表于 2017-4-19 06:57:31

回复，下载，学习！！！！！！

1993063 · 发表于 2017-4-19 07:57:25

看看啥好东东

dnbcgrass · 发表于 2017-4-19 08:37:51

回复学习学习！

xinxirong · 发表于 2017-4-19 09:23:56

忆夺放大反对负担辅导饭店防盗锁

yufeng37 · 发表于 2017-4-19 09:34:33

啥也不说了，感谢楼主分享哇！

9635luyu · 发表于 2017-4-20 20:29:38

这是什么哦

kukine · 发表于 2017-5-10 09:26:57

学习学习。。。。。。。。。。。。。。

qyming1996 · 发表于 2017-7-10 11:20:16

学习学习学习

543628024 · 发表于 2017-7-10 12:16:42

收藏了慢慢看，谢谢

455383153 · 发表于 2017-7-12 19:02:37

回复看看

microewjs · 发表于 2017-7-22 23:42:04

;;建立标注样式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:26:51

谢谢楼主分享！

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

[每日一码] 分享几个函数