[Dmitriyele]

Можно ли в код DXF d вершину lwpolyline встроить функцию?

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

Это как? Чего должн получиться в результате?

[Дима_]

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

[Dmitriyele]

(entmake (list '(0 . "LWPOLYLINE")
'(100 . "AcDbEntity")
'(67 . 0)
'(410 . "Model")
'(8 . "VPORTS")
'(100 . "AcDbPolyline")
'(90 . 4)
'(70 . 1)
'(43 . 0.0)
'(38 . 0.0)
'(39 . 0.0)
'(10 41505.7 4431.0)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(91 . 0)
'(10 41545.7 4431.0)
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(91 . 0)
(cons 10 '(41545.7 2121.0))
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(91 . 0)
(cons 10 '(41505.7 2121.0)); сюда если добавляешь даже пусть скобку уже не читает
'(40 . 0.0)
'(41 . 0.0)
'(42 . 0.0)
'(91 . 0)
'(210 0.0 0.0 1.0)))

[Дима_]

А зачем добавлять "пустую скобку" - чего в итоге нужно-то?

[Dmitriyele]

я в том сиысле что мне нужно вместо координат двух вершин ввести переменные. а если я ввожу переменную вместо координаты читать перестает

[Дима_]

вместо (cons 10 '(10 20)) - (list 10 a b) или, например, (cons 10 (getpoint "Укажите точку"))

[Dmitriyele]

(list (10 41545.7 (f)))

Так? Пишет неверная функция f

[Дима_]

ну значит нет такой функции - да еслиб и была то функции 10 точно нет - если в f число то (list 10 41545.7 f)

[Dmitriyele]

теперь пишет неверная dxf группа (10 41545.7 "1843") попробую число в вещественное превратить

Отлично получилось! СПАСИБО Огромное! Два дня бился!