乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 80|回复： 10

[编程交流] DDNUB请帮忙！加载错误

[复制链接]
Efeezy

42

主题

104

帖子

69

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
203
发表于 2022-7-6 08:50:45 | 显示全部楼层 |阅读模式
我正在运行Autocad 2011，我遇到了一个加载错误，我在Autocad 2005中使用过这个lisp，并且工作得很好，仍然像ti一样，比express tols中的新自动编号更好
 
 
  1. ;DDNUMB.LSP for release 15
  2. ;Auto numbers text strings.
  3. ;Written by: S. Restmeyer 3/01
  5. ;;;
  6. ;;;----------------------ERROR FUNCTION----------------------------
  7. ;;;
  8. (DEFUN ERR (S)                                ;if an error (such as CTRL-C)
  9.                                 ;occurs while this command is active...
  10.  (if (not (member s '("console break" "Function cancelled")))
  11.    (princ (strcat "\nError: " s))
  12.  )
  13.  (command "_.UNDO" "_E")                ;end any outstanding UNDO group
  14.  (setvar "cmdecho" cmd)                ;restore saved mode
  15.  (setq *error* olderr)
  16.  (princ)
  17. )
  18. ;;;---------------------- MAIN PROGRAM ----------------------------
  19. ;;;
  20. (defun C:DDNUMB (/ CMD dcl_id1 olderr)
  21.  (setq        olderr        *error*
  22. *error*        err
  23.  )
  24.  (SETQ CMD (GETVAR "CMDECHO"))
  25.  (command "_.UNDO" "_G")
  26.  (setvar "cmdecho" 0)
  27.  (defun set_replace ()
  28.    (cond
  29.      ((= (get_tile "do_replace") "0")
  30.       (set_tile "sort_type" "0")
  31.       (mode_tile "sort_type" 1)
  32.       (set_tile "start_no" " ")
  33.       (mode_tile "start_no" 1)
  34.       (set_tile "txt_inc" " ")
  35.       (mode_tile "txt_inc" 1)
  36.      )
  37.      )
  38.    (cond
  39.      ((= (get_tile "do_replace") "1")
  40.       (mode_tile "sort_type" 0)
  41.       (mode_tile "start_no" 0)
  42.       (mode_tile "txt_inc" 0)
  43.       (if sort_type
  44.    (set_tile "sort_type" sort_type)
  45.    (set_tile "sort_type" "0")
  46.    )
  47.       (if txt_inc
  48.    (set_tile "txt_inc" (rtos txt_inc 2 0))
  49.    (set_tile "txt_inc" "1")
  50.    )
  51.       (if start_no
  52.    (set_tile "start_no" (rtos start_no 2 0))
  53.    (set_tile "start_no" "1")
  54.    )
  55.      )
  56.      )
  57.    )
  58.  (defun my_help ()
  59.    (setq file_name (findfile "autonumb.pdf"))
  60.    (startapp "acrobat.exe" (strcat """ file_name """))
  61.    )
  62.       (defun get_data ()
  63.  (setq suffix (get_tile "suffix"))
  64.  (setq prefix (get_tile "prefix"))
  65.  (setq start_no (atoi (get_tile "start_no")))
  66.  (setq txt_inc (atoi (get_tile "txt_inc")))
  67.  (setq sort_type (get_tile "sort_type"))
  68.  (setq do_replace (get_tile "do_replace"))
  69.      )
  70. ;;;-------------------------------------------------------------------
  71. ;;;-----------THIS SECTION RETRIEVES USER INPUT INFORMATION------------
  72. ;;;
  73.     (setq dcl_id1 (load_dialog "autonumb.dcl"))
  74.      (if (not (new_dialog "ddstart" dcl_id1))
  75. (exit)
  76.      )
  77.  (setq sort_list '("Selection" "Top-Bottom" "Left-Right" "Bottom-Top" "Right-Left"))
  78.         (start_list "sort_type")
  79. (mapcar 'add_list sort_list)
  80.         (end_list)
  81.  (if sort_type
  82.    (set_tile "sort_type" sort_type)
  83.    (set_tile "sort_type" "0")
  84.    )
  85.  (if prefix
  86.    (set_tile "prefix" prefix)
  87.    )
  88.  (if suffix
  89.    (set_tile "suffix" suffix)
  90.    )
  91.  (if start_no
  92.    (set_tile "start_no" (rtos start_no 2 0))
  93.    (set_tile "start_no" "1")
  94.    )
  95.  (if txt_inc
  96.    (set_tile "txt_inc" (rtos txt_inc 2 0))
  97.    (set_tile "txt_inc" "1")
  98.    )
  99.    (action_tile "do_replace" "(set_replace)")
  100.    (action_tile "numb_hlp" "(my_help)")
  101.    (action_tile "accept" "(setq start_ok T)(get_data)(done_dialog 1)")
  102.    (action_tile "cancel" "(setq start_ok nil)(done_dialog 0)")
  103.    (start_dialog)
  104.      (unload_dialog dcl_id1)
  105. ;;;-------------------------------------------------------------------
  106. ;;;---------------THIS SECTION MODIFIES SELECTED TEXT-----------------
  107. ;;;
  108.  (defun get_txt (/ sset sset1 sset2 sset3 test num llen temp old)
  109.    (setq sset (ssget '((0 . "TEXT"))))
  110.    (setq num 0)
  111.   (if (= do_replace "1")
  112.     (progn
  113.    (cond
  114.      ((= sort_type "0")
  115.     (while (< num (sslength sset))
  116.       (setq temp (entget (ssname sset num)))
  117.       (setq old (assoc 1 temp))
  118.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  119.            (setq temp (subst new old temp))
  120.            (entmod temp)
  121.       (setq start_no (+ start_no txt_inc))
  122.       (setq num (+ num 1))
  123.       )
  124.       )
  125.      ((= sort_type "1")
  126.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  127.       (setq sset1 (list temp))
  128.       (setq num (+ num 1))
  129.     (while (< num (sslength sset))
  130.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  131.       (setq sset1 (append sset1 (list temp)))
  132.       (setq num (+ num 1))
  133.       )
  134.       (setq sset2 (list ""))
  135.       (while (< (- (length sset2) 1) (sslength sset))
  136.     (setq temp (apply 'max sset1))
  137.     (setq sset2 (append sset2 (list temp)))
  138.     (setq sset3 (list ""))
  139.     (setq num (- (length sset1) 1))
  140.      (while (> num -1)
  141. (setq test (nth num sset1))
  142. (if (not (member test sset2))
  143.   (setq sset3 (append sset3 (list test)))
  144.   )
  145. (setq num (- num 1))
  146. )
  147.       (setq sset1 (cdr sset3))
  148.      )
  149.       (setq sset2 (cdr sset2))
  150.       (setq llen 0)
  151.       (while (< llen (length sset2))
  152.  (setq test (nth llen sset2))
  153.  (setq num 0)
  154.  (while (not (= (caddr (assoc 10 (entget (ssname sset num)))) test))
  155.    (setq num (+ num 1))
  156.    )
  157.  (setq temp (entget (ssname sset num)))
  158.       (setq old (assoc 1 temp))
  159.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  160.            (setq temp (subst new old temp))
  161.            (entmod temp)
  162.       (setq start_no (+ start_no txt_inc))
  163.       (setq llen (+ llen 1))
  164.       )
  165.       )
  166.      ((= sort_type "2")
  167.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  168.       (setq sset1 (list temp))
  169.       (setq num (+ num 1))
  170.     (while (< num (sslength sset))
  171.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  172.       (setq sset1 (append sset1 (list temp)))
  173.       (setq num (+ num 1))
  174.       )
  175.       (setq sset2 (list ""))
  176.       (while (< (- (length sset2) 1) (sslength sset))
  177.     (setq temp (apply 'max sset1))
  178.     (setq sset2 (append sset2 (list temp)))
  179.     (setq sset3 (list ""))
  180.     (setq num (- (length sset1) 1))
  181.      (while (> num -1)
  182. (setq test (nth num sset1))
  183. (if (not (member test sset2))
  184.   (setq sset3 (append sset3 (list test)))
  185.   )
  186. (setq num (- num 1))
  187. )
  188.       (setq sset1 (cdr sset3))
  189.      )
  190.       (setq sset2 (cdr sset2))
  191.      (setq llen (- (length sset2) 1))
  192.       (while (> llen -1)
  193.  (setq test (nth llen sset2))
  194.  (setq num 0)
  195.  (while (not (= (cadr (assoc 10 (entget (ssname sset num)))) test))
  196.    (setq num (+ num 1))
  197.    )
  198.  (setq temp (entget (ssname sset num)))
  199.       (setq old (assoc 1 temp))
  200.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  201.            (setq temp (subst new old temp))
  202.            (entmod temp)
  203.       (setq start_no (+ start_no txt_inc))
  204.       (setq llen (- llen 1))
  205.       )
  206.       )
  207.      ((= sort_type "3")
  208.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  209.       (setq sset1 (list temp))
  210.       (setq num (+ num 1))
  211.     (while (< num (sslength sset))
  212.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  213.       (setq sset1 (append sset1 (list temp)))
  214.       (setq num (+ num 1))
  215.       )
  216.       (setq sset2 (list ""))
  217.       (while (< (- (length sset2) 1) (sslength sset))
  218.     (setq temp (apply 'max sset1))
  219.     (setq sset2 (append sset2 (list temp)))
  220.     (setq sset3 (list ""))
  221.     (setq num (- (length sset1) 1))
  222.      (while (> num -1)
  223. (setq test (nth num sset1))
  224. (if (not (member test sset2))
  225.   (setq sset3 (append sset3 (list test)))
  226.   )
  227. (setq num (- num 1))
  228. )
  229.       (setq sset1 (cdr sset3))
  230.      )
  231.       (setq sset2 (cdr sset2))
  232.       (setq llen (- (length sset2) 1))
  233.       (while (> llen -1)
  234.  (setq test (nth llen sset2))
  235.  (setq num 0)
  236.  (while (not (= (caddr (assoc 10 (entget (ssname sset num)))) test))
  237.    (setq num (+ num 1))
  238.    )
  239.  (setq temp (entget (ssname sset num)))
  240.       (setq old (assoc 1 temp))
  241.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  242.            (setq temp (subst new old temp))
  243.            (entmod temp)
  244.       (setq start_no (+ start_no txt_inc))
  245.       (setq llen (- llen 1))
  246.       )
  247.       )
  248.      ((= sort_type "4")
  249.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  250.       (setq sset1 (list temp))
  251.       (setq num (+ num 1))
  252.     (while (< num (sslength sset))
  253.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  254.       (setq sset1 (append sset1 (list temp)))
  255.       (setq num (+ num 1))
  256.       )
  257.       (setq sset2 (list ""))
  258.       (while (< (- (length sset2) 1) (sslength sset))
  259.     (setq temp (apply 'max sset1))
  260.     (setq sset2 (append sset2 (list temp)))
  261.     (setq sset3 (list ""))
  262.     (setq num (- (length sset1) 1))
  263.      (while (> num -1)
  264. (setq test (nth num sset1))
  265. (if (not (member test sset2))
  266.   (setq sset3 (append sset3 (list test)))
  267.   )
  268. (setq num (- num 1))
  269. )
  270.       (setq sset1 (cdr sset3))
  271.      )
  272.       (setq sset2 (cdr sset2))
  273.       (setq llen 0)
  274.       (while (< llen (length sset2))
  275.  (setq test (nth llen sset2))
  276.  (setq num 0)
  277.  (while (not (= (cadr (assoc 10 (entget (ssname sset num)))) test))
  278.    (setq num (+ num 1))
  279.    )
  280.  (setq temp (entget (ssname sset num)))
  281.       (setq old (assoc 1 temp))
  282.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  283.            (setq temp (subst new old temp))
  284.            (entmod temp)
  285.       (setq start_no (+ start_no txt_inc))
  286.       (setq llen (+ llen 1))
  287.       )
  288.       )
  289.      )
  290.    )
  291.     (progn
  292.       (setq start_no nil)
  293.       (setq txt_inc nil)
  294.      (while (< num (sslength sset))
  295.       (setq temp (entget (ssname sset num)))
  296.       (setq old (assoc 1 temp))
  297.   (setq new (cons 1 (strcat  prefix (cdr old) suffix)))
  298.            (setq temp (subst new old temp))
  299.            (entmod temp)
  300.       (setq num (+ num 1))
  301.       ) 
  302.       )
  303.     )
  304.    )
  305.   (if start_ok
  306.    (get_txt)
  307.  )
  308.   (setq *error* olderr)
  309. (setvar "cmdecho" cmd)
  310.    )
  311.
回复

使用道具 举报

Tharwat

63

主题

6297

帖子

6283

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
358
发表于 2022-7-6 09:02:21 | 显示全部楼层
快速阅读此代码发布
回复

使用道具 举报

Efeezy

42

主题

104

帖子

69

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
203
发表于 2022-7-6 09:05:18 | 显示全部楼层 
  1. ;DDNUMB.LSP for release 15
  2. ;Auto numbers text strings.
  3. ;Written by: S. Restmeyer 3/01
  5. ;;;
  6. ;;;----------------------ERROR FUNCTION----------------------------
  7. ;;;
  8. (DEFUN ERR (S)                                ;if an error (such as CTRL-C)
  9.                                 ;occurs while this command is active...
  10.  (if (not (member s '("console break" "Function cancelled")))
  11.    (princ (strcat "\nError: " s))
  12.  )
  13.  (command "_.UNDO" "_E")                ;end any outstanding UNDO group
  14.  (setvar "cmdecho" cmd)                ;restore saved mode
  15.  (setq *error* olderr)
  16.  (princ)
  17. )
  18. ;;;---------------------- MAIN PROGRAM ----------------------------
  19. ;;;
  20. (defun C:DDNUMB (/ CMD dcl_id1 olderr)
  21.  (setq        olderr        *error*
  22. *error*        err
  23.  )
  24.  (SETQ CMD (GETVAR "CMDECHO"))
  25.  (command "_.UNDO" "_G")
  26.  (setvar "cmdecho" 0)
  27.  (defun set_replace ()
  28.    (cond
  29.      ((= (get_tile "do_replace") "0")
  30.       (set_tile "sort_type" "0")
  31.       (mode_tile "sort_type" 1)
  32.       (set_tile "start_no" " ")
  33.       (mode_tile "start_no" 1)
  34.       (set_tile "txt_inc" " ")
  35.       (mode_tile "txt_inc" 1)
  36.      )
  37.      )
  38.    (cond
  39.      ((= (get_tile "do_replace") "1")
  40.       (mode_tile "sort_type" 0)
  41.       (mode_tile "start_no" 0)
  42.       (mode_tile "txt_inc" 0)
  43.       (if sort_type
  44.    (set_tile "sort_type" sort_type)
  45.    (set_tile "sort_type" "0")
  46.    )
  47.       (if txt_inc
  48.    (set_tile "txt_inc" (rtos txt_inc 2 0))
  49.    (set_tile "txt_inc" "1")
  50.    )
  51.       (if start_no
  52.    (set_tile "start_no" (rtos start_no 2 0))
  53.    (set_tile "start_no" "1")
  54.    )
  55.      )
  56.      )
  57.    )
  58.  (defun my_help ()
  59.    (setq file_name (findfile "autonumb.pdf"))
  60.    (startapp "acrobat.exe" (strcat """ file_name """))
  61.    )
  62.       (defun get_data ()
  63.  (setq suffix (get_tile "suffix"))
  64.  (setq prefix (get_tile "prefix"))
  65.  (setq start_no (atoi (get_tile "start_no")))
  66.  (setq txt_inc (atoi (get_tile "txt_inc")))
  67.  (setq sort_type (get_tile "sort_type"))
  68.  (setq do_replace (get_tile "do_replace"))
  69.      )
  70. ;;;-------------------------------------------------------------------
  71. ;;;-----------THIS SECTION RETRIEVES USER INPUT INFORMATION------------
  72. ;;;
  73.     (setq dcl_id1 (load_dialog "autonumb.dcl"))
  74.      (if (not (new_dialog "ddstart" dcl_id1))
  75. (exit)
  76.      )
  77.  (setq sort_list '("Selection" "Top-Bottom" "Left-Right" "Bottom-Top" "Right-Left"))
  78.         (start_list "sort_type")
  79. (mapcar 'add_list sort_list)
  80.         (end_list)
  81.  (if sort_type
  82.    (set_tile "sort_type" sort_type)
  83.    (set_tile "sort_type" "0")
  84.    )
  85.  (if prefix
  86.    (set_tile "prefix" prefix)
  87.    )
  88.  (if suffix
  89.    (set_tile "suffix" suffix)
  90.    )
  91.  (if start_no
  92.    (set_tile "start_no" (rtos start_no 2 0))
  93.    (set_tile "start_no" "1")
  94.    )
  95.  (if txt_inc
  96.    (set_tile "txt_inc" (rtos txt_inc 2 0))
  97.    (set_tile "txt_inc" "1")
  98.    )
  99.    (action_tile "do_replace" "(set_replace)")
  100.    (action_tile "numb_hlp" "(my_help)")
  101.    (action_tile "accept" "(setq start_ok T)(get_data)(done_dialog 1)")
  102.    (action_tile "cancel" "(setq start_ok nil)(done_dialog 0)")
  103.    (start_dialog)
  104.      (unload_dialog dcl_id1)
  105. ;;;-------------------------------------------------------------------
  106. ;;;---------------THIS SECTION MODIFIES SELECTED TEXT-----------------
  107. ;;;
  108.  (defun get_txt (/ sset sset1 sset2 sset3 test num llen temp old)
  109.    (setq sset (ssget '((0 . "TEXT"))))
  110.    (setq num 0)
  111.   (if (= do_replace "1")
  112.     (progn
  113.    (cond
  114.      ((= sort_type "0")
  115.     (while (< num (sslength sset))
  116.       (setq temp (entget (ssname sset num)))
  117.       (setq old (assoc 1 temp))
  118.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  119.            (setq temp (subst new old temp))
  120.            (entmod temp)
  121.       (setq start_no (+ start_no txt_inc))
  122.       (setq num (+ num 1))
  123.       )
  124.       )
  125.      ((= sort_type "1")
  126.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  127.       (setq sset1 (list temp))
  128.       (setq num (+ num 1))
  129.     (while (< num (sslength sset))
  130.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  131.       (setq sset1 (append sset1 (list temp)))
  132.       (setq num (+ num 1))
  133.       )
  134.       (setq sset2 (list ""))
  135.       (while (< (- (length sset2) 1) (sslength sset))
  136.     (setq temp (apply 'max sset1))
  137.     (setq sset2 (append sset2 (list temp)))
  138.     (setq sset3 (list ""))
  139.     (setq num (- (length sset1) 1))
  140.      (while (> num -1)
  141. (setq test (nth num sset1))
  142. (if (not (member test sset2))
  143.   (setq sset3 (append sset3 (list test)))
  144.   )
  145. (setq num (- num 1))
  146. )
  147.       (setq sset1 (cdr sset3))
  148.      )
  149.       (setq sset2 (cdr sset2))
  150.       (setq llen 0)
  151.       (while (< llen (length sset2))
  152.  (setq test (nth llen sset2))
  153.  (setq num 0)
  154.  (while (not (= (caddr (assoc 10 (entget (ssname sset num)))) test))
  155.    (setq num (+ num 1))
  156.    )
  157.  (setq temp (entget (ssname sset num)))
  158.       (setq old (assoc 1 temp))
  159.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  160.            (setq temp (subst new old temp))
  161.            (entmod temp)
  162.       (setq start_no (+ start_no txt_inc))
  163.       (setq llen (+ llen 1))
  164.       )
  165.       )
  166.      ((= sort_type "2")
  167.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  168.       (setq sset1 (list temp))
  169.       (setq num (+ num 1))
  170.     (while (< num (sslength sset))
  171.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  172.       (setq sset1 (append sset1 (list temp)))
  173.       (setq num (+ num 1))
  174.       )
  175.       (setq sset2 (list ""))
  176.       (while (< (- (length sset2) 1) (sslength sset))
  177.     (setq temp (apply 'max sset1))
  178.     (setq sset2 (append sset2 (list temp)))
  179.     (setq sset3 (list ""))
  180.     (setq num (- (length sset1) 1))
  181.      (while (> num -1)
  182. (setq test (nth num sset1))
  183. (if (not (member test sset2))
  184.   (setq sset3 (append sset3 (list test)))
  185.   )
  186. (setq num (- num 1))
  187. )
  188.       (setq sset1 (cdr sset3))
  189.      )
  190.       (setq sset2 (cdr sset2))
  191.      (setq llen (- (length sset2) 1))
  192.       (while (> llen -1)
  193.  (setq test (nth llen sset2))
  194.  (setq num 0)
  195.  (while (not (= (cadr (assoc 10 (entget (ssname sset num)))) test))
  196.    (setq num (+ num 1))
  197.    )
  198.  (setq temp (entget (ssname sset num)))
  199.       (setq old (assoc 1 temp))
  200.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  201.            (setq temp (subst new old temp))
  202.            (entmod temp)
  203.       (setq start_no (+ start_no txt_inc))
  204.       (setq llen (- llen 1))
  205.       )
  206.       )
  207.      ((= sort_type "3")
  208.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  209.       (setq sset1 (list temp))
  210.       (setq num (+ num 1))
  211.     (while (< num (sslength sset))
  212.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  213.       (setq sset1 (append sset1 (list temp)))
  214.       (setq num (+ num 1))
  215.       )
  216.       (setq sset2 (list ""))
  217.       (while (< (- (length sset2) 1) (sslength sset))
  218.     (setq temp (apply 'max sset1))
  219.     (setq sset2 (append sset2 (list temp)))
  220.     (setq sset3 (list ""))
  221.     (setq num (- (length sset1) 1))
  222.      (while (> num -1)
  223. (setq test (nth num sset1))
  224. (if (not (member test sset2))
  225.   (setq sset3 (append sset3 (list test)))
  226.   )
  227. (setq num (- num 1))
  228. )
  229.       (setq sset1 (cdr sset3))
  230.      )
  231.       (setq sset2 (cdr sset2))
  232.       (setq llen (- (length sset2) 1))
  233.       (while (> llen -1)
  234.  (setq test (nth llen sset2))
  235.  (setq num 0)
  236.  (while (not (= (caddr (assoc 10 (entget (ssname sset num)))) test))
  237.    (setq num (+ num 1))
  238.    )
  239.  (setq temp (entget (ssname sset num)))
  240.       (setq old (assoc 1 temp))
  241.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  242.            (setq temp (subst new old temp))
  243.            (entmod temp)
  244.       (setq start_no (+ start_no txt_inc))
  245.       (setq llen (- llen 1))
  246.       )
  247.       )
  248.      ((= sort_type "4")
  249.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  250.       (setq sset1 (list temp))
  251.       (setq num (+ num 1))
  252.     (while (< num (sslength sset))
  253.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  254.       (setq sset1 (append sset1 (list temp)))
  255.       (setq num (+ num 1))
  256.       )
  257.       (setq sset2 (list ""))
  258.       (while (< (- (length sset2) 1) (sslength sset))
  259.     (setq temp (apply 'max sset1))
  260.     (setq sset2 (append sset2 (list temp)))
  261.     (setq sset3 (list ""))
  262.     (setq num (- (length sset1) 1))
  263.      (while (> num -1)
  264. (setq test (nth num sset1))
  265. (if (not (member test sset2))
  266.   (setq sset3 (append sset3 (list test)))
  267.   )
  268. (setq num (- num 1))
  269. )
  270.       (setq sset1 (cdr sset3))
  271.      )
  272.       (setq sset2 (cdr sset2))
  273.       (setq llen 0)
  274.       (while (< llen (length sset2))
  275.  (setq test (nth llen sset2))
  276.  (setq num 0)
  277.  (while (not (= (cadr (assoc 10 (entget (ssname sset num)))) test))
  278.    (setq num (+ num 1))
  279.    )
  280.  (setq temp (entget (ssname sset num)))
  281.       (setq old (assoc 1 temp))
  282.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  283.            (setq temp (subst new old temp))
  284.            (entmod temp)
  285.       (setq start_no (+ start_no txt_inc))
  286.       (setq llen (+ llen 1))
  287.       )
  288.       )
  289.      )
  290.    )
  291.     (progn
  292.       (setq start_no nil)
  293.       (setq txt_inc nil)
  294.      (while (< num (sslength sset))
  295.       (setq temp (entget (ssname sset num)))
  296.       (setq old (assoc 1 temp))
  297.   (setq new (cons 1 (strcat  prefix (cdr old) suffix)))
  298.            (setq temp (subst new old temp))
  299.            (entmod temp)
  300.       (setq num (+ num 1))
  301.       ) 
  302.       )
  303.     )
  304.    )
  305.   (if start_ok
  306.    (get_txt)
  307.  )
  308.   (setq *error* olderr)
  309. (setvar "cmdecho" cmd)
  310.    )
  311.
回复

使用道具 举报

Hippe013

20

主题

338

帖子

323

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
100
发表于 2022-7-6 09:08:49 | 显示全部楼层
你能把自动麻醉贴出来吗。dcl文件？也许你只需要将该文件添加到你的支持文件夹中。只是一个想法，没有深入思考。
回复

使用道具 举报

Efeezy

42

主题

104

帖子

69

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
203
发表于 2022-7-6 09:20:47 | 显示全部楼层
那么我用这个文件做什么，或者我需要做什么？我已经好几年没有在新电脑上加载这个了。。。。
  1. //----------------------------------------------------------------------------
  2. // 
  3. // Corresponding dialogue for DDNUMB.LSP
  4. // 
  5. //----------------------------------------------------------------------------
  7. //dcl_settings : default_dcl_settings { audit_level = 3; }
  10. ddstart : dialog {
  11.     label = "Auto Number";
  12. initial_focus = "prefix";
  13.         : row {
  14.         : boxed_column {
  15.                 fixed_width = true;
  16.                 label = "&Prefix";
  17.                         : edit_box {
  18.                                 key = "prefix";
  19.                                 mnemonic = "P";
  20.                                 fixed_width = true;
  21.                                    }
  22.                         }
  23.         : boxed_column {
  24.                 fixed_width = true;
  25.                 label = "Start &No";
  26.                         : edit_box {
  27.                                 key = "start_no";
  28.                                 mnemonic = "N";
  29.                                 fixed_width = true;
  30.                                    }
  31.                         }
  32.         : boxed_column {
  33.                 fixed_width = true;
  34.                 label = "&Suffix";
  35.                         : edit_box {
  36.                                 key = "suffix";
  37.                                 mnemonic = "S";
  38.                                 fixed_width = true;
  39.                                    }
  40.                         }
  41.                 }
  42. : row {
  43.         : boxed_column {
  44.                 fixed_width = true;
  45.                 label = "&Increment";
  46.                         : edit_box {
  47.                                 key = "txt_inc";
  48.                                 mnemonic = "I";
  49.                                 fixed_width = true;
  50.                                    }
  51.                         }
  52.         : boxed_column {
  53.                 fixed_width = true;
  54.                 label = "Sort &By";
  55.                         : popup_list {
  56.                                 key = "sort_type";
  57.                                 width = 13;
  58.                                 fixed_width = true;
  59.                                 }
  60.                         }
  61.         : toggle {
  62.                 label = "Replace";
  63.                 key = "do_replace";
  64.                 value = 1;
  65.                 }
  66.         }
  67.         spacer_1;
  68.         : row {
  69. ok_cancel;
  70.                 : button {
  71.                         key = "numb_hlp";
  72.                         label = "Help";
  73.                         mnemonic = "H";
  74.                         }
  75.                 }
  76.         }
回复

使用道具 举报

Efeezy

42

主题

104

帖子

69

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
203
发表于 2022-7-6 09:23:33 | 显示全部楼层
我无法加载我的自动编号DDNUMB我已经尝试了工具加载应用程序。我在Autocad 2005中使用了lisp，现在在2011年尝试使用它。我做错了什么？
  1. ;DDNUMB.LSP for release 15
  2. ;Auto numbers text strings.
  3. ;Written by: S. Restmeyer 3/01
  5. ;;;
  6. ;;;----------------------ERROR FUNCTION----------------------------
  7. ;;;
  8. (DEFUN ERR (S)                                ;if an error (such as CTRL-C)
  9.                                 ;occurs while this command is active...
  10.  (if (not (member s '("console break" "Function cancelled")))
  11.    (princ (strcat "\nError: " s))
  12.  )
  13.  (command "_.UNDO" "_E")                ;end any outstanding UNDO group
  14.  (setvar "cmdecho" cmd)                ;restore saved mode
  15.  (setq *error* olderr)
  16.  (princ)
  17. )
  18. ;;;---------------------- MAIN PROGRAM ----------------------------
  19. ;;;
  20. (defun C:DDNUMB (/ CMD dcl_id1 olderr)
  21.  (setq        olderr        *error*
  22. *error*        err
  23.  )
  24.  (SETQ CMD (GETVAR "CMDECHO"))
  25.  (command "_.UNDO" "_G")
  26.  (setvar "cmdecho" 0)
  27.  (defun set_replace ()
  28.    (cond
  29.      ((= (get_tile "do_replace") "0")
  30.       (set_tile "sort_type" "0")
  31.       (mode_tile "sort_type" 1)
  32.       (set_tile "start_no" " ")
  33.       (mode_tile "start_no" 1)
  34.       (set_tile "txt_inc" " ")
  35.       (mode_tile "txt_inc" 1)
  36.      )
  37.      )
  38.    (cond
  39.      ((= (get_tile "do_replace") "1")
  40.       (mode_tile "sort_type" 0)
  41.       (mode_tile "start_no" 0)
  42.       (mode_tile "txt_inc" 0)
  43.       (if sort_type
  44.    (set_tile "sort_type" sort_type)
  45.    (set_tile "sort_type" "0")
  46.    )
  47.       (if txt_inc
  48.    (set_tile "txt_inc" (rtos txt_inc 2 0))
  49.    (set_tile "txt_inc" "1")
  50.    )
  51.       (if start_no
  52.    (set_tile "start_no" (rtos start_no 2 0))
  53.    (set_tile "start_no" "1")
  54.    )
  55.      )
  56.      )
  57.    )
  58.  (defun my_help ()
  59.    (setq file_name (findfile "autonumb.pdf"))
  60.    (startapp "acrobat.exe" (strcat """ file_name """))
  61.    )
  62.       (defun get_data ()
  63.  (setq suffix (get_tile "suffix"))
  64.  (setq prefix (get_tile "prefix"))
  65.  (setq start_no (atoi (get_tile "start_no")))
  66.  (setq txt_inc (atoi (get_tile "txt_inc")))
  67.  (setq sort_type (get_tile "sort_type"))
  68.  (setq do_replace (get_tile "do_replace"))
  69.      )
  70. ;;;-------------------------------------------------------------------
  71. ;;;-----------THIS SECTION RETRIEVES USER INPUT INFORMATION------------
  72. ;;;
  73.     (setq dcl_id1 (load_dialog "autonumb.dcl"))
  74.      (if (not (new_dialog "ddstart" dcl_id1))
  75. (exit)
  76.      )
  77.  (setq sort_list '("Selection" "Top-Bottom" "Left-Right" "Bottom-Top" "Right-Left"))
  78.         (start_list "sort_type")
  79. (mapcar 'add_list sort_list)
  80.         (end_list)
  81.  (if sort_type
  82.    (set_tile "sort_type" sort_type)
  83.    (set_tile "sort_type" "0")
  84.    )
  85.  (if prefix
  86.    (set_tile "prefix" prefix)
  87.    )
  88.  (if suffix
  89.    (set_tile "suffix" suffix)
  90.    )
  91.  (if start_no
  92.    (set_tile "start_no" (rtos start_no 2 0))
  93.    (set_tile "start_no" "1")
  94.    )
  95.  (if txt_inc
  96.    (set_tile "txt_inc" (rtos txt_inc 2 0))
  97.    (set_tile "txt_inc" "1")
  98.    )
  99.    (action_tile "do_replace" "(set_replace)")
  100.    (action_tile "numb_hlp" "(my_help)")
  101.    (action_tile "accept" "(setq start_ok T)(get_data)(done_dialog 1)")
  102.    (action_tile "cancel" "(setq start_ok nil)(done_dialog 0)")
  103.    (start_dialog)
  104.      (unload_dialog dcl_id1)
  105. ;;;-------------------------------------------------------------------
  106. ;;;---------------THIS SECTION MODIFIES SELECTED TEXT-----------------
  107. ;;;
  108.  (defun get_txt (/ sset sset1 sset2 sset3 test num llen temp old)
  109.    (setq sset (ssget '((0 . "TEXT"))))
  110.    (setq num 0)
  111.   (if (= do_replace "1")
  112.     (progn
  113.    (cond
  114.      ((= sort_type "0")
  115.     (while (< num (sslength sset))
  116.       (setq temp (entget (ssname sset num)))
  117.       (setq old (assoc 1 temp))
  118.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  119.            (setq temp (subst new old temp))
  120.            (entmod temp)
  121.       (setq start_no (+ start_no txt_inc))
  122.       (setq num (+ num 1))
  123.       )
  124.       )
  125.      ((= sort_type "1")
  126.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  127.       (setq sset1 (list temp))
  128.       (setq num (+ num 1))
  129.     (while (< num (sslength sset))
  130.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  131.       (setq sset1 (append sset1 (list temp)))
  132.       (setq num (+ num 1))
  133.       )
  134.       (setq sset2 (list ""))
  135.       (while (< (- (length sset2) 1) (sslength sset))
  136.     (setq temp (apply 'max sset1))
  137.     (setq sset2 (append sset2 (list temp)))
  138.     (setq sset3 (list ""))
  139.     (setq num (- (length sset1) 1))
  140.      (while (> num -1)
  141. (setq test (nth num sset1))
  142. (if (not (member test sset2))
  143.   (setq sset3 (append sset3 (list test)))
  144.   )
  145. (setq num (- num 1))
  146. )
  147.       (setq sset1 (cdr sset3))
  148.      )
  149.       (setq sset2 (cdr sset2))
  150.       (setq llen 0)
  151.       (while (< llen (length sset2))
  152.  (setq test (nth llen sset2))
  153.  (setq num 0)
  154.  (while (not (= (caddr (assoc 10 (entget (ssname sset num)))) test))
  155.    (setq num (+ num 1))
  156.    )
  157.  (setq temp (entget (ssname sset num)))
  158.       (setq old (assoc 1 temp))
  159.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  160.            (setq temp (subst new old temp))
  161.            (entmod temp)
  162.       (setq start_no (+ start_no txt_inc))
  163.       (setq llen (+ llen 1))
  164.       )
  165.       )
  166.      ((= sort_type "2")
  167.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  168.       (setq sset1 (list temp))
  169.       (setq num (+ num 1))
  170.     (while (< num (sslength sset))
  171.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  172.       (setq sset1 (append sset1 (list temp)))
  173.       (setq num (+ num 1))
  174.       )
  175.       (setq sset2 (list ""))
  176.       (while (< (- (length sset2) 1) (sslength sset))
  177.     (setq temp (apply 'max sset1))
  178.     (setq sset2 (append sset2 (list temp)))
  179.     (setq sset3 (list ""))
  180.     (setq num (- (length sset1) 1))
  181.      (while (> num -1)
  182. (setq test (nth num sset1))
  183. (if (not (member test sset2))
  184.   (setq sset3 (append sset3 (list test)))
  185.   )
  186. (setq num (- num 1))
  187. )
  188.       (setq sset1 (cdr sset3))
  189.      )
  190.       (setq sset2 (cdr sset2))
  191.      (setq llen (- (length sset2) 1))
  192.       (while (> llen -1)
  193.  (setq test (nth llen sset2))
  194.  (setq num 0)
  195.  (while (not (= (cadr (assoc 10 (entget (ssname sset num)))) test))
  196.    (setq num (+ num 1))
  197.    )
  198.  (setq temp (entget (ssname sset num)))
  199.       (setq old (assoc 1 temp))
  200.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  201.            (setq temp (subst new old temp))
  202.            (entmod temp)
  203.       (setq start_no (+ start_no txt_inc))
  204.       (setq llen (- llen 1))
  205.       )
  206.       )
  207.      ((= sort_type "3")
  208.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  209.       (setq sset1 (list temp))
  210.       (setq num (+ num 1))
  211.     (while (< num (sslength sset))
  212.       (setq temp (caddr (assoc 10 (entget (ssname sset num)))))
  213.       (setq sset1 (append sset1 (list temp)))
  214.       (setq num (+ num 1))
  215.       )
  216.       (setq sset2 (list ""))
  217.       (while (< (- (length sset2) 1) (sslength sset))
  218.     (setq temp (apply 'max sset1))
  219.     (setq sset2 (append sset2 (list temp)))
  220.     (setq sset3 (list ""))
  221.     (setq num (- (length sset1) 1))
  222.      (while (> num -1)
  223. (setq test (nth num sset1))
  224. (if (not (member test sset2))
  225.   (setq sset3 (append sset3 (list test)))
  226.   )
  227. (setq num (- num 1))
  228. )
  229.       (setq sset1 (cdr sset3))
  230.      )
  231.       (setq sset2 (cdr sset2))
  232.       (setq llen (- (length sset2) 1))
  233.       (while (> llen -1)
  234.  (setq test (nth llen sset2))
  235.  (setq num 0)
  236.  (while (not (= (caddr (assoc 10 (entget (ssname sset num)))) test))
  237.    (setq num (+ num 1))
  238.    )
  239.  (setq temp (entget (ssname sset num)))
  240.       (setq old (assoc 1 temp))
  241.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  242.            (setq temp (subst new old temp))
  243.            (entmod temp)
  244.       (setq start_no (+ start_no txt_inc))
  245.       (setq llen (- llen 1))
  246.       )
  247.       )
  248.      ((= sort_type "4")
  249.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  250.       (setq sset1 (list temp))
  251.       (setq num (+ num 1))
  252.     (while (< num (sslength sset))
  253.       (setq temp (cadr (assoc 10 (entget (ssname sset num)))))
  254.       (setq sset1 (append sset1 (list temp)))
  255.       (setq num (+ num 1))
  256.       )
  257.       (setq sset2 (list ""))
  258.       (while (< (- (length sset2) 1) (sslength sset))
  259.     (setq temp (apply 'max sset1))
  260.     (setq sset2 (append sset2 (list temp)))
  261.     (setq sset3 (list ""))
  262.     (setq num (- (length sset1) 1))
  263.      (while (> num -1)
  264. (setq test (nth num sset1))
  265. (if (not (member test sset2))
  266.   (setq sset3 (append sset3 (list test)))
  267.   )
  268. (setq num (- num 1))
  269. )
  270.       (setq sset1 (cdr sset3))
  271.      )
  272.       (setq sset2 (cdr sset2))
  273.       (setq llen 0)
  274.       (while (< llen (length sset2))
  275.  (setq test (nth llen sset2))
  276.  (setq num 0)
  277.  (while (not (= (cadr (assoc 10 (entget (ssname sset num)))) test))
  278.    (setq num (+ num 1))
  279.    )
  280.  (setq temp (entget (ssname sset num)))
  281.       (setq old (assoc 1 temp))
  282.   (setq new (cons 1 (strcat prefix (rtos start_no 2 0) suffix)))
  283.            (setq temp (subst new old temp))
  284.            (entmod temp)
  285.       (setq start_no (+ start_no txt_inc))
  286.       (setq llen (+ llen 1))
  287.       )
  288.       )
  289.      )
  290.    )
  291.     (progn
  292.       (setq start_no nil)
  293.       (setq txt_inc nil)
  294.      (while (< num (sslength sset))
  295.       (setq temp (entget (ssname sset num)))
  296.       (setq old (assoc 1 temp))
  297.   (setq new (cons 1 (strcat  prefix (cdr old) suffix)))
  298.            (setq temp (subst new old temp))
  299.            (entmod temp)
  300.       (setq num (+ num 1))
  301.       ) 
  302.       )
  303.     )
  304.    )
  305.   (if start_ok
  306.    (get_txt)
  307.  )
  308.   (setq *error* olderr)
  309. (setvar "cmdecho" cmd)
  310.    )
  311.
回复

使用道具 举报

Efeezy

42

主题

104

帖子

69

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
203
发表于 2022-7-6 09:30:13 | 显示全部楼层
添加到文件中的lisp。我该怎么办？DCL文件
 
  1. //----------------------------------------------------------------------------
  2. // 
  3. // Corresponding dialogue for DDNUMB.LSP
  4. // 
  5. //----------------------------------------------------------------------------
  7. //dcl_settings : default_dcl_settings { audit_level = 3; }
  10. ddstart : dialog {
  11.     label = "Auto Number";
  12. initial_focus = "prefix";
  13.         : row {
  14.         : boxed_column {
  15.                 fixed_width = true;
  16.                 label = "&Prefix";
  17.                         : edit_box {
  18.                                 key = "prefix";
  19.                                 mnemonic = "P";
  20.                                 fixed_width = true;
  21.                                    }
  22.                         }
  23.         : boxed_column {
  24.                 fixed_width = true;
  25.                 label = "Start &No";
  26.                         : edit_box {
  27.                                 key = "start_no";
  28.                                 mnemonic = "N";
  29.                                 fixed_width = true;
  30.                                    }
  31.                         }
  32.         : boxed_column {
  33.                 fixed_width = true;
  34.                 label = "&Suffix";
  35.                         : edit_box {
  36.                                 key = "suffix";
  37.                                 mnemonic = "S";
  38.                                 fixed_width = true;
  39.                                    }
  40.                         }
  41.                 }
  42. : row {
  43.         : boxed_column {
  44.                 fixed_width = true;
  45.                 label = "&Increment";
  46.                         : edit_box {
  47.                                 key = "txt_inc";
  48.                                 mnemonic = "I";
  49.                                 fixed_width = true;
  50.                                    }
  51.                         }
  52.         : boxed_column {
  53.                 fixed_width = true;
  54.                 label = "Sort &By";
  55.                         : popup_list {
  56.                                 key = "sort_type";
  57.                                 width = 13;
  58.                                 fixed_width = true;
  59.                                 }
  60.                         }
  61.         : toggle {
  62.                 label = "Replace";
  63.                 key = "do_replace";
  64.                 value = 1;
  65.                 }
  66.         }
  67.         spacer_1;
  68.         : row {
  69. ok_cancel;
  70.                 : button {
  71.                         key = "numb_hlp";
  72.                         label = "Help";
  73.                         mnemonic = "H";
  74.                         }
  75.                 }
  76.         }
回复

使用道具 举报

Efeezy

42

主题

104

帖子

69

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
203
发表于 2022-7-6 09:34:10 | 显示全部楼层
我想出来了加载DCL文件：
C： \程序文件\ AutoCAD版本\支持
回复

使用道具 举报

ketxu

22

主题

326

帖子

185

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
243
发表于 2022-7-6 09:41:31 | 显示全部楼层
但是为什么你发了两次？
http://www.cadtutor.net/forum/showthread.php?63198-DDNUB请帮忙-加载错误
回复

使用道具 举报

SLW210

4

主题

2143

帖子

2197

银币

限制会员

铜币
-24
发表于 2022-7-6 09:48:18 | 显示全部楼层
我组合了你的线程。请只发布同一个问题一次。
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-7 08:11 , Processed in 1.390048 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表