[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

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

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

Прошло много лет и топик теперь представляет из себя площадку для обучения азов программирования для многих начинающих.
Так что начинающие лиспогрызы приветствуются .

[gomer]

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

Код:

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

 (defun c:test ()

  (setq vprt (car (entsel)))
  (setq ang (getreal "\nAngle: "))
  
  (setq cen (cdr (assoc 10 (entget vprt))))
  (setq old (getvar 'VPROTATEASSOC))
  
  (setvar 'VPROTATEASSOC 1)
  (vl-cmdf "_.rotate" vprt "" cen ang)
  
  (setvar 'VPROTATEASSOC 0)
  (vl-cmdf "_.rotate" vprt "" cen (- ang) )
  
  (setvar 'VPROTATEASSOC old)
)

[kakt00z]

vla-put-rot*
или vla-put-a*
думаю может помоч (мне помогало)
Offtop: gomer, сообщение напоминают тот случай когда папы играются с вертолетиками своих дтей

[Дима_]

Он работает - выздоравливай.

[gomer]

Сообщение от Дима_ Он работает

ТОгда ж почему он не поворачивает обратно вьюпорт?

[Vov.Ka]

Сообщение от gomer подскажите как повернуть вид в вьюпорте

Код:

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

 vla-put-TwistAngle

[gomer]

Сообщение от Vov.Ka vla-put-TwistAngle

Это я пробовал, не то. TwistAngle закрручивает вид в пространстве, а нужно повернуть плоскость xy относительно оси z

[Vov.Ka]

Сообщение от gomer а нужно повернуть плоскость xy относительно оси z

[IMG]http://i.*******info/i9/90ae47b091820f3bc1bf760e92d9c530/1398111430/4235/373356/Clipboard_1_240.jpg[/IMG][IMG]http://i.*******info/a3/2014-04-21-20-17/i9-6273494/240x136-r/i.gif[/IMG]

[gomer]

Vov.Ka, все равно не подходит, вид улетает, а нужно, чтоб вид сохранялся, причем при любом угле, не только 90 градусов

[mkung]

Добрый день.
Есть программка, отрисовывающая выноску по параметрам дуги.
Но пользователь попросил, чтобы выноска была в пространстве листа.
Выноска, как она получается - во вложенном файле.
Проблема в том, что она аннототивная и при использовании команды СМЕНАПРОСТР с масштабом полный алес-капут.
Может кто подскажет как корректно перенести выноску на лист программно?
Заранее благодарен.

[Vov.Ka]

Сообщение от gomer все равно не подходит, вид улетает

другого выхода у нас нет
будем извращаться

Код:

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

 (defun vk_ZoomTo (Center)
  (vla-ZoomCenter
    (vlax-get-acad-object)
    (vlax-3d-point Center)
    (getvar "VIEWSIZE")
  )
)
(defun vk_CenterViewport (Viewport Center / ADoc)
  (setq	ADoc	 (vla-get-ActiveDocument (vlax-get-acad-object))
	Viewport (if (= (type Viewport) 'ENAME)
		   (vlax-ename->vla-object Viewport)
		   Viewport
		 )
  )
  (vla-put-MSpace ADoc :vlax-true)
  (vla-put-ActivePViewport ADoc Viewport)
  (vk_ZoomTo Center)
  (vla-put-MSpace ADoc :vlax-false)
)
(defun vk_Mx*Vec (m v)
  (mapcar (function (lambda (r) (apply '+ (mapcar '* r v)))) m)
)
(defun vk_RotatePoint2d	(P Ang / s c)
  (setq	s (sin Ang)
	c (cos Ang)
  )
  (vk_Mx*Vec (list (list c (- s)) (list s c)) P)
)
(defun vk_GetAssVal (Key InList) (cdr (assoc Key InList)))
(defun vk_RotateViewPort (Viewport Ang / TwAng Center)
  (setq	TwAng  (vk_GetAssVal 51 (entget Viewport))
	Center (vk_RotatePoint2d (vk_GetAssVal 12 (entget Viewport)) (- TwAng))
  )
  (vla-put-TwistAngle (vlax-ename->vla-object Viewport) (+ TwAng Ang))
  (vk_CenterViewport Viewport Center)
)

[Дима_]

Ух а ведь и правда не работает (я про вариант гомера) - он у меня 1 раз отработал (когда говорю такое сам себе не верю - но вроде сам видел - не уж-то померещилось??) и все (я и подумал, что гомер чего-то приболел совсем) - интересно в чем там заковырка.

[gomer]

Сообщение от Дима_ интересно в чем там заковырка

Тут два варианта, либо баг, либо фишка. Если Это фишка, то тогда чего я не знаю? Причем не склоняется обратно даже с помощью vla-rotate.

[kakt00z]

возник вопрос в продолжение темы танцев с viewport
сталкивался ли кто-нибудь с такой ситуацией
создаю программно layout (задаю ему только название)
вставляю в layout видовой экран, включаю его, устанавливаю ему target (вычисленный в координатах модели из параметров блока)
и он волшебным образом смещает вид от указанной точки на величину своего dxf 12 кода
в описании этого кода "View center point (in DCS)", что за DCS пока что не нашел
заметил что он не меняется на разных файлах, НО меняется - при смене принтера по умолчанию и переоткрытии файла
entmod'ом этот код в '(0 0 0) не меняется
где его можно обнулить

PS вопрос снят, был неправильный подход к решению задачи

[Vladimir_Sergeevich]

Созрел вопрос, а можно ли средствами автолиспа добавить в настройки автокада путь к вспомогательным файлам? например "M:\дороги\_font for autocad"

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

Можно. Вариантов масса:
1. Анализировать (getenv "ACAD") и при необходимости добавлять свой путь (пути)
2. Анализировать (vla-get-supportpath (vla-get-files (vla-get-preferences (vlax-get-acad-object)))) и добавлять свой путь (пути)
3. Залезать в реестр (ИМХО наименее удобный способ).

[Vladimir_Sergeevich]

Думаю №2 самое удобное будет, руки дойдут - займусь. просто, глядя на объектную модель в справке, направления так и не понял без подсказки.

[seregabs]

Уважаемые форумчане! Интересует такой вопрос, сперва принципиально (возможно/нет), после (или в процессе) вставки динамического блока командой из лиспа, выбрать конкретный заранее известный параметр из таблицы выбора этого блока?

[Дима_]

1. Можно.
2. К vla-объекту блока - getdynamicplockproperties->выбор нужного свойства (например по имени ) - vla-put-value порядкового номера.

[kakt00z]

у объекта IAcadDynamicBlockReferenceProperty есть свойство AllowedValues

[seregabs]

Спасибо за ответы. Поскольку с вла знаком чуть более, чем нисколько, получился весьма громоздкий текст для этого одного действия:

Код:

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

(vla-load-com)
(setq es (entlast))
(setq ve (vlax-ename->vla-object es))
(setq DynPrs (vlax-Invoke ve 'GetDynamicBlockProperties))
(foreach Prop DynPrs
  (if (= (vla-get-PropertyName Prop) "PosQuan")
    (vlax-put Prop 'Value "11 pos")
  )
)
)

Не разобрался как обратиться сразу к нужному свойству по имени, сделал перебором всех, сработало. Имя всегда одно и то же ("PosQuan"), устанавливаемое значение всегда известно заранее ( для примера "11 pos"). Как бы это упростить?...