[AGEL]

Пытаюсь как то автоматизировать, но не получается....
Есть 15 точек(координаты X и Y считал из файла).
Соединил из линиями(1-2,2-3,...14-15).
Надо сделать офсет "влево" на величину d.
------------
Где можно найти описание использования стандартных команд в Лиспе? (набор параметров у функций).

[VVA]

Посмотри этот пример

Код:

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

(vl-load-com)
(command "_PLINE" "0,0" "0,10" "30,15" "45,80" "") ;_Чертим полилинию
(setq pl (entlast)) ;_полилиния
(setq Pt (vlax-curve-getStartPoint (vlax-ename->vla-object pl)))     ;_Начальная точка в МСК
(setq Pt (trans pt 0 1))                    ;_Транслируем в текущую ПСК
(setq d 15)                                 ;_Отступ
(command "_OFFSET"
	 d                ;_Отступ
	 (list pl Pt)     ;_Имитация выбора объетка через точку pt
	 (polar Pt PI 10) ;_Отступ влево
	 ""
	 )

[AGEL]

Спасибо.
Попробую использовать...

[VVA]

Здесь кое-что получилось

Код:

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

http://www.autocad.ru/cgi-bin/f1/board.cgi?t=31318fs

[AGEL]

Подскажите..
можно ли сразу узнать координаты первой и последней вершины полилинии? (без перебора их всех)

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

Можно. Если получен vla-указатель на примитив, то (vlax-curve-getstartpoint) и (vlax-curve-getendpoint)

[AGEL]

Спасибо
П.С.
Необессудте...недавно преобщился к лиспу(по мере необходимости).
А где вообще можно взять описание функций VL...на русском?

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

Полностью на русском вряд ли есть, посмотри здесь: http://cad.dp.ua/doc2.php#part1

[VVA]

Примерно так

Код:

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

(vl-load-com)
(if (setq pl (car(entsel "\nУкажите полилинию")))
    (progn
	(setq vla-pl (vlax-ename->vla-object pl)) ;_Vla указатель
	(setq Pt_Start (vlax-curve-getStartPoint vla-pl))
	(setq Pt_End (vlax-curve-getEndPoint vla-pl))
	)
    )