功能强大的序号程序

sjl_fyl

谢谢分享

阿猪蛋

真可惜了。这么强大的序号程序不能用也没有高手帮忙修正。唉浪费了

huxu823

感谢分享！！！！！！！

ljxkm

这程序一看好像还不错，但一用还真不通，程序写的也不友善，改起来很麻烦，感谢龙龙仔超级版主修改哈

jkop

vlisp2012 发表于 2012-3-5 20:46
将AutoNum.DCL，放在cad支持的路径下。
加载 autonum.lsp 后即可使用。

感谢整理分享，测试之后发现很方便、强大！

huxu823

程序有BUG，如果是书写模式，选用的文字样式的文字高度必须设置为0才行

lifenwei

不错。很好。

fangmin723

整合lsp和dcl
支持一下上推荐


书写模式下，文字跟随光标移动代码如下，如有需要，自行替换：

1. ;;书写模式
   
2. (if  (= edit_type 2)
   
3.   (progn
   
4.     (setq i -1 pt (cadr (grread T 15 0)))
   
5.     (while pt
   
6.       (setq txt_num (itoa (+ (atoi start_num) (* (setq i (1+ i)) (atoi inc_num)))))
   
7.       (if (= start_num "") (setq txt_num ""))
   
8.       (setq txt_new (strcat prefix txt_num suffix))
   
9.       (setq ent (entmakex (list '(0 . "TEXT") (cons 1 txt_new) (cons 7 txt_style) (cons 40 (atof txt_height)) (cons 10 pt) (cons 11 pt) '(71 . 0) '(72 . 4)))
   
10.         tdata (entget ent)
    
11.       )
    
12.       (while (and (setq gr (grread T 15 0)) (or (= (car gr) 5) (= (car gr) 2) (= (car gr) 11) (= (car gr) 25)))
    
13.         (if (= (car gr) 5)
    
14.           (progn
    
15.             (setq pt (cadr gr))
    
16.             (setq tdata (subst (cons 10 pt) (assoc 10 tdata) tdata) tdata (subst (cons 11 pt) (assoc 11 tdata) tdata))
    
17.             (entmod tdata)
    
18.           )
    
19.           (progn (entdel ent) (setq pt nil))
    
20.         )
    
21.       )
    
22.     )
    
23.   )
    
24. )

;;书写模式<br /> (if  (= edit_type 2)<br />   (progn<br />     (setq i -1 pt (cadr (grread T 15 0)))<br />     (while pt<br />       (setq txt_num (itoa (+ (atoi start_num) (* (setq i (1+ i)) (atoi inc_num)))))<br />       (if (= start_num "") (setq txt_num ""))<br />       (setq txt_new (strcat prefix txt_num suffix))<br />       (setq ent (entmakex (list '(0 . "TEXT") (cons 1 txt_new) (cons 7 txt_style) (cons 40 (atof txt_height)) (cons 10 pt) (cons 11 pt) '(71 . 0) '(72 . 4)))<br />         tdata (entget ent)<br />       )<br />       (while (and (setq gr (grread T 15 0)) (or (= (car gr) 5) (= (car gr) 2) (= (car gr) 11) (= (car gr) 25)))<br />         (if (= (car gr) 5)<br />           (progn <br />             (setq pt (cadr gr))<br />             (setq tdata (subst (cons 10 pt) (assoc 10 tdata) tdata) tdata (subst (cons 11 pt) (assoc 11 tdata) tdata))<br />             (entmod tdata)<br />           )<br />           (progn (entdel ent) (setq pt nil))<br />         )<br />       )<br />     )<br />   )<br /> )

huxu823

fangmin723 发表于 2024-4-9 07:57
整合lsp和dcl
支持一下上推荐

程序有BUG，书写模式，选用的文字样式的文字高度必须设置为0才行，否则标出来全是倾斜的0，求助修改！

fangmin723

huxu823 发表于 2024-4-9 11:35
程序有BUG，书写模式，选用的文字样式的文字高度必须设置为0才行，否则标出来全是倾斜的0，求助修改！

我这边没有这个问题