Комментарии на: Особенности vla-функций и их применения

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

Кулик Алексей aka kpblc — Mon, 09 Nov 2009 15:19:12 +0000

Это понятно Проблема в том, что для некоторых объектов координаты задаются в мировой системе; для некоторых - в системе объекта. А эту "некоторость" приходится постоянно держать в голове.

От: Do$

Do$ — Mon, 09 Nov 2009 14:01:16 +0000

Конечно, просто опечатка! Не совпадают центры окружностей, полученных entmakex и vla. Долго пытался понять почему так, методом проб и ошибок выяснил, что в entget-списке окружности координаты центра хранятся в ситеме координат этой окружности.

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

Кулик Алексей aka kpblc — Mon, 09 Nov 2009 13:08:15 +0000

Да, опечатался. Но дело в том, что замена центра на '(100. 10. 100.) ситуацию не изменит:

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

(defun test (/ center rad normal ent vla)

(setq center '(100. 10. 100.)
rad 60.
normal '(-0.671718 -0.251372 0.696855)
ent (entmakex (list '(0 . "CIRCLE")
(cons 10 center)
(cons 40 rad)
'(62 . 1)
(cons 210 normal)
) ;_ end of list
) ;_ end of entmakex
vla (vla-addcircle
(vla-get-modelspace
(vla-get-activedocument
(vlax-get-acad-object)
) ;_ end of vla-get-ActiveDocument
) ;_ end of vla-get-ModelSpace
(vlax-3d-point center)
rad
) ;_ end of vla-addcircle
) ;_ end of setq
(vla-put-color vla 2)
(vla-put-normal vla (vlax-3d-point normal))
(foreach item (list (cons "entmakex" ent)
(cons "vla" (vlax-vla-object->ename vla))
) ;_ end of list
(princ
(strcat "\n ** "
(car item)
" : "
(vl-princ-to-string
(vl-remove-if
(function (lambda (x) (member (car x) '(-1 5 330))))
(entget (cdr item))
) ;_ end of vl-remove-if
) ;_ end of vl-princ-to-string
) ;_ end of strcat
) ;_ end of princ
) ;_ end of foreach
(princ)
) ;_ end of defun

И в ком.строке сравнить группу 10.
Или я где-то ошибся? Прошу поправить, если это не так.

От: Do$

Do$ — Mon, 09 Nov 2009 11:11:19 +0000

А если взять объект посложнее? Например, окружность?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
(entmakex '((0 . "CIRCLE")
(10 100. 10. 100.)
(40 . 60.)
(210 -0.671718 -0.251372 0.696855)
)
) ;_ end of entmakex

(vla-put-normal
(vla-addcircle
(vla-get-modelspace
(vla-get-activedocument
(vlax-get-acad-object)
) ;_ end of vla-get-ActiveDocument
) ;_ end of vla-get-ModelSpace
(vlax-3d-point '(100. 0. 0.))
60
) ;_ end of vla-AddCircle
(vlax-3d-point '(-0.671718 -0.251372 0.696855))
) ;_ end of vla-put-normal

Разными будут координаты центров окружностей.

Они и в кодах тоже разные! Где entmakex - (10 100. 10. 100.), vla - (vlax-3d-point '(100. 0. 0.))