[Jek30]

Может кто-нибудь сможет написать лисп для вставки прямоугольника (хотябы черновой вариан)!
На форумах искал подобное, но там всё не то.
В общем если кому-нибудь будет интересно, то суть будущего лиспа в следующем:
(Например есть трасса кабельной линии, а на пересечениях этой трассы с коммуникациями нужно прокладывать кабель в трубах, а пересечений всегда много). Так вот. На плане это выглядит так:
В виде кабеля имеется полилиния с множеством углов поворотов в различном направлении, а в некоторых местах на эту линию нужно вставить прямоугольнички разных длин (т.е. трубы через коммуникации) и естественно симметрично и параллельно данной поллилинии.
Нужно чтоб нажал кнопку лиспа и вышло бы например указание "Укажите точку вставки прямоугольника (трубы)"
После указания точки вставки указывается вторая точка, которая определяет длину (в данном случае половину длины) прямоугольника и его направление (по длинной стороне).
После указания этих двух точек (симметрично той поллилинии, на которой мы выбрали точку вставки), от первой указанной точки (точки вставки) у нас должен отрисоваться от собственного центра, один прямоугольник, в обе стороны от первой указанной точки, а длиной (т.е. половиной) и направлением по второй указанной точке.
Цвет прямоугольника-синий. Ширина - 0,4 мм (а длину и направление указываем второй точкой). Тип линии-пунктир . Толщина - 0,35 мм.
Данный Лисп думаю многим бы пригадился, тем кто прокладывает на "бумаге" различные сети. К тому же я думаю что ширину прямоугольника, толщину, тип и цвет линии каждый может потом сам переписать в коде лиспа под себя.
Заранее спасибо!!!

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

А почему не использовать дин.блок?

[Jek30]

Сообщение от Кулик Алексей aka kpblc А почему не использовать дин.блок?

Во-первых у этих прямоугольников всегда разные длины (а строить несколько блоков как-то неудобно).
Во-вторых мне потом надо будет как-то быстро посчитать длины этих прямоугольников (а считаю я их через лисп, "ELEN"), в блоках же дину не извлечешь лиспом "ELEN".

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

Блок - один. С дин.параметром "растягивание". А длины можно посчитать через тот же _.dataextraction

[Nike]

Как вариант - вставка блока с поворотом и масштабированием

(setq Point1 (getpoint "\nТочка 1 (вставки): "))
(setq Point2 (getpoint "\nТочка 2 (направление): "))
(setq Ang (/ (* (angle Point1 Point2) 180) pi))
(setq Sca (* (distance Point1 Point2) 2))
(vl-cmdf "_.-insert" "block" Point1 Sca 1 Ang "")

[Jek30]

Сообщение от Кулик Алексей aka kpblc Блок - один. С дин.параметром "растягивание". А длины можно посчитать через тот же _.dataextraction

еслиб я еще, умелбы дин блок создавать, кстати я сейчас пытаюсь , такой создать

[Jek30]

Сообщение от Nike Как вариант - вставка блока с поворотом и масштабированием

Почемуто этот лисп не до конца работает у меня

[Nike]

