Пакетная печать блоков-форматов в PDF на LISP

[Андрей1986]

(if (wcmatch (strcase (vla-get-effectivename ent)) "A1,A1")

Почему имя блока 2 раза прописывается?
А если у меня блок называется Рамка_штамп. Мне нужно 2 раза прописать  "Рамка_штамп,Рамка_штамп"?

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

Одна "А" - русская, вторая - английская.
Кстати, посмотри в справке - что такое strcase и к чему оно приводит

[Андрей1986]

wcmatch-сравнение,
strcase-возвращает строку, в которой все алфавитные символы были преобразованы в верхний или нижний регистр
vla-get-effectivename ent-не понятно.

Дак, если я хочу заменить название блока на Рамка_формат, код можно такой же оставить?
Что-то не получается. nil пишет

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

vla-get-effectivename - получение т.н. "эффективного" имени блока (в т.ч. и динамического)

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

Что-то не получается. nil пишет

В каком месте? Покажи свой код

[Андрей1986]

(if (wcmatch (strcase (vla-get-effectivename ent)) "Рамка_формат")
или полностью?

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

Пусть у блока эффективное имя "Рамка_формат"
(wcmatch (strcase (vla-get-effectivename ent)) "Рамка_формат") -> nil
(wcmatch (strcase (vla-get-effectivename ent)) (strcase "Рамка_формат")) -> t

Сравнение строк происходит с учетом регистра!

[Андрей1986]

Офигеть. Сработало братва! Сенкс большое!!! Ну ты мозг!

[Андрей1986]

А если я хочу добавить другие форматы, мне с какого места добавлять код?

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

В таком случае понадобится изменить имена блоков, вычисления точек и названия используемых листов.
Скажу честно - для подобной задачи я бы писал отдельную функцию, которая получает вычисленные точки, название плоттера и используемого формата. И ее бы и использовал.

[Андрей1986]

Код - Auto/Visual Lisp [Выбрать]

1. [(mapcar (function (lambda (x) (mapcar '+ ins x))) '((0. 0. 0.) (841. 594. 0.)]
2.  

Это вычисление точек?

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

Ну да.

[Андрей1986]

Код - Auto/Visual Lisp [Выбрать]

1. (defun c:poly-by-blocks (/ selset ins)
2.   (vl-load-com)
3.   (setq *adoc* (vla-get-activedocument (vlax-get-acad-object)))
4.   (if (= (type (setq selset (vl-catch-all-apply (function (lambda () (ssget '((0 . "INSERT"))))))))
5.          'pickset
6.          ) ;_ end of =
7.     (progn
8.       (foreach ent (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex selset))))
9.         (if (wcmatch (strcase (vla-get-effectivename ent)) (strcase "Рамка_формат"))
10.           (progn (setq ins (vlax-safearray->list (vlax-variant-value (vla-get-insertionpoint ent))))
11.                  (poly-plot (getfiled "Where to plot" "C:\\Users\\a.kozlovsky\\Desktop\\ПДФ\\" "pdf" 1)
12.                             ;;"c:\\Users\\evthi\\Desktop\\Ваша папка"
13.                            (mapcar (function (lambda (x) (mapcar '+ ins x))) '((0. 0. 0.) (841. 594. 0.)))
14.                             ) ;_ end of poly-plot
15.                  ) ;_ end of progn
16.           ) ;_ end of if
17.         ) ;_ end of foreach
18.       ) ;_ end of progn
19.     ) ;_ end of if
20. ) ;_ end of defun

если вместо  строки   ;;"c:\\Users\\evthi\\Desktop\\Ваша папка"  поставить:

Код - Auto/Visual Lisp [Выбрать]

1. ;;Вычисление точек
2. (defun vichislenie_tochek
3. (mapcar (function (lambda (x) (mapcar '+ ins x))) '((0. 0. 0.) (297. 210. 0.)
4. (mapcar (function (lambda (x) (mapcar '+ ins x))) '((0. 0. 0.) (297. 420. 0.)
5. (mapcar (function (lambda (x) (mapcar '+ ins x))) '((0. 0. 0.) (841. 594. 0.)

так можно сделать?

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

Так, стоп.
Сделать - можно. Но, во-первых, работать не будет. Во-вторых, что будет возвращаться, если вдруг случится чудо и этот код заработает?

[Александр Ривилис]

если вдруг случится чудо и этот код заработает?

Чудо не случится - там полная чехарда со скобками.