[dextron3]

Алгоритм:

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

Как работает:

Введите удлиннение =

Результат:

При вводе

Введите удлиннение = 100

[ATTACH]1184405388.JPG[/ATTACH]
:roll: :roll: :roll: :roll:

[Krieger]

Команда "_LENgthen" с опцией "_DElta".

[dextron3]

А какой макрос кнопки стобы автоматом делту выбирала

[Dym]

F1+http://dwg.ru/art/2

[dextron3]

Вот сам написал макрос, недождался

Код:

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

^C^C_LENgthen;DE;20;

mitjaj где такой материал сам берешь?

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

Этот макрос с русскими версиями (официальными) работать не будет.

[dextron3]

Сообщение от Кулик Алексей aka kpblc Этот макрос с русскими версиями (официальными) работать не будет.

а почему, или в русских надо все на русском?

[Krieger]

dextron3
вот так будет:

Код:

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

^C^C_lengthen;_delta;20;

[dextron3]

Можно ли макросами обойтись без лиспов?

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

> #7 : "AutoCAD язык макрокоманд и создание кнопок", "САПР на базе AutoCAD - как это делается"
> #8 : Лично мне неохота объяснять было.
> #9 : Ну попробуй...

[DEM]

dextron3
Слушай ты так частл просищь лиспы и доп программки что может тебе лучше обратить внимание на СПДС+PS(конструкции) по моему мнению это пока самая оптимальная связка для инженера строителя.
Ну если уж чего надо то взять в руки книгу Полещука иль по копаться тут Конфереция Автокад раздел готовые программы.[/url]

[dextron3]

Сообщение от DEM dextron3 Слушай ты так частл просищь лиспы и доп программки что может тебе лучше обратить внимание на СПДС+PS(конструкции) по моему мнению это пока самая оптимальная связка для инженера строителя. Ну если уж чего надо то взять в руки книгу Полещука иль по копаться тут Конфереция Автокад раздел готовые программы.[/url]

СПДС и проджект студио есть, но к сожалению в них нет данных опций поэтому я и спрашиваю

[DEM]

Блин мне этого хватаеть, и уж быстрее ты не сделаешь свою работу.
Надо либо чертить на автомаете, либо чертить думая но с автоматизацией некоторых действий.
Большую красную кнопку ты в любоим случае не получишь.
Ну Если уж хочешь ЛИСПЫ, то в этом случае тебе лучше самому изучить ЛИСП, и понять что нафиг оно надо, уж лучше профессионально заниматься проектированием.
У меня это больше времени занимало чем расчеты и проектирование.

[Profan]

Код:

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

(defun C:L_L ( / tn tk delta flag ob line)
    (setvar "CMDECHO" 0)
    (setq delta (getreal "\n Величина удлинения линии (ENTER-отказ): "))
    (if delta
        (progn
        (setq flag T)
        (while flag
        (setq ob (entsel "\n Выберите отрезок (ENTER-завершить): "))
        (if ob
            (progn
            (setq line (entget (car ob)))
                  (if (= (cdr (assoc 0 line)) "LINE")
                  (progn
                  (setq tn (cdr (assoc 10 line)))
                  (setq tk (cdr (assoc 11 line)))
                  (command "_LENGTHEN" "_delta" delta tn tk "")
                  ); progn
                  ); if
             ); progn
                  (setq flag nil)
          ); if
        ); while
        ); progn
        (princ "\n Отказ.")
    ); if
(princ)
)

[dextron3]

DEM Просто у нас пофессия лисперов не востребована, если только как хобби, но кушать приходиться добывать проектированием.

Profan
сасибо!
вот еще всем нужный лисп!!!

[dextron3]

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

[DEM]

Сорри, но Я уже не конструктор а руководитель.
Подыбным ЛИСПОМ пользовался бы при изменении опалубки и измнении арматуры.
Но в связи с тем что пользуюсь в основном PS-конструкции, то мне это особо не надо.
При чем Я делаю переодически свои програмки которые уже выкладывал, например прогу "Сетка", которая отрисовывает простые сетки, прогу спецификация и т.д.

[dextron3]

Сообщение от DEM Сорри, но Я уже не конструктор а руководитель. Подыбным ЛИСПОМ пользовался бы при изменении опалубки и измнении арматуры. Но в связи с тем что пользуюсь в основном PS-конструкции, то мне это особо не надо. При чем Я делаю переодически свои програмки которые уже выкладывал, например прогу "Сетка", которая отрисовывает простые сетки, прогу спецификация и т.д.

Программа сетки, как раз я ищу такой лисп, скажи где опубликован?

А этот лисп нужен как раз таки для отрисовки косынок в ферме
могу дать скриншот

[Krieger]

>dextron3
Попробуй еще это:

Код:

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

;|Функция Kr_ElementStretch
Вычерчивает укороченную или удлиненную на велечину delta полилинию по двум точкам
Параметры:	layer - слой для будующей pline
		delta - величина увеличения (уменьшения) концов pline
Примеры:	(Kr_ElementStretch "proba" 1)
		(Kr_ElementStretch "0" -2)
		(Kr_ElementStretch (getvar "clayer") -2) - в текущем слое
Макрос на кнопку;
		^C^C(Kr_ElementStretch "proba" (* (Kr_ScaleOfVP) -1.5))
|;
(defun Kr_ElementStretch (layer delta)
    (while (progn
	     (princ (strcat "\nDelta=" (rtos delta 2 2)))
	     (initget 128 "Delta _ del")
	     (setq pt1 (getpoint "\nУкажите начальную точку [Delta] <Выход> : ")))
      (if (eq pt1 "del")
	
	(if (setq deltatemp (getreal (strcat "\nУкажите величину delta <" (rtos delta 2 4)  "> : ")))
	  (setq delta deltatemp));end if
	
	   (while (setq  pt2 (getpoint pt1 "\nУкажите следующую точку <Указать начальную точку> : "))
		  (setq  pt3 (Polar pt1 (angle pt2 pt1) delta)
			 pt4 (Polar pt2 (angle pt1 pt2) delta)
			 );end setq
				  (entmake
					(list
						'(0 . "LWPOLYLINE")
						'(100 . "AcDbEntity")
						(cons 8 layer)
						'(100 . "AcDbPolyline")
						'(90 . 2)
						'(70 . 0)
						(cons 10 pt3)
						(cons 10 pt4)
					);end list
				  );end entmake
		    (setq pt1 pt2)
	   );end while
	);end if
     );end while
  );end defun

(defun Kr_ScaleOfVP ( / )
        (if (= (getvar "dimscale") 0) (setq dsc 1) (setq dsc 
(getvar "dimscale")))
       (if (and (not (= (Getvar "CVPORT") 1))
          (= (vla-get-ActiveSpace (vla-get-ActiveDocument (vlax-get-Acad-Object))) 0)
          (= (getvar "dimscale") 0))
           (setq dsc (/ dsc (vla-get-CustomScale (vla-get-ActivePViewport (vla-get-ActiveDocument (vlax-get-Acad-Object))))))
      );end if
    (print dsc)
    )

[Profan]

И вот здесь еще можно посмотреть:
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=19521dI