[Mr_Poltinik]

Я написал код для создания 3d модели, после чего написал ещё участок , который должен строить параллелепипед , чтобы потом вычесть его из модели и сделать вырез. До написания кода с параллелепипедом всё работало нормально, но после его написания и загрузки автокад не хочет его строить, как будто не видит его. Я вставлял его в разные участки кода, автокад выполняет код до него , потом надо щёлкунть на чертеже и только потом он выполнит оставшейся код, а построение параллелепипеда просто игнорирует. Также если загружать файл с этим участком в конце кода(обычно в консоли появляется сообщение что 2 форм загружено ), то после нажатия загрузки в консоли ничего не происходит,а после вызова команды на построение , строится модель и автокад просит указать первую точку угла(хотя я вроде указываю координаты для построения), а к командной строке появляется сообщение:Укажите точку первого угла или [Фаска/Уровень/Сопряжение/Толщина/Ширина]: ; ошибка: неверное значение аргумента: Команда AutoCAD: #<SUBR @0000021725204d88 LIST>. При вызове других команд по типу "_box" , он тоже видит только команду , но не координаты для построения.
Вот сам код :

Код:

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

 (defun bldob ()
  (setq a   90 ; длина нижнего основания
        b   60 ; ширина нижнего основания
	a1  75.5 ; длина основания, этот размер не указан на чертеже
	b1  55.5 ; ширина основания, этот размер не указан на чертеже
	h1  20 ; высота основания
	c   50 ; длина верхнего основания трапеции
	w   24 ; ширина трапеции
	h2  35 ; высота трапеции
	f   44 ; длина цилидра
	d1  40 ; внешний диаметр
	d2  16 ; внутренний диаметр
	aa  (/ a 2)
	bb  (/ b 2)
	w1  (/ w 2)
	c1  (/ c 2)
	aa1 (/ a1 2)
	bb1 (/ b1 2)
	ha  (+ h1 h2)
	ff  (/ f 2)
        )
  (defun c:osmode_off (/)
 (setq osmode_old_ (getvar "osmode") )
 (setvar "osmode" 0)
 (prin1))
  /defun (c:osmode_off)

  (setq pt1 (list (- 0 aa ) (- 0 bb))
       pt2 (list aa bb))
  (command "_rectang" pt1 pt2) ; нижнее основание
  (setq ob1 (entlast))
  ( setq pt3 (list (- 0 aa1) (- 0 bb1) h1)
	 pt4 (list aa1 bb1 h1))
  (command "_rectang" pt3 pt4) ; основание 
  (setq ob2 (entlast))
  (command "_loft" ob1 ob2 "" "")
  (setq ob3d (entlast))
  (setq pt5 (list (- 0 aa1) (- 0 w1) h1)
	pt6 (list aa1 w1 h1))
  (command "_rectang" pt5 pt6)
  (setq ob3 (entlast))
  (setq pt7 (list (- 0 c1) (- 0 w1) ha)
	pt8 (list c1 w1 ha))
  (command "_rectang" pt7 pt8)
  (setq ob4 (entlast))
  (command "_loft" ob3 ob4 "" "")
  (command "_union" ob3d (entlast)"")
  (command "_ucs" (list 0 0 ha) "")
  (command "_ucs" "x" -90)
  (command "_circle" (list 0 0 (- 0 ff)) (/ d1 2))
  (setq ob5 (entlast))
  (command "_extrude" ob5 "" f)
  (command "_union" ob3d (entlast)"")
  (command "_circle" (list 0 0 (- 0 ff)) (/ d2 2))
  
  (command "_extrude" (entlast) "" f)
  (command "_subtract" ob3d "" (entlast) "")
  
  (command "_ucs" "x" 90)
  (command "_ucs" (list 0 0 (- 0 ha)) "")

 ;  (setq pt9 list(8 (- 0 12) 55)
 ; 	 pt10 list(20 12 55))
 ; (command "_rectang" pt9 pt10)
 ; (setq ob6 (entlast))
 ; (setq pt11 list(8 (- 0 12) 75)
 ;	 pt12 list(20 12 75))
 ; (command "_rectang" pt11 pt12)
 ; (setq ob7 (entlast))
 ; (command "_loft" ob6 ob7 "" "") 
  
)
  

(defun c:blob ()
  (bldob))

А вот код построения параллелепипеда :

Код:

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

     (setq pt9 list(8 (- 0 12) 55)
  	 pt10 list(20 12 55))
  (command "_rectang" pt9 pt10)
  (setq ob6 (entlast))
  (setq pt11 list(8 (- 0 12) 75)
  	 pt12 list(20 12 75))
  (command "_rectang" pt11 pt12)
  (setq ob7 (entlast))
  (command "_loft" ob6 ob7 "" "")

[name02]

Ооох, дружище. Перефразируя - ник твой известен, код твой бессмертен...
У тебя код построения параллелепипеда неправильно написан: ты пишешь list(...), а надо (list ...)
И зачем вычисления в list(8 (- 0 12) 55), можно сразу написать (list 8 -12 55)

[Mr_Poltinik]

Да не, не в скобках дело. Я их правильно поставил после того как опубликовал тему, и ничего не поменялось, но он хотя бы теперь пишет что форма загружена , а не просто ничего. Вот я ставлю код от параллелепипеда в середину например и он до середины строит модель я дальше просто останавливается. Вот почему такое может быть?

[name02]

Из 26 строки /defun убрал?
В твоем коде исправил 26 строку и исправил все list( на (list - строит

В середину кода не надо ставить - у тебя есть места, в которых фигурирует (entlast) - это последний созданный/измененный объект в чертеже
Поэтому лучше сделать так:

Код:

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

 (defun c:blob ()
  (bldob)
  
  (setq	pt9 (list
	8 (- 0 12) 55)
	 pt10
	(list 20 12 55)
  ) ;_ end of setq
  (command "_rectang" pt9 pt10)
  (setq ob6 (entlast))
  (setq	pt11 (list
	       8
	       (- 0 12)
	       75
	     ) ;_ end of list
	pt12
	     (list 20 12 75)
  ) ;_ end of setq
  (command "_rectang" pt11 pt12)
  (setq ob7 (entlast))
  (command "_loft" ob6 ob7 "" "")


) ;_ end of defun

[Mr_Poltinik]

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

[name02]

Из 26 строки твоего кода убери только /defun , оставь только (с:оsmode_off)

[Mr_Poltinik]

Это не в 26 строке /defun надо было убрать, я просто кучу скобок нагромоздил в list, надо было (list 20 12 55), а у меня было (list( 20 12 55)). Я лишние убрал и всё построилось. Спасибо за помощь