Комментарии на: Как можно вставить dwf(x) в текущий документ dwg?

От: ElpanovEvgeniy

ElpanovEvgeniy — Mon, 16 Feb 2015 08:31:31 +0000

Забыл добавить, код писал в AutoCAD 2015, там же и проверял...

От: ElpanovEvgeniy

ElpanovEvgeniy — Fri, 13 Feb 2015 17:27:12 +0000

Всем привет!

У меня получилось и через dxf создать ссылку на dwf.
Прошу прощения, код только демонстрация, не рассматриваются никакие частные случаи, т.е запускаем в пустом файле.
"D:\\test.dwf" = путь к dwf
"test_dwf" = название ссылки

Ссылка на dwf вставляется и нормально работает, но в диспетчере появляется только после сохранения файла.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55

(setq f "D:\\test.dwf"
n "test_dwf"
e5 (entmakex (list '(0 . "DWFDEFINITION")
'(100 . "AcDbUnderlayDefinition")
(cons 1 f)
'(2 . "Несохраненный чертеж-Model")
'(-3 ("ACAD" (1000 . "LOAD")))
)
)
e3 (entmakex (list '(0 . "DICTIONARY")
'(102 . "{ACAD_REACTORS")
(cons 330 (NAMEDOBJDICT))
'(102 . "}")
(cons 330 (NAMEDOBJDICT))
'(100 . "AcDbDictionary")
'(280 . 0)
'(281 . 1)
(cons 3 f)
(cons 350 e5)
)
)
)
(entmod (append (entget (namedobjdict)) (list '(3 . "ACAD_DWFDEFINITIONS") (cons 350 e3))))
(setq e4 (entmakex (list '(0 . "DWFDEFINITION")
(cons 330 e3)
'(100 . "AcDbUnderlayDefinition")
(cons 1 f)
(cons 2 n)
)
)
e6 (entmakex (list '(0 . "DWFUNDERLAY")
'(100 . "AcDbEntity")
'(67 . 0)
'(410 . "Model")
'(8 . "0")
'(100 . "AcDbUnderlayReference")
(cons 340 e5)
'(10 16.3241 9.47381 0.0)
'(41 . 1.0)
'(42 . 1.0)
'(43 . 1.0)
'(50 . 0.0)
'(210 0.0 0.0 1.0)
'(280 . 11)
'(281 . 75)
'(282 . 25)
)
)
)
(entmod
(append (reverse (member (assoc 5 (entget e5)) (reverse (entget e5))))
(list '(102 . "{ACAD_REACTORS") (cons 330 e3) (cons 330 e6) '(102 . "}") (cons 330 e3))
(member '(100 . "AcDbUnderlayDefinition") (entget e5))
)
)

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Fri, 13 Feb 2015 07:15:37 +0000

Конечно, костыли. У меня сейчас вообще какой-то Франкенштейн получается И лисп, и arx, и .NET - все в одном

От: Андрей

Андрей — Thu, 12 Feb 2015 20:40:51 +0000

>Андрей, но ведь это же костыли будут! Оно надо? Я, скорее всего, буду для этой задачи использовать c#, благо работающие примеры есть )))

Чем этот случай отличается от той ситуации, когда ты на .net недавно писал lisp-функции по взрыву\расчленению proxy? То были не костыли, а это костыли?

От: Кулик Алексей aka kpblc

Кулик Алексей aka kpblc — Thu, 12 Feb 2015 12:49:59 +0000

Андрей, но ведь это же костыли будут! Оно надо? Я, скорее всего, буду для этой задачи использовать c#, благо работающие примеры есть )))

От: Андрей

Андрей — Thu, 12 Feb 2015 12:32:26 +0000

либо на .net написать дополнительные lisp-функции. Собственно подобные ситуации я и имел в виду, когда создавал этот опрос: http://adn-cis.org/forum/index.php?topic=349.0