[Pontelimon]

Добрый день !

Я совсем недавно начал пытаться что-то сделать на Lisp так что прошу сильно не ругаться =)

Вот моя первый код, он должен выделять одно строчный текст, расположенный по оси Y < -75.

Код:

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

(defun vibor ( / )
  (setq nabor2 (ssadd))
  (setq nabor (ssget "_X" (list (cons 0 "TEXT") (cons 1 "*`.###"))))
  (if (null nabor)
      (progn
	(princ "\nНету подходящего текста. ")
	(princ)
      )
      (progn
	(setq i -1 kolichestvo_repeatov (sslength nabor))
	(repeat kolichestvo_repeatov
	  (setq i (1+ i))
	  (setq konkretniy_primitiv (entget (ssname nabor i)))
	  (setq koordinata_Y (caddr (assoc 10 konkretniy_primitiv)))
	  (if (koordinata_Y < -75)
	    (ssadd (konkretniy_primitiv) nabor2)
	    );end if
	    );end repeat
	  );end progn
    );end if
  (sssetfirst nil nabor2)
  (princ)
  );end defun

Но как Вы наверное уже догадались он не работает, почему ?

P.S. Очень прошу посмотреть что можно сделать именно в моем варианте решения данной задачи.

[Лиспер]

Сначала вставляется файл, содержащий блок (command "_.-insert" FileName) (command)
Потом вставляешь уже сам блок "Профиль В".
P.S. На форуме есть тема, название, кажется, "На заметку программистам" - там были какие-то коды.
P.P.S.

Сообщение от Pontelimon при вставке с палитры он у меня автоматически расчленяться

Посмотри настройки инструмента.

Сообщение от Pontelimon Как можно получить координаты точки вставки блока

DXF Reference в руки, 10 группа.

[Disney]

Сообщение от Лиспер DXF Reference в руки, 10 группа.

Не всегда всё так просто...

[Лиспер]

Disney, вряд ли тут задействована немировая система координат будет И потом, trans никуда не делся

[Pontelimon]

Сообщение от Лиспер Сначала вставляется файл, содержащий блок (command "_.-insert" FileName) (command) Потом вставляешь уже сам блок "Профиль В". P.P.S. Посмотри настройки инструмента.

Спасибо, получилось вставить блок по нужным координатам, но появилось несколько вопросов:

1. Когда я подгружаю файл содержащий нужный мне блок, он хочет его вставить на текущий чертеж, можно ли сделать так чтобы он только подгружал из него блоки без запроса вставки ?

2. Я что-то, не понял какого инструмента настройки смотреть ? я хочу чтобы они при вставке разбивались.

3. Можно ли избавиться от спама к командной строке, который сопровождает вставку блока ?

[Лиспер]

1. Я ж написал самый простой вариант: (command "_.-insert" <FileName>) (command)
2. Настройки инструмента на ToolPalette, который у тебя выполняет вставку блока
3. Можно cmdecho -> 0; nomutt -> 1. Потом вернуть все обратно

[Pontelimon]

Сообщение от Лиспер 1. Я ж написал самый простой вариант: (command "_.-insert" <FileName>) (command) 2. Настройки инструмента на ToolPalette, который у тебя выполняет вставку блока 3. Можно cmdecho -> 0; nomutt -> 1. Потом вернуть все обратно

Спасибо ! Все получилось ! =)

[Pontelimon]

Поясните пожалуйста, почему в данном случае выдаётся ошибка:
"; ошибка: неверная функция: 190.0"
вот код:

Код:

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

 (setq listkoordY (list 190.0 195.0 200.0 205.0 210.0 215.0 220.0 225.0 230.0))
