[Таня.]

Как с помощью функции entmake создать объект XLINE?
Я задаю:
(entmake '((0 . "XLINE") (10 0.0 0.0 0.0) (11 1.0 0.0 0.0)))
Выдает nil.

[fixo]

Попробуй через Entmakex:

Код:

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

(setq p      (getpoint "\nSpecify a first point: ")
      ang  (getorient p "\nSpecify direction of xline: ")
) 
(entmakex (list '(0 . "XLINE")
                '(100 . "AcDbEntity")
                '(100 . "AcDbXline")
                (cons 10 p)
                (cons 11 (polar '(0 0) ang 1.0))
          ) 
)

~'J'~

[Таня.]

Спасибо. Программка работает.

[Krieger]

Сообщение от Fatty Попробуй через Entmakex:

Почему именно через entmakex? У меня и через entmake работает... Вообще в чем принципиальная разница этих функций?
Таня.
А не работала у тебя функция т.к. не указан маркер подкласса, попробуй так:

Код:

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

(entmake '((0 . "XLINE") (100 . "AcDbEntity") (100 . "AcDbXline") (10 0.0 0.0 0.0) (11 1.0 0.0 0.0)))

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

В случае успешного создания entmake возвращает список, entmakex - ename-указатель на созданный объект.

[Krieger]

И все?
Спасибо за разъяснение.

[fixo]

Сообщение от Krieger Сообщение от Fatty Попробуй через Entmakex: Почему именно через entmakex? У меня и через entmake работает... Вообще в чем принципиальная разница этих функций? Таня. А не работала у тебя функция т.к. не указан маркер подкласса, попробуй так: Код: [Выделить все] (entmake '((0 . "XLINE") (100 . "AcDbEntity") (100 . "AcDbXline") (10 0.0 0.0 0.0) (11 1.0 0.0 0.0)))

Извиняюсь за опоздание, через entmakex я обычно
создаю объекты, которые будут удаляться
Соответственно Xline обычно удаляется после
некоторых манипуляций, а тут как бы готовый
указатель, хотя можно и через entmake и удалять
объект, определенный функцией entlast
Просто привычка...

~'J'~

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

Если через entmake создавать, к примеру, словарь, то (entlast) вернет точно не его...

[Таня.]

Сообщение от Krieger А не работала у тебя функция т.к. не указан маркер подкласса

Спасибо. В процессе экспериментирования вставляла только (100 . "AcDbXline"), а про
(100 . "AcDbEntity") не додумалась.