[Zaghim]

Вопрос такой. На чертеже есть 3 типа полилиний. LWPOLYLINE, 3DPOLYLINE и POLYLINE. При получении свойств ssget'ом, получаю всегда в списке с кодом 0 - просто POLYLINE, не важно на какую линию тыкаю. Что за ерунда, как с этим бороться?

[Александр Ривилис]

Ерунду пишешь. LWPOLYLINE и POLYLINE - разные примитивы и код 0 у них разный. А вот 2D и 3D полилинии по коду 0 различить нельзя, но можно по коду 70 - посмотри DXF Reference->Entity Section->POLYLINE

[Zaghim]

Не получается что-то... 70 код, как его вытащить?

[Александр Ривилис]

Сообщение от Zaghim как его вытащить?

Так же, как ты вытаскиваешь код 0.

[Zaghim]

Код:

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

(setq ov (entsel "Тыкай на линию или <Enter>: "))
  (setq ov1 (ssget "l"))
  (setq ob (entget (ssname ov1 0)))
  (setq lob (cdr (assoc 0 ob)))
  (setq lob1 (cdr (assoc 70 ob)))

В lob1 почему то всегда nil.

[Александр Ривилис]

Код:

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

Command: _3dpoly
Specify start point of polyline:
Specify endpoint of line or [Undo]:
Specify endpoint of line or [Undo]:
Specify endpoint of line or [Close/Undo]:
Specify endpoint of line or [Close/Undo]:
Specify endpoint of line or [Close/Undo]:

Command: (cdr (assoc 70 (entget (car (entsel)))))
Select object: 8

Код:

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

Command: _pline
Specify start point:
Current line-width is 0.0000
Specify next point or [Arc/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:
Specify next point or [Arc/Close/Halfwidth/Length/Undo/Width]:

Command: (cdr (assoc 70 (entget (car (entsel)))))
Select object: 0

А это бред сивой кобылы:

Код:

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

(setq ov (entsel "Тыкай на линию или <Enter>: "))
(setq ov1 (ssget "l"))

[Zaghim]

Почему так критично?)) В общем сделал... у 3дполилинии по коду 70 сидит 8, а у полилинии сидит 128. Спасибо!!! Тему можно закрывать!

[Лиспер]

Сообщение от Zaghim у полилинии сидит 128

Необязательно.

[Александр Ривилис]

Сообщение от Zaghim Почему так критично?))

Это критично?

Сообщение от Zaghim у 3дполилинии по коду 70 сидит 8

Зачет не сдан:

Код:

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

Command: _3dpoly
Specify start point of polyline:
Specify endpoint of line or [Undo]:
Specify endpoint of line or [Undo]:
Specify endpoint of line or [Close/Undo]:
Specify endpoint of line or [Close/Undo]: _c
Command: (cdr (assoc 70 (entget (car (entsel)))))
Select object: 9

Сообщение от Zaghim а у полилинии сидит 128

Зачет не сдан. В моем примере был 0, а может быть еще куча разных значений:

POLYLINE 70 Polyline flag (bit-coded; default = 0): 1 = This is a closed polyline (or a polygon mesh closed in the M direction) 2 = Curve-fit vertices have been added 4 = Spline-fit vertices have been added 8 = This is a 3D polyline 16 = This is a 3D polygon mesh 32 = The polygon mesh is closed in the N direction 64 = The polyline is a polyface mesh 128 = The linetype pattern is generated continuously around the vertices of this polyline LWPOLYLINE 70 Polyline flag (bit-coded); default is 0: 1 = Closed; 128 = Plinegen

[Zaghim]

Я конечно извиняюсь, но сами себе противоречите! Сами написали "8 = This is a 3D polyline"... почему 9?

[Лиспер]

Потому что Closed. Советую внимательно просмотреть DXF Reference.

[Zaghim]

Не кидайте помидорами, но я не знаю где и как((
А какие еще варианты могут быть 3дполлиний?

[Александр Ривилис]

Сообщение от Zaghim А какие еще варианты могут быть 3дполлиний?

Какая тебе разница? Проверяешь, что 0-ой код = "POLYLINE" и код 70 содержит 8, т.е. (/= (logand code 8) 0)

[Zaghim]

Ок, я понял. Спасибо за помощь!!!!!!!!!

[Disney]

Я однажды тоже разбирался где LW, где 2D, а где 3D Poyline

Код:

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

(vl-load-com)
(substr
  (vla-get-ObjectName
    (vlax-ename->vla-Object
      (car
	(entsel)
      )
    )
  )
  5
)