[Grund]

Здравствуйте, начал изучать AutoLisp есть несолько вопросов.
1. Никак не поучаестся создать lwpolyline с помощью entmake.

Код:

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

(setq list_pt (list (getpoint)))
(repeat 3
(setq list_pt (append (list (getpoint)) list_pt))
)
(setq e (entmake (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(410 . "Model")
(cons 8 "0")
(cons 43 0);;constant width
(cons 62 1)
(cons 90 (length list_pt))
(cons 10 (nth 0 list_pt))
(cons 10 (nth 1 list_pt))
(cons 10 (nth 2 list_pt))
(cons 10 (nth 3 list_pt))
'(70 . 1) ;closed pline - must follow G.C. 10s
)))

entmake возвращает nil. Пробовал с по разному менять список, но не помогало в чем дело может быть? (пробовал в AutoCad 2005 и AutoCad 2008)

2. Случайно в окно watch ввел (Setq e (getpoint)) теперь при включении watch VL Editor виснит. Что деать? (AutoCad 2005)

[Krieger]

Забыл кое-что "'(100 . "AcDbPolyline")"

Код:

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

(setq list_pt (list (getpoint)))
(repeat 3
(setq list_pt (append (list (getpoint)) list_pt))
)
(setq e (entmake (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(410 . "Model")
(cons 8 "0")
'(100 . "AcDbPolyline")
(cons 43 0);;constant width
(cons 62 1)
(cons 90 (length list_pt))
(cons 10 (nth 0 list_pt))
(cons 10 (nth 1 list_pt))
(cons 10 (nth 2 list_pt))
(cons 10 (nth 3 list_pt))
'(70 . 1) ;closed pline - must follow G.C. 10s
)))

[Grund]

to Krieger Спасибо!
A что с watch делать никто не знает?

[Елпанов Евгений]

Сообщение от Grund to Krieger Спасибо! A что с watch делать никто не знает?

просто очисть окошко - нажми на кнопку с изображением листика бумаги "Clear Window"

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

Попробуй выделить эту строку в Watch, правая кнопка и Delete from Watch. Если не поможет, то тогда выходить из AutoCAD'a, найти файлы vlide.* (обычно располагаются в c:\documents and settings\<User name>\Application data\Autodesk и дальше просто искать) и удалить их.

[Grund]

to Елпанов Евгений так не получается т.к. Vlisp editor зависает.
to Кулик Алексей aka kpblc спасибо

[Елпанов Евгений]

Сообщение от Grund to Елпанов Евгений так не получается т.к. Vlisp editor зависает.

я пробовал - жал в акаде Esc, причем много раз...

[fixo]

Сообщение от Grund to Елпанов Евгений так не получается т.к. Vlisp editor зависает. to Кулик Алексей aka kpblc спасибо

Попробуй Ctrl+Break

~'J'~

[Grund]

Уже получилось по методу Кулик Алексей aka kpblc

Всем спасибо!