[Ingpro]

Всем привет!
Есть лисп, который должен делать сопряжение двух стержней по заданному диаметру.
Список диаметров и радиусов сопряжения представлены в лиспе, но не пойму зачем там
[/color] ... [color="green"], наверное, должен выделять сопряжение цветом...
Не могу проверить, т.к. выдаёт ошибку ; ошибка: no function definition: [COLOR=
Помогите, пожалуйста, исправить лисп, выделение цветом как-бы не надо... С уважением и спасибо...

Код:

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

 (defun c:RZ ( / l i r )
(setq l '((6 8 10 12 16 20 25 32 36 40) (12 16 20 24 32 40 75 96 108 120)))

(initget 1 (apply 'strcat (mapcar ''((x)(strcat(itoa x) " "))(car l))))
;(initget 1 "6 8 10 12 16 20 25 32 36 40 "); same validation 

(and
(setq i (getkword "\nEnter size? ")) 
(setq r (cadr (assoc (atoi i) (apply 'mapcar (cons 'list l))))) ;Doug Wilson's transpose
;((6 12) (8 16) (10 20) (12 24) (16 32) (20 40) (25 75) (32 96) (36 108) (40 120)) 

(setvar 'filletrad r)) ;new fillet radius value, r 
(vl-cmdf "_FILLET" "p") ;invoke command fillet
(princ)
 )

Ниже. см. пост #14 выложены 4 лиспа для сопряжения линий заданным радиусом для арматуры А240, А300, А400, А500, А600.

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

Откуда код копировал-то?

[Ingpro]

www.cadtutor.net
А что с ним не так?
https://www.cadtutor.net/forum/topic...nding-factors/

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

Ты мне предлагаешь весь сайт лопатить, чтобы найти этот код? Конкретную ссылку, откуда копировал, давай.

[Ingpro]

Сообщение от Кулик Алексей aka kpblc предлагаешь весь сайт лопатить

В коде #1 подправлены значения радиусов, остальное - как в оригинале.

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

<...>
---
Без проверок:

Код:

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

 (defun c:test (/ l i r) 
  (setq l '((6 8 10 12 16 20 25 32 36 40) (20 24 32 36 48 60 75 96 108 120)))

  (initget 1 (apply 'strcat (mapcar ''((x) (strcat (itoa x) " ")) (car l))))
  ;(initget 1 "6 8 10 12 16 20 25 32 36 40 "); same validation

  (and 
    (setq i (getkword "\nEnter size? "))
    (setq r (cadr (assoc (atoi i) (apply 'mapcar (cons 'list l))))) ;Doug Wilson's transpose
    ;((6 20) (8 24) (10 32) (12 36) (16 48) (20 60) (25 75) (32 96) (36 108) (40 120))

    (setvar 'filletrad r)
  ) ;new fillet radius value, r
  (vl-cmdf "_FILLET" "p") ;invoke command fillet
  (princ)
)

[Ingpro]

Сообщение от Кулик Алексей aka kpblc Без проверок:

Этот код работает, спасибо, Алексей!

[koMon]

Сообщение от Ingpro [/color] ... [color="green"]

это типо раскрашивание цветом языкового синтаксиса. убивать!

[Ingpro]

Сообщение от koMon раскрашивание цветом языкового синтаксиса

А в чем это выражается, поясните, если несложно, или потестить какой-нибудь рабочий код с [/color].
И ещё... Можно в код из поста #6 добавить функцию, чтобы в одном сеансе можно было скруглить несколько пар стержней
с одним диаметром, например, в замкнутых хомутах - 4 угла, чтобы один раз выбрать диаметр и выбрать 2 стержня-скруглить, опять 2 стержня - скруглить с тем же диаметром...
Или хотя бы запомнить выбранный диаметр из предыдущего сеанса...

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

Сообщение от Ingpro потестить какой-нибудь рабочий код с [/color]

Попытаться на этом форуме создать новый пост, внутрь которого вставить код с [color][/color], не обрамляя его тэгом [code]. В предварительном просмотре (скорее всего) все будет нормально.

[nikkomp]

Здраствуйте а можно ли зациклить скругление, как нибудь типа через while, чтобы он каждый раз после скругления, запрос не делал? а делал только после выхода из цикла,
вот к примеру как этот lisp

Код:

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

(defun C:DimSSF (/ adoc ss shg fld str)
;;;Dim Step Size to Field
;;;VVA for dwg.ru
;;;http://forum.dwg.ru/showthread.php?t=103609
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  ) ;_ end of vla-startundomark
  (while (not (eq shg "Выход"))
    (if (not (numberp *DimSSF_SHG*))
      (initget 8 "Выход")
      (initget 6 "Выход")
    ) ;_ end of if
    (if (not (numberp *DimSSF_SHG*))
      (setq shg (getint "\nШаг [Выход]: "))
      (setq
        shg (getint
              (strcat "\nШаг [Выход] < " (itoa *DimSSF_SHG*) " >: ")
            ) ;_ end of getint
      ) ;_ end of setq
    ) ;_ end of if
    (if (null shg)
      (setq shg *DimSSF_SHG*)
    ) ;_ end of if
    (setq *DimSSF_SHG* shg)
    (if (not (eq shg "Выход"))
      (progn
        (while (= (type (setq ss (vl-catch-all-apply
                                (function
                                  (lambda ()
                                    (ssget "_:L" '((0 . "DIMENSION"))) ;_ end of ssget
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
               'pickset
            ) ;_ end of =
          (foreach en
                   (mapcar
                     (function vlax-ename->vla-object)
                     (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
                   ) ;_ end of mapcar
            (setq fld (strcat
                        "%<\\AcExpr ("
                        "%<\\AcObjProp Object(%<\\_ObjId "
                        (vl-princ-to-string
                          (Get-ObjectID-x86-x64 en)
                        ) ;_ vl-princ-to-string
                        ">%).Measurement \\f \"%lu2\">%"
                        "/"
                        (itoa shg)
                        ") \\f \"%lu2%pr0\">%"
                      ) ;_ strcat
            ) ;_ setq
            (setq str (strcat fld "x" (itoa shg) "=<>"))
            (vl-catch-all-apply
              (function
                (lambda ()
                  (vla-put-textoverride en str)
                ) ;_ end of lambda
              ) ;_ end of function
            ) ;_ end of vl-catch-all-apply
            (vl-cmdf "_updatefield" (vlax-vla-object->ename en) "")

          ) ;_ end of foreach
        ) ;_ end of while
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of while
  (vla-endundomark adoc)
  (princ)
) ;_ end of defun

;;--------------------------------------------------------
;; Функция получает строковое представление ObjectID
;; вне зависимости от того AutoCAD x86 или x64
;; Источник: "Field and objectid problem"

;;http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Field-and-objectid-problem/m-p/2478592/highlight/true#M276818
;; http://forum.dwg.ru/showthread.php?t=51822
;;--------------------------------------------------------
(defun Get-ObjectID-x86-x64 (obj / util)
  (setq util (vla-get-utility
               (vla-get-activedocument (vlax-get-acad-object))
             ) ;_ end of vla-get-Utility
  ) ;_ end of setq
  (if (= (type obj) 'ENAME)
    (setq obj (vlax-ename->vla-object obj))
  ) ;_ end of if
  (if (= (type obj) 'VLA-OBJECT)
    (if (> (vl-string-search "x64" (getvar "platform")) 0)
      (vlax-invoke-method
        util
        "GetObjectIdString"
        obj
        :vlax-false
      ) ;_ end of vlax-invoke-method
      (rtos (vla-get-objectid obj) 2 0)
    ) ;_ end of if
  ) ;_ end of if
) ;_ end of defun

[Ingpro]

Сообщение от nikkomp можно ли зациклить скругление, как нибудь типа через while,

чтобы в одном сеансе можно было скруглить несколько пар стержней с одним диаметром.
Ув. профи, помогите в лисп из поста #6 добавить выбор рамкой нескольких стержней.

[nikkomp]

Сообщение от Ingpro чтобы в одном сеансе можно было скруглить несколько пар стержней с одним диаметром. Ув. профи, помогите в лисп из поста #6 добавить выбор рамкой нескольких стержней.

Ну в этом точно не помогут я как то просил подобное https://forum.dwg.ru/showthread.php?p=1910148&
В принципе это не просто https://dwg.ru/b/klisp/408

[Ingpro]

Если кому интересно, выкладываю 4 лиспа для сопряжения линий заданным радиусом для арматуры А240, А300 - лисп А2;
для арматуры А400 - лисп А4; для арматуры А500, А600 - лисп А5; для арматуры Вр1 - лисп В1.
Вызываем команду, выбираем радиус арматуры для сопряжения. Затем смотрим текст в командной строке:
"Выберите первый объект или [оТменить/полИлиния/раДиус/Обрезка/Несколько]:"
выбираем Н (Несколько) и в одном сеансе выбираем несколько пар стержней (только по одному, а не рамкой)...
Расчет радиусов загиба арматуры выполнен по таблице 10.4 СП 70.13330.2012 Несущие и ограждающие конструкции.

[Ingpro]

Сообщение от nikkomp Ну в этом точно не помогут я как то просил подобное

Тогда выбираем "Несколько", см. пост #14.

[koMon]

Сообщение от Ingpro 4 лиспа

а сделать выбор диаметров/радиусов скругления по типу арматуры не?

[Ingpro]

Сообщение от koMon а сделать выбор диаметров/радиусов скругления по типу арматуры не?

А это как?

[koMon]

как-то так

Код:

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

 
;****************************************************************************

(defun check_real (number multiplier_1 multiplier_2 / check_number)
	(if (> (setq check_number (* multiplier_1 number multiplier_2))
		   (fix check_number)
		)
			(1+ (fix check_number))
			check_number
	)
)

;****************************************************************************

(defun set_bend_radii (diam_list rf_type_string)
	(cond
		(
			(member rf_type_string '("А240" "А300"))
				(mapcar '(lambda (diam) (check_real diam 0.5 2.5))
						 diam_list
				)
		)
		(
			(= "А400" rf_type_string)
				(mapcar '(lambda (diam) (if (> 20 diam)
												(check_real diam 1 2)
												(check_real diam 1 3)
										)
						 )
						 diam_list
				)
		)
		(
			(= "А500" rf_type_string)
				(mapcar '(lambda (diam) (if (> 20 diam)
												(check_real diam 0.5 6)
												(check_real diam 0.5 7)
										)
						 )
						 diam_list
				)
		)
		(
			(= "ВР-1" rf_type_string)
				(mapcar '(lambda (diam) (check_real diam 1 2))
						 diam_list
				)
		)
	)
)

;****************************************************************************

(defun c:fill_it (/ rf_diam_saved rf_type_saved diam_list diam_list bend_radius)
	(if (null rf_diam)
			(setq rf_diam_saved "")
			(setq rf_diam_saved (itoa rf_diam))

	)
	(if (null rf_type)
			(setq rf_type_saved "")
			(setq rf_type_saved rf_type)

	)
	(initget "А240 А300 А400 А500 ВР-1")
	(if (null (setq rf_type (getkword (strcat "\Выберите тип арматуры [А240/А300/А400/А500/ВР-1] <"
											  rf_type_saved
											  ">: "
									  )
						    )
			  )
		)
		(setq rf_type rf_type_saved)
	)
	(if (= "ВР-1" rf_type)
		(setq diam_list '(3 4 5))
		(setq diam_list '(6 8 10 12 14 16 18 20 22 25 28 32 36 40))
	)
	(while (and
				(if (= rf_diam_saved "")
						(null (initget 7))
						(null (initget 6))
				)
			  	(if (setq rf_diam (getint (strcat "\nВыберите диаметр арматуры ["
			  										(substr (apply 'strcat (mapcar '(lambda (diam) (strcat "/" (itoa diam))) diam_list)) 2)
			  										"] <"
			  										rf_diam_saved
			  										 ">: "
			  							  )
			  					  )
			  		)
					t t
				)
				(if (null rf_diam)
					(setq rf_diam (atoi rf_diam_saved))
					(setq rf_diam_saved (itoa rf_diam))
				)
				(null (member rf_diam diam_list))
				(princ "Неверный диаметр арматуры!")
		   )
	)
	(setq bend_radius (nth (vl-position rf_diam diam_list) (set_bend_radii diam_list rf_type)))
	(initcommandversion)
	(command-s "_.fillet" "_r" bend_radius "_m" pause) 
)

;****************************************************************************

[Ingpro]

koMon, это СУПЕР! Я так не умею... СПАСИБО!!!