社区 › AutoLISP/Visual LISP 编程技术 › 功能强大的序号程序

sjl_fyl 发表于 2024-1-10 11:06:45

{:1_1:}谢谢分享

阿猪蛋 发表于 2024-1-15 09:37:07

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

huxu823 发表于 2024-3-30 22:37:02

感谢分享！！！！！！！

ljxkm 发表于 2024-4-2 11:15:37

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

jkop 发表于 2024-4-3 08:24:10

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



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

huxu823 发表于 2024-4-4 15:00:52

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

lifenwei 发表于 2024-4-8 09:46:43

不错。很好。

fangmin723 发表于 2024-4-9 07:57:14

本帖最后由 fangmin723 于 2024-4-9 12:12 编辑

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


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

;;书写模式
(if(= edit_type 2)
(progn
    (setq i -1 pt (cadr (grread T 15 0)))
    (while pt
      (setq txt_num (itoa (+ (atoi start_num) (* (setq i (1+ i)) (atoi inc_num)))))
      (if (= start_num "") (setq txt_num ""))
      (setq txt_new (strcat prefix txt_num suffix))
      (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)))
      tdata (entget ent)
      )
      (while (and (setq gr (grread T 15 0)) (or (= (car gr) 5) (= (car gr) 2) (= (car gr) 11) (= (car gr) 25)))
      (if (= (car gr) 5)
          (progn
            (setq pt (cadr gr))
            (setq tdata (subst (cons 10 pt) (assoc 10 tdata) tdata) tdata (subst (cons 11 pt) (assoc 11 tdata) tdata))
            (entmod tdata)
          )
          (progn (entdel ent) (setq pt nil))
      )
      )
    )
)
)

huxu823 发表于 2024-4-9 11:35:27

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



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

fangmin723 发表于 2024-4-9 11:50:46

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

我这边没有这个问题

查看完整版本: 功能强大的序号程序