[МИХАИЛCAD]

с помощью этих программ меняю на чертеже тексты и мтексты
а вот атрибуты не получается!
помогите пожалуйста!

[Do$]

Внес минимальные изменения - теперь и атрибуты обрабатываются. В файле DCL ничего не менял. В файле LSP:

• Заменил в выборе объекта ENTSEL на NENTSEL.
• Изменил в паре мест строки, выводимые в командную строку.
• Добавил обновление объекта после модификации.

[Кулик Алексей aka kpblc]

У меня ощущение, что код как-то странно написан (я про исходный). Зачем там строка типа (setq val (strcat val))? И сравнение

Код:

[Выделить все]

(if (= dval "")
    (setq dval "<>")
    )

Весьма странно. Полное ощущение, что еще хотелось изначально и размеры обрабатывать

[Do$]

Точно! И название функции DN_AppendDim. Наверное, сперва эта функция была создана именно для размеров, а потом какой-то Кулибин ее "перенацелил"

[МИХАИЛCAD]

кулибин это я
Класс!
работает как звэр!
Большое спасибо вам уважаемые!
Appreciated!
ну вот теперь каждый чертёжник может сгрузить это
и заменять на чертеже какието тексты на часто повторяющиеся словосочетания
а ещё я вставляю стандартные фразы с помощю подобных програм
вот они...

а вот программка с помощью которой я расставляю объекты на одинаковом расстоянии
как бы сделать так чтобы показывать Array direction и Distance for array за один приём?

[Do$]

Не смог просто заменить GETANGLE и GETDIST на GETPOINT, добавил еще обработку нажатия ESC (привычка уже, спасибо kpblc'у ). По-хорошему, еще надо избавляться от команд, благо есть VLA функции COPY и MOVE (это на будущее ).
Еще добавил восстановление системной переменной после завершения работы программы.

[Кулик Алексей aka kpblc]

Еще один вариант arrm:

Код:

[Выделить все]

(vl-load-com)

(defun c:arrm2 (/ adoc *error* selset base dist ang count copy new step)

  (defun *error* (msg)
    (if copy
      (vl-catch-all-apply
        (function
          (lambda ()
            (vla-erase copy)
            ) ;_ end of lambda
          ) ;_ end of function
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of if
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (and (= (type (setq selset (vl-catch-all-apply
                                   (function
                                     (lambda ()
                                       (ssget "_:L")
                                       ) ;_ end of lambda
                                     ) ;_ end of function
                                   ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'pickset
              ) ;_ end of =
           (= (type (setq base (vl-catch-all-apply
                                 (function
                                   (lambda ()
                                     (initget 1)
                                     (getpoint "\nBase point <Cancel> : ")
                                     ) ;_ end of lambda
                                   ) ;_ end of function
                                 ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'list
              ) ;_ end of =
           (member (type (setq dist (vl-catch-all-apply
                                      (function
                                        (lambda ()
                                          (getdist base "\nDistance for array <Cancel> : ")
                                          ) ;_ end of lambda
                                        ) ;_ end of function
                                      ) ;_ end of vl-catch-all-apply
                               ) ;_ end of setq
                         ) ;_ end of type
                   (list 'real 'int)
                   ) ;_ end of member
           (member (type (setq ang (vl-catch-all-apply
                                     (function
                                       (lambda ()
                                         (initget 1)
                                         (getangle base "\nArray direction <Cancel> : ")
                                         ) ;_ end of lambda
                                       ) ;_ end of function
                                     ) ;_ end of vl-catch-all-apply
                               ) ;_ end of setq
                         ) ;_ end of type
                   (list 'real 'int)
                   ) ;_ end of member
           (= (type (setq count (vl-catch-all-apply
                                  (function
                                    (lambda ()
                                      (initget 7)
                                      (getint "\nNumber of object copies <Cancel> : ")
                                      ) ;_ end of lambda
                                    ) ;_ end of function
                                  ) ;_ end of vl-catch-all-apply
                          ) ;_ end of setq
                    ) ;_ end of type
              'int
              ) ;_ end of =
           ) ;_ end of and
    (progn
      (setq selset (mapcar (function vlax-ename->vla-object)
                           ((lambda (/ tab item)
                              (repeat (setq tab  nil
                                            item (sslength selset)
                                            ) ;_ end setq
                                (setq tab (cons (ssname selset (setq item (1- item))) tab))
                                ) ;_ end of repeat
                              ) ;_ end of LAMBDA
                            )
                           ) ;_ end of mapcar
            step   0.
            ) ;_ end of setq
      (repeat (1- count)
        (setq new (polar base ang (setq step (+ step (/ dist (1- count))))))
        (foreach ent selset
          (vla-move (setq copy (vla-copy ent)) (vlax-3d-point base) (vlax-3d-point new))
          (setq copy nil)
          ) ;_ end of foreach
        ) ;_ end of repeat
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

[Do$]

Ну да, как-то так
А если вот это:

Код:

[Выделить все]

(member (type
   (setq dist (vl-catch-all-apply
         (function
    (lambda ()
      (getdist base "\nDistance for array <Cancel> : ")
    ) ;_ end of lambda
         ) ;_ end of function
       ) ;_ end of vl-catch-all-apply
   ) ;_ end of setq
 ) ;_ end of type
 (list 'real 'int)
) ;_ end of member
(member (type
   (setq ang (vl-catch-all-apply
        (function
   (lambda ()
     (initget 1)
     (getangle base "\nArray direction <Cancel> : ")
   ) ;_ end of lambda
        ) ;_ end of function
      ) ;_ end of vl-catch-all-apply
   ) ;_ end of setq
 ) ;_ end of type
 (list 'real 'int)
) ;_ end of member

Заменить на:

Код:

[Выделить все]

(= (type
     (setq
       ang
 (vl-catch-all-apply
   (function
     (lambda ()
       (initget 1)
       (getpoint base "\nAngle & Direction point <Cancel> : ")
     ) ;_ end of lambda
   ) ;_ end of function
 ) ;_ end of vl-catch-all-apply
     ) ;_ end of setq
   ) ;_ end of type
   'list
) ;_ end of =

И после

Код:

[Выделить все]

 
(progn

Вставить

Код:

[Выделить все]

(setq dist (distance base ang)
      ang  (angle base ang)
) ;_ end of setq

То получится одним щелчком указывать и угол и расстояние. Не проверял, правда...

[Кулик Алексей aka kpblc]

Вся проблема в том, что лично мой код будет работать только в мировой системе координат. Преобразование точек я не делал