快速建立标注样式

zhd81617

沙发

king、

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

ynhh

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

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

lxg3443

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

zhl0123321

回复下载，学习学习

spp_wall

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

kfboy

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

1993063

2. (defun c:bz (/ gp)
   
3.   (mapcar 'setvar '("CMDECHO" "EXPERT" "dimclrt") '(0 5 1))
   
4.   (setq gp (getstring "\n标注样式(比例)名称："))
   
5.   (if (tblobjname "DIMSTYLE" gp)
   
6.     (command "dimstyle" "r" gp)
   
7.     (progn
   
8.       (command "dimstyle" "r" 1)
   
9.       (setvar "dimscale" (atof gp))
   
10.       (setvar "dimtofl" 1)
    
11.       (command "dimstyle" "s" gp)
    
12.       (command "dimstyle" "s" (strcat gp "$3"))
    
13.       (command "dimstyle" "s" (strcat gp "$4"))
    
14.       (setvar "dimclrt" 1)
    
15.       (command "dimstyle" "r" gp)
    
16.     )
    
17.   )
    
18.   (setvar "EXPERT" 0)
    
19.   (prompt (strcat "\n标注样式:〖 " gp " 〗成功创建"))
    
20.   (princ)
    
21. )

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

lucas_3333

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

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

sicky111

这个不错啊