[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

_____________________________________________________________________________________________________________

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

[Moi Imena]

Сообщение от ===AAA=== Я не уверен (проверять лень), что "EXPLODE" умеет расчленять элементы передаваемого ей набора. Попробуй "скормить" ей отдельный элемент набора. Если всё получится, просто организуй цикл для последовательного расчленения всех элементов набора.

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

----- добавлено через ~14 мин. -----

Сообщение от koMon можно попробовать так Код: [Выделить все] (initcommandversion) (vl-cmdf "_explode" (ssget "_x" '((0 . "region"))) "")

к сожалению на eng autocad не сработало, вот полученный ответ

Command: (vl-cmdf "EXPLODE" ss "")
EXPLODE
Select object:
Command: U
(Lisp Expression) GROUP
Command: T

для сравнение erase вместо explode

Command: (vl-cmdf "ERASE" SS "")
ERASE
Select objects: 70756 found
Select objects:
Command: T
Command: _u (Lisp Expression) GROUP

[koMon]

Сообщение от Moi Imena к сожалению на eng autocad не сработало, вот полученный ответ

можно так попробовать

Код:

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

 
(setq count 0)
(vlax-map-collection
	(vla-get-modelspace (vla-get-database (vla-get-activedocument (vlax-get-acad-object))))
   '(lambda (object)
		(and
			(= (vla-get-objectname object) "AcDbRegion")
			(vla-explode object)
			(princ (strcat "\r"(itoa (setq count (1+ count))) " regions exploded"))
			(vla-erase object)
		)
	)
)
(princ)

[Moi Imena]

Сообщение от koMon можно так попробовать Код: [Выделить все] (setq count 0) (vlax-map-collection (vla-get-modelspace (vla-get-database (vla-get-activedocument (vlax-get-acad-object)))) '(lambda (object) (and (= (vla-get-objectname object) "AcDbRegion") (vla-explode object) (princ (strcat "\r"(itoa (setq count (1+ count))) " regions exploded")) (vla-erase object) ) ) ) (princ)

вначале не понял почему оставляет регионы, думал что что то делаю не так, так как в обычном expldoe исходные данные подтираются, увидел у вас vla-erase и понял что все верно делаю, спасибо !

[stin9]

Набросал Lisp который рисует лестницу по вводимым данным. Сначала вычисляет координаты точек, затем проводит полилинии по этим точкам.
Внимание вопрос: как переделать чтобы сократить количество строк (символов)?. Через какие другие команды это построить?

Код:

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

 (DEFUN c:SCARA_v2 (/ p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23) ; начало функции ;;; (перечисление переменных в скобках "очищает память" после вполнения программы)
(setq yH (getreal "\n Введите Высоту ступени= "))  ; запрос 
(setq xL (getreal "\n Введите Глубину ступени (проступь)= "))  ; запрос
(setq zH (getreal "\n Введите Толщину плитной части= "))  ; запрос
(setq sH (getreal "\n Введите Толщина ОТДЕЛОЧНОГО (плитка+клей) слоя = "))  ; запрос
(setq p1 (getpoint "\nУкажите базовую точку : ")) ; запрос координат базовой точки

  
(setq p2 (polar p1 (/ pi 2) yH)) ; определение координат точки р2
(setq p3 (polar p2 0 xL)) ; определение координат точки р3
(setq p4 (polar p3 (/ pi 2) yH)) ; определение координат точки р4

(setq p5 (polar p4 0 xL)) ; определение координат точки
(setq p6 (polar p5 (/ pi 2) yH)) ; определение координат точки
(setq p7 (polar p6 0 xL)) ; определение координат точки
(setq p8 (polar p7 (/ pi 2) yH)) ; определение координат точки
(setq p9 (polar p8 0 xL)) ; определение координат точки
(setq p10 (polar p9 (/ pi 2) yH)) ; определение координат точки
(setq p11 (polar p10 0 xL)) ; определение координат точки
(setq p12 (polar p11 (/ pi 2) yH)) ; определение координат точки
(setq p13 (polar p12 0 xL)) ; определение координат точки
(setq p14 (polar p13 (/ pi 2) yH)) ; определение координат точки
(setq p15 (polar p14 0 xL)) ; определение координат точки
(setq p16 (polar p15 (/ pi 2) yH)) ; определение координат точки
(setq p17 (polar p16 0 xL)) ; определение координат точки
(setq p18 (polar p17 (/ pi 2) yH)) ; определение координат точки
(setq p19 (polar p18 0 xL)) ; определение координат точки

(setq p20 (polar p19 (/ pi 2) yH)) ; определение координат точки
(setq p21 (polar p20 0 xL)) ; определение координат точки
(setq p22 (polar p21 (/ pi 2) yH)) ; определение координат точки
(setq p23 (polar p22 0 xL)) ; определение координат точки

  
(setq p1d (polar p1 (+ pi (/ pi 2)) sH)) ; определение координат точки p1d которая ниже на величину ФИНИШ слоя
(setq p23d (polar p23 (+ pi (/ pi 2)) sH)) ; определение координат точки p23d которая ниже на величину ФИНИШ слоя
  
 
(setq osm (getvar "osmode")) ; запоминаем привязки пользователя
(setvar "osmode" 0) ; отключаем привязки

;;;(command "CLAYER" "Ste_Lestn---0") ; меняет текущий слой 
  
(command "_.Pline" p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 "") ; рисуем ломаной полилинией Лестницу
(setq gLoman (entlast)); запоминаем имя последней линии в переменную [gLoman]


(command "_.COPY" gLoman "" p1 p1d) ; копируем полилинию "вниз" на величину финишного слоя (command "_.COPY" ss "" pt1 pt2)
  (setq gLomanREZ (entlast)); запоминаем имя последней линии в переменную

;;;(command "_.CHANGE" gLomanREZ "" "P" "LA" "Ste_Lestn_0.5" "") ;  Меняет слой
;;;  (command "_.CHANGE" (entlast) "" "P" "LA" "Ste_Lestn_0.5" "") ; запасная  строка  Меняет слой вариант 2
;;;(command "CLAYER" "Ste_Lestn_0.5") ; делает текущий слой 
  
(command "_.Pline" p1d p23d "") ; рисуем "временную" наклонную

  (setq gLine (entlast)); запоминаем имя последней линии ("временную" наклонную) в переменную [gLine]

  (command "_.OFFSET" zH gLine p1d "") ; Выполняем OFFSET последней линии на расстояние [zH] в направлении точки [p1d]
  (command "erase" gLine ""); Удаляем "временную" наклонную
  

  (setvar "osmode" osm) ; возвращает привязки пользователя
;;;  (setvar "osmode" 1215) ; возвращает привязки пользователя
    
) ; окончание функции

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

Ну, несколько setq чисто теоретически можно объединять в один, но длины программы капитально это не изменит. А так - чисто по приколу - кто мешает создавать полилинию, вычисляя точки "на лету" (и, может быть, еще и от командных методов уйти)? Заодно и количество переменных уменьшится.

[koMon]

Сообщение от stin9 сократить количество строк

Код:

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

 
(setq yH (getreal "\n Введите Высоту ступени= "))  ; запрос 
(setq xL (getreal "\n Введите Глубину ступени (проступь)= "))  ; запрос
(setq zH (getreal "\n Введите Толщину плитной части= "))  ; запрос
(setq sH (getreal "\n Введите Толщина ОТДЕЛОЧНОГО (плитка+клей) слоя = "))  ; запрос
(setq p1 (getpoint "\nУкажите базовую точку : ")) ; запрос координат базовой точки
(setq p_list (list (mapcar '+ '(0 0) p1)))
(repeat 11 (setq p_list (append p_list (list (mapcar '+ (last p_list) (list 0 yH)) (mapcar '+ (last p_list) (list xL yH))))))
(vla-copy
  (vla-addlightweightpolyline (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
  			      (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 1 (* 2 (length p_list))))
			      			   (apply 'append p_list)
			      )
  )
)
(setq p1d (polar p1 (* 1.5 pi) sH)) ; определение координат точки p1d которая ниже на величину ФИНИШ слоя
(setq p23d (polar (last p_list) (* 1.5 pi) sH)) ; определение координат точки p23d которая ниже на величину ФИНИШ слоя
(vla-move (vlax-ename->vla-object (entlast)) (vlax-3d-point p1) (vlax-3d-point p1d))
(vla-addline (vla-get-block (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object))))
  	     (vlax-3d-point (polar p1d (- (angle p1d p23d) (* 0.5 pi)) zH))
  	     (vlax-3d-point (polar p23d (- (angle p1d p23d) (* 0.5 pi)) zH))
)