Обрезание рамкой - SendCommand, extrim, handent

Так ведь это експрессовский лисп..
В нем для выбора используется функция

acet-ui-single-select

Наверное в ней и дело.. Точно не скажу, - лисп не знаю((

Скопировала код - всё нормально отработало - рамка
"зацепляется", а сообщение — *Invalid selection*-не появилось :).

> Fatty
Когда на вопрос "Как?" отвечаешь вопросом "А зачем?" люди почему-то обижаются часто)))
Ну надо человеку, видимо именно через extrim обрезать объекты..
А у Adel вообще все прекрасно работает..

Спасибо всем, кто откликнулся на мой вопрос.
>to Сидор Лютый

ThisDrawing.SendCommand "_extrim" & vbCr & "l" & vbCr & sPoint & vbCr

А каким образом все-таки передать в командную строку выделенную полилинию-рамку? Передать точку, через которую она проходит, например в данном случае (-10,-10). Так в принципе все работает на одном компе, но на другом нет. Выделять полилинию посредством точки, через которую она полилиния проходит - это казалось бы крайняя мера, когда в коде нет ссылки на объект класса AcadEntity. Тем опаснее, что в окрестности точки могут находится другие объекты, которые могут быть выделены вместо требуемого. Но если есть ссылка objRef, то в командную строку нужно передавать objRef.Handle.
>to Adel
Если у Вас код работает, то может быть у меня в 7-м Acade какие-то системные переменные не так установлены.
>to BP
Скорее всего OSMODE здесь не причем. Но тем не менее установил OSMODE =0, но по прежнему не работает.
******
Вот что именно появляется в окне сообщений и командной строке:
Command: _vbarun
Command: _extrim
Pick a POLYLINE, LINE, CIRCLE, ARC, ELLIPSE, IMAGE or TEXT for cutting edge...
Select objects: (handent "144")
*Invalid selection*
Expects a point or
Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/P
revious/Undo/AUto/SIngle/SUbobject/Object
Select objects: 0,20
Specify opposite corner:
И здесь она ждет ввода, это и понято, ведь объект полилиния (handent "144") не был воспринят в командной строке. Но почему не воспринимается???
>to Сидор Лютый
На фига SendCommand (избегаю всегда, если возможно)
Согласен с вами на все сто. Я SendCommand очень редко использую (1 раз на тысячу сток). Но хотелось одним разом отсекать все лишние элементы протяженных объектов. Подумал что если есть подобная фича у Acad, то зачем изобретать похожее еще раз. Но откровенно склоняюсь к мысли, что следует самому написать код отсечения (внутри/снаружи) с помощью замкнутой полилинии, фрагментов другой полилинии, пересекающей эту замкнутую.

У меня AutoCAD-2006 и та же хрень, не работает.
Покапался с командой ExTrim, по всей видимости данная команда является командой ARX, а не внутренней AutoCAD и имеено поэтому не работает. У меня она вообще не работает как с Lisp функциями, так и с Lisp переменными.
Почему работает у Adel не знаю.
Но проблема вполне решаема через внутреннюю команду Trim и даже с дополнительными возможностями при работе с трёхмеркой.
Единственная проблема возникает когда полилиния пересекает секущюю рамку дважды или больше, отсечение идёт только первой части.
Поэтому в примере отсечение сделал дважды, программе пофигу сколько раз его делать.
Что касается чисто программного отсечения, то боюсь не всё так просто, встроенного метода нет, а обработать все произвольные объекты думаю будет затруднительно.

Sub test()
Dim point(0 To 2) As Double
Dim coords(0 To 7) As Double
Dim plineRef As AcadEntity
Dim sHandle As String
Dim Cross As String
   point(0) = 10: point(1) = 10: point(2) = 0
   ThisDrawing.ModelSpace.AddCircle point, 10
   coords(0) = -10: coords(1) = -10
   coords(2) = -10: coords(3) = 10
   coords(4) = 10: coords(5) = 10
   coords(6) = 10: coords(7) = -10
   Set plineRef = ThisDrawing.ModelSpace.AddLightWeightPolyline(coords)
   plineRef.Closed = True
   sHandle = plineRef.Handle
   Cross = coords(0) - 1 & "," & coords(1) - 1 & vbCr
   Cross = Cross & coords(4) + 1 & "," & coords(5) + 1 & vbCr
   With ActiveDocument
      .SendCommand "_trim" & vbCr & "(handent """ & sHandle & """)" & vbCr & vbCr
      .SendCommand "_crossing" & vbCr & Cross & "_crossing" & vbCr & Cross & vbCr
   End With
End Sub

так эта строчка и передаст extrim-у рамку:

ThisDrawing.SendCommand "_extrim" & vbCr & "l" & vbCr & sPoint & vbCr

Тут вместо handle указывается "L" - то есть ссылка на последний созданный в документе объект. (В этом и есть ограничение. Запускать extrim желательно сразу же после создания рамки.) Благо опции команды select (Last, Previous и т.д.) этот лисп понимает. А вот по хендлу уже не может выбрать.

> Fatty

> rust2000
Кстати без sendcommand тут все-таки не обойтись.. В VBA вообще нет понятий extending или trimming.
Дословно из хелпа:

И приведен пример изменения координат линии в качестве ее удлинения:) Вот и все, что можно сделать в VBA))
Да эта проблема, по моему, уже муссировалась здесь как нерешаемая, потому и молчат местные корифеи.))