[OleKh]

Делаю контрольную.
Требуется создать чертеж программно.
Команда Trim в AutoCAD выполняется, а через AutoLisp частично.
Проверяю по координатам в AutoCAD - обрезает, а программно нет.
Подскажите пожалуйста кто знает, как исправить ошибку?

Команда: _.TRIM
Текущие установки: Проекция=ПСК, Кромки=Без продолжения
Выберите режущие кромки ...
екущие установки: Проекция=ПСК, Кромки=Без продолжения
Выберите режущие кромки ...
Выберите объекты или <выбрать все>: найдено: 1
Выберите объекты:
Выберите обрезаемый (+Shift -- удлиняемый) объект или
[Линия/Секрамка/Проекция/Кромка/уДалить/Отменить]:
Объект не пересекает кромку.

Код:

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

 
(defun c:trim () ; 

 (command "_.CIRCLE" P "_D" (/ D2 2))
(setq s3 (entlast))

(command "_.CIRCLE" P "_D" D2)
(setq s4 (entlast))
    
(command "_.TRIM"  s4 s3  ""
	   '(110 203)
	   '(110 196)
	   '(114 200)
	   '(106 200)	    
	 "")

  (command "_.ERASE" s3 "")
  (command "_.ERASE" s4 "")
  
)

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

А вручную эти действия выполняются?

[OleKh]

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

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

Код:

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

 
(command "_.TRIM"  s4 s3  ""
   '(110 203)   
 "")

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

А привязку точно снял перед вызовом _.trim?

[OleKh]

сделал по примеру программы,
(command "_.OSNAP" "_nearest")

в этот код проверочный и не выполняется,
а по координатам вручную выполняется

Код:

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

 

(defun c:test () ;


(setq D1 50.0)
(setq R1 (/ D1 2))
    
(setq D2 10.0)
(setq R2 (/ D2 2))

(command "_.OSNAP" "_none")
  
(setq P '(110 200))
(command "_.CIRCLE" P "_D" D1)
(setq s (entlast))  
(setq XP (car P) YP (cadr P))
  
(command "_.CIRCLE" P "_D" D2)
(setq s1 (entlast))

(command "_.XLINE" P (list XP (- YP 50)) (list (- XP 50) YP)  "")
							  
(command "_.XLINE" "_O"	R2 (list (+ XP 10) YP ) (list XP (+ YP R2))
	 (list (+ XP 10) YP ) (list XP (- YP R2))  "")


(command "_.CIRCLE" P "_D" (/ D2 3))
(setq s3 (entlast))
 
(command "_.TRIM" s1 s3 "" '(110 203) "")
  

)

[OleKh]

----- добавлено через ~2 ч. -----

Код:

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

 
(command "_.TRIM" s1 s3 "" '(110 203) "")

заменил переменные s1, s3 на координаты, вроде бы на проверочном получилось

[tujn08]

не могу найти описание _.TRIM по lisp

есть полиния, она два раза пересекает прямоугольник. Надо обрезать все, что лежит внутри прямоугольника

----- добавлено через ~7 ч. -----
В рамках необходимого разобрался.
Щас проблема:
обрезает с отступом 10 от секущей линии. Как отключить отступ? Зуммировать?

----- добавлено через ~7 ч. -----
Ааа.. мой косяк похоже. Пока вопрос не актуален

[tujn08]

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

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

1. Смотри опции команды _.trim - там есть вариант _f (_fence).
2. Лично я попробовал бы все сделать только на математике, без применения командных методов.

[tujn08]

как смотреть команды? у меня рус. версия

[skkkk]

tujn08, например, в справке для английской версии.

[tujn08]

нет там описаний, тех которых можно применить к trim. Только саму команду.

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

Да ну???

Fence Selects all objects that cross the selection fence. The selection fence is a series of temporary line segments that you specify with two or more fence points. The selection fence does not form a closed loop.

А также была тема "Tips and Tricks" на этом форуме - советую поискать.

[skkkk]

Сообщение от Кулик Алексей aka kpblc Смотри опции команды _.trim - там есть вариант _f (_fence).

Сообщение от tujn08 как смотреть команды? у меня рус. версия

Сообщение от skkkk например, в справке для английской версии

Я полагал, что вопрос об опциях команды, которые предпочтительно писать на английском с подчеркиванием с целью поддержки любых языковых локализаций.

Тогда я не понял, что нужно.

[tujn08]

Сообщение от Кулик Алексей aka kpblc Да ну???

Я не про такую справку.

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

Сообщение от skkkk вопрос об опциях команды

Я хотел бы справку от опциях нужной мне команды.

----- добавлено через ~10 мин. -----
вот еще вопрос появился.
Прямоугольником усекаю линию за пределами - ни чего не происходит.
Стоит сдвинуть линию вручную- она усекается.

Код:

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

 
(setq xtri (vlax-curve-getPointAtParam trim_vla_line ti)) ; взял координаты вершины (вне прямоугольника) линии
(command "_.trim" (vlax-vla-object->ename old_vla_rec) "" xtri "") ; обрезаю линию прямоугольником

прямоугольник полностью виден на экране, привязки отключены

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

... и вспоминаем про размер прицела, привязки и прочие грабли.

[tujn08]

добавлю: радом находится другая линия на расстоянии 10

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

Добавлю: что выводится в ком.строке:

Код:

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

Command: TRIM
Current settings: Projection=UCS, Edge=None
Select cutting edges ...
Select objects or <select all>: Specify opposite corner: 2 found

Select objects:

Select object to trim or shift-select to extend or
[Fence/Crossing/Project/Edge/eRase/Undo]:

[tujn08]

помогло зуммирование точки на линии
спс.

----- добавлено через 57 сек. -----

Сообщение от Кулик Алексей aka kpblc что выводится в ком.строке:

Вооот.... не хватает англ версии.

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

tujn08, а кто мешает поставить английский языковой пакет?