[Positron]

Смешно звучит, но не знал, как правильно назвать...
Есть такая штука, макрос:

(setq di1 (getpoint));\(setq di2 (getpoint));\(setq dst (distance di1 di2));_rectang;!di1;d;!dst;18;\_change;last;;p;layer;"01 BASIC";;_-hatch;p;ANSI33;0.5;135;s;l;;;_change;last;;p;layer;"03 HATCH";;

Хочу его через лисп запускать по причине необходимости повторов макроса с нуля(с обнулением переменных "di1", "di2", "dst") и нескольких разных макросов такого типа, чтоб оформить их в меню через мышь для удобства.
1. Например, толщины: 18,16,15 и т.п. списком
2. Направление штриховки вдоль прямоугольника

[VVA]

Код:

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

(defun MACROS ( tol ugol)
;;;tol - толщина
;;;ugol - угол поворота
;;;Вызов (macros 18 135)  
;;;(setq di1 (getpoint));\(setq di2 (getpoint));\(setq dst (distance di1 di2));_rectang;!di1;d;!dst;18;\_change;last;;p;lay er;"01 BASIC";;_-hatch;p;ANSI33;0.5;135;s;l;;;_change;last;;p;layer ;"03 HATCH";;
  (setq di1 (getpoint "\nПервая точка <выход>: "))
  (setq di2 (getpoint di1 "\nВторая точка<выход>: "))
  (command "_rectang" "_non" di1 "_d" (distance di1 di2) tol pause)
  (entmod (subst (cons 8 "01 BASIC")(assoc 8 (entget(entlast)))(entget(entlast))))
  (command "_hatch" "_p" "ANSI33" 0.5 ugol "_s" "_l" "" "" "")
  (entmod (subst (cons 8 "03 HATCH")(assoc 8 (entget(entlast)))(entget(entlast))))
  (princ)
  )

[Positron]

Сообщение от VVA Код: [Выделить все] (defun MACROS ( tol ugol) ;;;tol - толщина ;;;ugol - угол поворота ;;;Вызов (macros 18 135) ;;;(setq di1 (getpoint));\(setq di2 (getpoint));\(setq dst (distance di1 di2));_rectang;!di1;d;!dst;18;\_change;last;;p;lay er;"01 BASIC";;_-hatch;p;ANSI33;0.5;135;s;l;;;_change;last;;p;layer ;"03 HATCH";; (setq di1 (getpoint "\nПервая точка <выход>: ")) (setq di2 (getpoint di1 "\nВторая точка<выход>: ")) (command "_rectang" "_non" di1 "_d" (distance di1 di2) tol pause) (entmod (subst (cons 8 "01 BASIC")(assoc 8 (entget(entlast)))(entget(entlast)))) (command "_hatch" "_p" "ANSI33" 0.5 ugol "_s" "_l" "" "" "") (entmod (subst (cons 8 "03 HATCH")(assoc 8 (entget(entlast)))(entget(entlast)))) (princ) )

Пасиб!
А возможно ещо скрестить его с

(setq di1 (getpoint));\(setq di2 (getpoint));\(setq dst (distance di1 di2));_rectang;!di1;d;18;!dst;\_change;last;;p;layer;"01 BASIC";;_-hatch;p;ANSI33;0.5;45;s;l;;;_change;last;;p;layer;"03 HATCH";;

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

[VVA]

Код:

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

(defun MACROS2 ( tol / di1 di2 ugol )
;;;tol - толщина
;;;ugol - угол поворота
;;;Вызов (macros2 18)  
  (setq di1 (getpoint "\nПервая точка <выход>: "))
  (setq di2 (getpoint di1 "\nВторая точка<выход>: "))
  (command "_rectang" "_non" di1 "_d" (distance di1 di2) tol pause)
  (setq dst (max (distance di1 di2) tol))
  (if (equal dst tol 1e-9)(setq ugol 45)(setq ugol 135))
  (entmod (subst (cons 8 "01 BASIC")(assoc 8 (entget(entlast)))(entget(entlast))))
  (command "_hatch" "_p" "ANSI33" 0.5 ugol "_s" "_l" "" "")
  (entmod (subst (cons 8 "03 HATCH")(assoc 8 (entget(entlast)))(entget(entlast))))
  (princ)
  )

[Positron]

хм... серовно только горизонтально рисует, ет наверно по причине (command "_rectang" "_non" di1 "_d" (distance di1 di2) tol pause) ... там идёт по умолчанию X((distance di1 di2)), а потом Y (18)... а как зделать чтоб привязки не было к 1му направлению?