(setq listkoordY (list 'min listkoordY))
(setq minkoordY(eval listkoordY)) 

Все, вопрос снимаю, сам допер.

Код:

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

 (setq listkoordY (list 190.0 195.0 200.0 205.0 210.0 215.0 220.0 225.0 230.0))
(setq listkoordY (cons 'min listkoordY))
(setq minkoordY(eval listkoordY)) 

[Лиспер]

А что, проще не получается?

Код:

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

 (setq listkoordY '(190.0 195.0 200.0 205.0 210.0 215.0 220.0 225.0 230.0))
(apply 'min listkoordY)

Или так:

Код:

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

 (setq minkoordY (apply 'min '(190.0 195.0 200.0 205.0 210.0 215.0 220.0 225.0 230.0)))

[Pontelimon]

Сообщение от Лиспер А что, проще не получается? Код: [Выделить все] (setq listkoordY '(190.0 195.0 200.0 205.0 210.0 215.0 220.0 225.0 230.0)) (apply 'min listkoordY) Или так: Код: [Выделить все] (setq minkoordY (apply 'min '(190.0 195.0 200.0 205.0 210.0 215.0 220.0 225.0 230.0)))

Да, так действительно проще, спасибо

Я столкнулся вот с такой проблемой:

Есть полилиния (рамка) вот ее DXF:

((-1 . <Имя объекта: 7ec57e30>) (0 . "LWPOLYLINE") (330 . <Имя
объекта: 7ef90cf8>) (5 . "C06") (100 . "AcDbEntity") (67 . 0) (410 . "Model")
(8 . "0") (100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.5) (38 . 0.0) (39 .
0.0) (10 -110.0 -130.0) (40 . 0.5) (41 . 0.5) (42 . 0.0) (10 -110.0 280.0) (40
. 0.5) (41 . 0.5) (42 . 0.0) (10 337.0 280.0) (40 . 0.5) (41 . 0.5) (42 . 0.0)
(10 337.0 -130.0) (40 . 0.5) (41 . 0.5) (42 . 0.0) (210 0.0 0.0 1.0))

В ней аж 4 группы с 10-кой, как мне ее опустить по Y на 10 единиц ?

[Дима_]

без проверки - как-то так:
(entmode (mapcar '(lambda (x) (if (= (car x) 10) (cons 10 (cons (cadr x) (cons (-(caddr x) 10) (cdddr x)))) x)) DXF))
но ихмо - в данном случае "надежней" vla:
(vla-move (vlax-ename->vla-object (entlast)) (vlax-3d-point '(0 10 0)) (vlax-3d-point '(0 0 0)))

[Pontelimon]

Сообщение от Дима_ без проверки - как-то так: (entmode (mapcar '(lambda (x) (if (= (car x) 10) (cons 10 (cons (cadr x) (cons (-(caddr x) 10) (cdddr x)))) x)) DXF)) но ихмо - в данном случае "надежней" vla: (vla-move (vlax-ename->vla-object (entlast)) (vlax-3d-point '(0 10 0)) (vlax-3d-point '(0 0 0)))

Использовал Ваш vla вариант, спасибо !!!
DXF не запустился.

[Дима_]

Сообщение от Pontelimon Использовал Ваш vla вариант, спасибо !!! DXF не запустился.

там где выделенно DXF должен быть dxf код полилинии (типа того что вы писали) - как вариант (entget (entlast))

[VVA]

Сообщение от Pontelimon DXF не запустился.

И не запустится. Нужно не entmode, а entmod
А так красивее

Код:

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

(and
(setq DXF (entget(car(entsel "\Выбери полилинию: "))))
(entmod(mapcar '(lambda (x)(if(= (car x) 10)(cons 10 (mapcar '- (cdr x) '(0 -10))) x)) DXF))
)

[Дима_]

Сообщение от VVA И не запустится. Нужно не entmode, а entmod

эх...

[Pontelimon]

Сообщение от VVA И не запустится. Нужно не entmode, а entmod А так красивее Код: [Выделить все] (and (setq DXF (entget(car(entsel "\Выбери полилинию: ")))) (entmod(mapcar '(lambda (x)(if(= (car x) 10)(cons 10 (mapcar '- (cdr x) '(0 -10))) x)) DXF)) )

А Вы бы не могли разъяснить поэтапно, как для дурака, как это работает ? =) И если не трудно применительно к такому вот примеру:

Есть полилиния :

((-1 . <Имя объекта: 7e909850>) (0 . "LWPOLYLINE") (330 . <Имя
объекта: 7ef90cf8>) (5 . "4B12") (100 . "AcDbEntity") (67 . 0) (410 . "Model")
(8 . "0") (100 . "AcDbPolyline") (90 . 2) (70 . 0) (43 . 0.0) (38 . 0.0) (39 .
0.0) (10 26.2914 84.5212) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 27.5839 84.5212)
(40 . 0.0) (41 . 0.0) (42 . 0.0) (210 0.0 0.0 1.0))

Как мне изменить все ее Х координаты на свои переменные X1 и X2 ?

[Дима_]

(and ; это альтернатива проверки условия (if) если первый опрератор (setq...) вернет nil то следуящея команда выполняться не будет
(setq DXF (entget(car(entsel "\Выбери полилинию: ")))) ;присваивает значению DXF список dxf кодов выбранного примитива
(entmod ;преобразовать примитив
(mapcar ;вернуть обработанные следующей функцией все элементы списка (dxf)
'(lambda (x);функция принимающая на входе 1 аргумент - ассоциативную пару (список, либо cons-пара где первый элемент является кодом остальной части списка)
(if(= (car x) 10);если код пары = 10 (координата)
(cons 10 (mapcar '- (cdr x) '(0 -10))); создать ассоативный список с кодом 10 (координата) и координатой меньше начальной по оси X на 0, по оси Y на 10 (ноль, так-же, можно поменять на любое число (в т.ч. и отрицательное) - для изменения координаты Х)
x));в противном случае (не код 10) - вернуть полученное значение без изменений
DXF ;обрабатываемый список кодов)))

[Pontelimon]

Сообщение от Дима_ (and ; это альтернатива проверки условия (if) если первый опрератор (setq...) вернет nil то следуящея команда выполняться не будет (setq DXF (entget(car(entsel "\Выбери полилинию: ")))) ;присваивает значению DXF список dxf кодов выбранного примитива (entmod ;преобразовать примитив (mapcar ;вернуть обработанные следующей функцией все элементы списка (dxf) '(lambda (x);функция принимающая на входе 1 аргумент - ассоциативную пару (список, либо cons-пара где первый элемент является кодом остальной части списка) (if(= (car x) 10);если код пары = 10 (координата) (cons 10 (mapcar '- (cdr x) '(0 -10))); создать ассоативный список с кодом 10 (координата) и координатой меньше начальной по оси X на 0, по оси Y на 10 (ноль, так-же, можно поменять на любое число (в т.ч. и отрицательное) - для изменения координаты Х) x));в противном случае (не код 10) - вернуть полученное значение без изменений DXF ;обрабатываемый список кодов)))

Большое спасибо ! Стало на порядок понятней ! Но не понятно как в этом случае можно было бы различить несколько групп с кодом 10, т.е. допустим первую 10-ку нужно увеличить на 5 а вторую уменьшить 5?

[Дима_]

Сообщение от Pontelimon Но не понятно как в этом случае можно было бы различить несколько групп с кодом 10, т.е. допустим первую 10-ку нужно увеличить на 5 а вторую уменьшить 5?

Вариант 1 проще в понимании, но мне не нравится - ввести дополнительную переменную и считать ей какая сейчас координата - соответственно исправить проверку.
Вариант 2 - рекурсивный - написать самовызывающую функцию последовательно "обходящею список", с дополнительными аргументами (номера, четности и пр.) - несколько иная логика работы - но без проблем будет работать с многовложенными списками и пр. "неожиданостями".
p.s. - за активное применение второго метода иногда "сыплется" критика со стороны формучан.

[Pontelimon]

Ну второй вариант мне пока по определению явно не доступен. Поэтому я остановлю свой выбор на 1-ом, вот я немного модифицировал код под свои нужды, предоставленный как пример, VVA.

(entmod (mapcar '(lambda (x) (if(and (= (car x) 10) (= minkoordX (cadr x))) (cons 10 (mapcar '+ (cdr x) '(0.5 0))) x)) dno))
(entmod (mapcar '(lambda (x1) (if(and (= (car x1) 10) (= (+ minkoordX 4) (cadr x1))) (cons 10 (mapcar '- (cdr x1) '(0.5 0))) x1)) dno))

В итоге первым действием все как и было мной задумано отрезок полилинии(слева) укорачивается на 0.5, а вот вторым действием вместо укорачивания почему-то отрезок просто перемещаться налево на 0.5, а если повторить все с первого действия то отрезок начинает просто перемещаться то на 0.5 налево, то направо. Где я ошибся ?

[Дима_]

Сообщение от Pontelimon а если повторить все с первого действия то отрезок начинает просто перемещаться то на 0.5 налево, то направо. Где я ошибся ?

Это и есть одна из тех многочисленных "неожиданостей" которые всплывают при использовании "простого первого метода" - после entmod dno надо обновить - а то он производит изменения в соответствии с первыми (изначальными) параметрами. Если программа будет чуть посложней - иногда очень не просто не упустить, что сейчас у тебя в переменной.