Jump to content

Recommended Posts

Добрый день!
Прошу помощи, есть lisp который позволяет нумеровать атрибуты в блоках последовательно по согласно выбору по щелчку мышки.
В АКАДЕ работает без проблемм. В нанокаде отказывается, в коде не силен, прошу помощи по адаптации этого кода для нанокада.

 

(defun *error* (msg)
  (if (= msg "Function cancelled") (princ msg)(princ));if
  (setvar "CMDECHO" cmd) (setvar "PICKAUTO" pca)   
);*error*
(defun C:KAN ( / ass cmd pca dn n at ast val)
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object))
    cmd (getvar "CMDECHO") pca (getvar "PICKAUTO") n 0);setq
  (setvar "CMDECHO" 0)
  (initget "Number Renumber")
  (setq kw (getkword "\n[Number/Renumber]? <N>"))
  (if (null kw) (setq kw "Number"))
  (if (= kw "Number") (setvar "PICKAUTO" 0))
  (setq dn (getint "\nInput Start or Offset Number: <1>"))
  (if (null dn) (setq dn 1))
  (prompt (strcat "\nSelect Blocks for " kw "ing: "))
  (ssget)
  (setq ass (vla-get-ActiveSelectionSet adoc))
  (vlax-for sb ass
   (if (= (vla-get-objectname sb) "AcDbBlockReference")
     (progn (setq at (car (vlax-safearray->list
           (vlax-variant-value (vla-getattributes sb))))
          ast (vla-get-TextString at) val ast);setq
      (while (wcmatch val "*@*") (setq val (substr ov 2)))
      (vla-put-TextString at (strcat (vl-string-right-trim val ast)
      (if (= kw "Number") (itoa (+ n dn))(itoa (+ (atoi val) dn)))));vla-put
      (setq n (1+ n)));progn
     (alert "Oops! It's not a Block!"));if
  );vlax-for
 (setvar "CMDECHO" cmd)
 (setvar "PICKAUTO" pca)
);end

KAN.lsp

Link to comment
Share on other sites

11 минут назад, flagman сказал:

есть lisp который позволяет нумеровать атрибуты в блоках

Вот не помню, добрались тут до  атрибутов блоков или нет

Link to comment
Share on other sites

Работает! Благодарю!

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
 Share

  • Tell a friend

    Love Официальный форум компании Нанософт? Tell a friend!
×
×
  • Create New...