Command: _rectang
Specify first corner point or [Chamfer/Elevation/Fillet/Thickness/Width]:
Specify other corner point or [Area/Dimensions/Rotation]: R
Specify rotation angle or [Pick points] <0>:

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

[VVA]

Не понятно что хочешь. Опиши подробнее. Код из #4 рисует вертикально. Задай длину 2 точками < 18 и посмотри

[Positron]

(setq di1 (getpoint));\(setq di2 (getpoint));\(setq dst (distance di1 di2));_rectang;!di1;d;!dst;18;\_change;last;;p;lay er;"01 BASIC";;_-hatch;p;ANSI33;0.5;135;s;l;;;_change;last;;p;layer;"03 HATCH";;

(setq di1 (getpoint));\(setq di2 (getpoint));\(setq dst (distance di1 di2));_rectang;!di1;d;18;!dst;\_change;last;;p;lay er;"01 BASIC";;_-hatch;p;ANSI33;0.5;45;s;l;;;_change;last;;p;layer; "03 HATCH";;

Красным обозначено - углы наклона штриховки
Синим обозначено - положение относительно оси X и Y... то есть рисование горизонтальной и вертикальной длинны. т.к. _rectang; по умолчанию это вносим длину по оси X (1 цифра) и по оси Y (2 цифра).
А мне надо чтоб рисование было 1й командой и по горизонтали и по вертикали.
Я ет вижу так: ставим 2 точки без привязки к орто, например 40градусов относительно оси Х, чтоб нарисовать прямоугольник у нас есть длинна по 2м точкам и заданная ширина "18", также появился новый параметр, угол прямой (нашы 2 точки) относительно оси X.
Думаю, взяв, сей параметр можно задать для прямоугольника вначале угол, а после вносим параметр X и Y.
В результате у нас прямоугольник под углом 40. и штриховка тоже вдоль 2х точек.

[VVA]

Код:

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

(defun MACROS3 ( tol / di1 di2 ugol )
;;;tol - толщина
;;;ugol - угол поворота
;;;Вызов (macros3 18)
  (setq di1 (getpoint "\nПервая точка <выход>: "))
  (setq di2 (getpoint di1 "\nВторая точка<выход>: "))
  (setq ugol (/ (* (angle di1 di2) 180.0) pi))
  (command "_rectang" "_non" di1 "_R" ugol "_d" (distance di1 di2) tol pause)
  (setq dst (max (distance di1 di2) tol))
  (if (equal dst tol 1e-9)(setq ugol (+ 45 ugol))(setq ugol (+ 135 ugol)))
  (entmod (subst (cons 8 "01 BASIC")(assoc 8 (entget(entlast)))(entget(entlast))))
  (command "_-hatch" "_A" "_A" "_Y" "" "_p" "ANSI33" 0.5 ugol  "_s" "_l" "" "")
  (entmod (subst (cons 8 "03 HATCH")(assoc 8 (entget(entlast)))(entget(entlast))))
  (princ)
  )

[Positron]

Сообщение от VVA Код: [Выделить все] (defun MACROS3 ( tol / di1 di2 ugol ) ;;;tol - толщина ;;;ugol - угол поворота ;;;Вызов (macros3 18) (setq di1 (getpoint "\nПервая точка <выход>: ")) (setq di2 (getpoint di1 "\nВторая точка<выход>: ")) (setq ugol (/ (* (angle di1 di2) 180.0) pi)) (command "_rectang" "_non" di1 "_R" ugol "_d" (distance di1 di2) tol pause) (setq dst (max (distance di1 di2) tol)) (if (equal dst tol 1e-9)(setq ugol (+ 45 ugol))(setq ugol (+ 135 ugol))) (entmod (subst (cons 8 "01 BASIC")(assoc 8 (entget(entlast)))(entget(entlast)))) (command "_hatch" "_p" "ANSI33" 0.5 ugol "_s" "_l" "" "") (entmod (subst (cons 8 "03 HATCH")(assoc 8 (entget(entlast)))(entget(entlast)))) (princ) )

О, бомба, огромное спасибо!
...
Я тут ещё такую штуку заметил штриховка не привязывается к прямоугольнику, можно подправить? чтоб ассоциировала прямоугольник как свою границу (а то тяну прямоугольник, а штриховка на месте остаётся)

[VVA]

обновил #8

[Positron]

Сообщение от VVA обновил #8

Блин, просто супер, с меня пиво