(DEFUN c:as (/ Point1 Point2 Ang Sca)
(setq Point1 (getpoint "\nТочка 1 (вставки): "))
(setq Point2 (getpoint "\nТочка 2 (направление): "))
(setq Ang (/ (* (angle Point1 Point2) 180) pi))
(setq Sca (* (distance Point1 Point2) 2))
(vl-cmdf "_.-insert" "block" Point1 Sca 1 Ang "")

----- добавлено через ~2 мин. -----
А не проще будет не прямоугольником, а мультилинией?

[Jek30]

Сообщение от Nike А не проще будет не прямоугольником, а мультилинией?

Имеешь ввиду полилинией?,

Сообщение от Nike (DEFUN c:as (/ Point1 Point2 Ang Sca) (setq Point1 (getpoint "\nТочка 1 (вставки): ")) (setq Point2 (getpoint "\nТочка 2 (направление): ")) (setq Ang (/ (* (angle Point1 Point2) 180) pi)) (setq Sca (* (distance Point1 Point2) 2)) (vl-cmdf "_.-insert" "block" Point1 Sca 1 Ang "")

Заработало! Почти то что надо. Ну можно и полилинией я думаю. Только можно ли чтоб это был не блок, а прямоугольник?

----- добавлено через ~47 мин. -----
Люди а вы знаете как вот эту строчку, в таком виде↓

^C^C_-insert;Название чертежа(без формата и без пробелов);\1;1;0;_EXPLODE;_last;_-purge;_Blocks;"Название чертежа(без формата и без пробелов)";_No;;;

Как ее прописать вместо "block" из этой строчки↓

(vl-cmdf "_.-insert" "block" Point1 Sca 1 Ang "")

Но что бы в лиспе это читалось!???

Я короче подумал что это должно сработать. Но не уверен

[МишаИнженер]

Сообщение от Jek30 Только можно ли чтоб это был не блок, а прямоугольник?

Ширина прямоугольника 0,4 и при черчении будет равна 0,4?

[Jek30]

Сообщение от МишаИнженер Ширина прямоугольника 0,4 и при черчении будет равна 0,4?

Да 0,4 мм как на кортинке в вопросе темы, а если надо я бы наверное потом и сам бы изменил размер в коде лиспа.

[МишаИнженер]

Ну тогда надо вычислить координаты 4 точек на расстоянии 0,4/2 от точек привязки задавая угол +-pi/2 к углу оси трубы. Когда координаты 4 точек будут вычислены, по этим координатам надо построить полилинию и потом замкнуть её. Это не сильно сложно. Непонятно только какой командой надо строить полилинию на ЛИСП.

[Jek30]

Сообщение от МишаИнженер Ну тогда надо вычислить координаты 4 точек на расстоянии 0,4/2 от точек привязки задавая угол +-pi/2 к углу оси трубы. Когда координаты 4 точек будут вычислены, по этим координатам надо построить полилинию и потом замкнуть её. Это не сильно сложно. Непонятно только какой командой надо строить полилинию на ЛИСП.

А есть какой то способ чтобы строить прямоугольник (_rectang) по двум точкам НЕ по нижнему левому углу и правому верхнему углу, А именно по другим двум точкам (в нашем случае например от центральной точки левой стороны (или центра прямоугольника) и по центральной точке правой стороны )?

----- добавлено через ~1 мин. -----

Сообщение от МишаИнженер Непонятно только какой командой надо строить полилинию на ЛИСП.

_pline?? или _rectang??

[МишаИнженер]

Прямоугольник всегда строится вдоль осей X и Y. Задать поворот прямоугольнику нельзя. Надо получить координаты 4 точек и потом по этим точкам построить замкнутую полилинию. На VBA для этого есть команда addLWPLine, а на ЛИСП какая для этого используется команда? Вроде бы эта команда называется vla-addLightweightPolyline. Надо найти примеры с использованием этой команды

[koMon]

Сообщение от МишаИнженер Задать поворот прямоугольнику нельзя.

можно

[Jek30]

Сообщение от МишаИнженер Прямоугольник всегда строится вдоль осей X и Y. Задать поворот прямоугольнику нельзя. Надо получить координаты 4 точек и потом по этим точкам построить замкнутую полилинию. На VBA для этого есть команда addLWPLine, а на ЛИСП какая для этого используется команда? Вроде бы эта команда называется vla-addLightweightPolyline. Надо найти примеры с использованием этой команды

А если поколдовать с этой строчкой↓
(command "_.PLINE" z '(0 297) '(0 297) v "_C")

где "z" и "v"
(setq z (getpoint "\nУкажите базовую точку : "))
(setq v (getpoint "\nУкажите базовую точку : "))

А как координаты прописать по другому, чтоб "необходимый мне" прямоугольник построился, я не знаю. ;0

[МишаИнженер]

Сообщение от Jek30 '(0 297)

Что это обозначает?
Если строить через командную строку, то лучше использовать команду _rectang.
Через указанные две точки находится длина прямоугольника и угол поворота.
Далее строится прямоугольник заданной длины и высоты (0,4) и потом поворачивается на вычисленный угол.
Можно сделать команду построения прямоугольника заданной длины, а потом повернуть его "вручную"
(setq Point1 (getpoint "\nТочка 1 (вставки): "))
(setq Point2 (getpoint "\nТочка 2 (направление): "))
(setq Length (* (distance Point1 Point2) 2))
(command "_rectang @" Length "0.4")

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

Для создания полилинии - либо vla-addlightweightpolyline, либо entmake / entmakex.
Для вычисления координат - polar.

[Jek30]

Сообщение от МишаИнженер Что это обозначает?

Ну это я так, для образца взял случайные числа. А вообще
'(0 297)
это так координаты точки записываются в лиспе, где "0"- это по иксу, а "297" это по игрику

[Nike]

Как-то так:

Код:

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

 
(defun C:as (/ IP LEN ANG THK P P1 P2 P3 P4)
  (setq	IP (getpoint "\nТочка вставки : ")
	P1 (getpoint IP "\nНаправление : ")
  )
  (setq THK (getdist "\nШирина <0.4>: "))
  (if (= THK nil)
    (setq THK 0.4)
  )
  (setq	ANG (+ (RTD (angle IP P1)) 90.0)
	LEN (distance IP P1)
	P   (polar IP (DTR (+ ANG 180.0)) (/ THK 2))
	P1  (polar P (DTR (+ ANG 270.0)) LEN)
	P2  (polar P1 (DTR ANG) THK)
	P3  (polar P2 (DTR (+ ANG 90.0)) (* LEN 2))
	P4  (polar P (DTR (+ ANG 90.0)) LEN)
  )
  (command "_pline" P1 P2 P3 P4	"_c")
  (princ)
)

;;;*======================================================
;*-----------------------------------------------------------------------------
;*dtr converts degrees to radians
(defun dtr (a)
  (* PI (/ a 180))
)
;*-----------------------------------------------------------------------------
;*rtd converts radians to degrees
(defun rtd (a)
  (/ (* a 180) PI)
)
;*-----------------------------------------------------------------------------