zhd81617 发表于 2015-5-27 07:01:03

沙发

king、 发表于 2015-5-27 08:30:24

做的这么详细，必须顶一个

ynhh 发表于 2015-5-27 09:06:03

ucuc2003 发表于 2015-5-26 22:16 static/image/common/back.gif
;;========================================
;;动态比例
;; by明经通道QQ: 9034598 2013年6月30 ...

大师您好，这个程序很好用，感谢谢您的分享
不能能不能改进成批量操作的啊

lxg3443 发表于 2015-5-27 13:41:12

谢谢楼主的无私奉献!!!!!!

zhl0123321 发表于 2015-5-27 15:11:55

回复下载，学习学习

spp_wall 发表于 2015-5-27 15:54:15

不错！！！！！！！！！！！！！！

kfboy 发表于 2015-5-27 18:55:27

动态以5为单位变动比较实用点

1993063 发表于 2015-5-27 18:58:23

本帖最后由 1993063 于 2015-5-27 01:02 编辑

(defun c:bz (/ gp)
(mapcar 'setvar '("CMDECHO" "EXPERT" "dimclrt") '(0 5 1))
(setq gp (getstring "\n标注样式(比例)名称："))
(if (tblobjname "DIMSTYLE" gp)
    (command "dimstyle" "r" gp)
    (progn
      (command "dimstyle" "r" 1)
      (setvar "dimscale" (atof gp))
      (setvar "dimtofl" 1)
      (command "dimstyle" "s" gp)
      (command "dimstyle" "s" (strcat gp "$3"))
      (command "dimstyle" "s" (strcat gp "$4"))
      (setvar "dimclrt" 1)
      (command "dimstyle" "r" gp)
    )
)
(setvar "EXPERT" 0)
(prompt (strcat "\n标注样式:〖 " gp " 〗成功创建"))
(princ)
)

lucas_3333 发表于 2015-5-27 19:13:44

ynhh 发表于 2015-5-27 09:06 static/image/common/back.gif
大师您好，这个程序很好用，感谢谢您的分享
不能能不能改进成批量操作的啊

好歹你也是9000多分的老会员了, 自己动动手
记得论坛中有一个经常求程序的叫啥? 应该是品茗新秀求助过,有批量的

sicky111 发表于 2015-5-28 08:24:09

这个不错啊
页: 1 2 [3] 4 5 6 7 8 9 10 11 12
查看完整版本: 快速建立标注样式