[Иван Hayes]

Нашел таки код программы, чертящей гофрошланги. Одна беда - не работает Помогите, пожалйста разобраться в чем проблема!

Код:

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

; FLEXIBLE DUCTS
;
;This lisp will draw flexible duct on the selected entity.
;Type fd & enter
;User needs to select the centre line of flexible & provide diameter.
;Thats all. You will have flexible duct in a blink of
;your eye
;
;
(defun c:fd(/ ce osm clyr fr cin c1 c2 c3 c4 c5 c6 c7 cl fb fdia bn terr)
(princ "\n Made easy for you by Vivian Carvalho")
(setq ce(getvar "cmdecho")
osm(getvar "osmode")
clyr(getvar "clayer")
fr(getvar "filletrad"))
(setq terr *error*)
(setq *error* SAD_SET)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq cl(car (entsel "\n Select the centre line of flexible : ")))
(setq fdia(getdist "\n Specify Diameter of the flexible : "))
(if (> 200 fdia)
(setvar "filletrad" 100)
(setvar "filletrad" 200))
(if (null (tblsearch "layer" "DUCTING"))
(command "layer" "n" "DUCTING" "c" "magenta" "DUCTING" "")
(princ))
(if (= "LWPOLYLINE" (cdr (assoc 0 (entget cl))))
(command "fillet" "p" cl)
(princ))
(command "change" cl"" "p" "la" "DUCTING" "")
(setq cin(cdr (assoc 10 (entget cl)))
c1(polar cin 1.570796 (/ fdia 2))
c2(polar cin 4.712387 (/ fdia 2))
c3(polar cin 0.0 20)
c4(polar c3 1.570796 50)
c5(polar c3 4.712387 50)
c6(polar c5 3.141592 40)
c7(polar c4 3.141592 40))
(command "pline" c1 c4 c5 c2 c6 c7 "c")
(setq fb(entlast))
(command "change" fb"" "p" "la" "DUCTING" "c" "7" "")
(setq bn (strcat "FLEX"(rtos fdia 2 0)))
(if (null(tblsearch "block" bn))
(progn(command "block" bn cin "previous" "")
(command "measure" cl "b" bn "y" "40"))
(progn (command "measure" cl "b" bn "y" "40")
(command "erase" fb"")))
(command "clayer" clyr)
(command "osmode" osm)
(command "filletrad" fr)
(command "cmdecho" ce)
(princ))
(defun SAD_SET (ERRORMSG)
(command nil nil nil)
(if (not (member ERRORMSG '("console break" "Function Cancelled")))
(princ (strcat "\nError:" ERRORMSG)))
(setvar "cmdecho" ce)
(setvar "osmode" osm)
(setvar "clayer" clyr)
(princ "\nAttention! An Error Has Occurred!")
(princ "\nProgram Now Restoring The User Settings.")
(terpri)
(setq *error* terr)
(princ)
)

Ошибку выдает такую:

Код:

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

Команда: _appload
fd.lsp успешно загружено.


Команда:
Команда:
Команда: _fd

 Made easy for you by Vivian Carvalho
 Select the centre line of flexible :
 Specify Diameter of the flexible : 1
Неизвестная команда "N".  Для вызова справки нажмите F1.
Неизвестная команда "DUCTING".  Для вызова справки нажмите F1.
Неизвестная команда "C".  Для вызова справки нажмите F1.
Неизвестная команда "MAGENTA".  Для вызова справки нажмите F1.
Неизвестная команда "DUCTING".  Для вызова справки нажмите F1.
Неизвестная команда "FD".  Для вызова справки нажмите F1.
Неизвестная команда "FILLET".  Для вызова справки нажмите F1.
Неизвестная команда "P".  Для вызова справки нажмите F1.
<имя объекта: 7EF06688>

[TararykovDG]

Иван Hayes, попробуй так

Код:

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

; FLEXIBLE DUCTS
;
;This lisp will draw flexible duct on the selected entity.
;Type fd & enter
;User needs to select the centre line of flexible & provide diameter.
;Thats all. You will have flexible duct in a blink of
;your eye
;
;
(defun c:fd(/ ce osm clyr fr cin c1 c2 c3 c4 c5 c6 c7 cl fb fdia bn terr)
(princ "\n Made easy for you by Vivian Carvalho")
(setq ce(getvar "cmdecho")
osm(getvar "osmode")
clyr(getvar "clayer")
fr(getvar "filletrad"))
(setq terr *error*)
(setq *error* SAD_SET)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq cl(car (entsel "\n Select the centre line of flexible : ")))
(setq fdia(getdist "\n Specify Diameter of the flexible : "))
(if (> 200 fdia)
(setvar "filletrad" 100)
(setvar "filletrad" 200))
(if (null (tblsearch "layer" "DUCTING"))
(command "_-layer" "_n" "DUCTING" "_c" "_magenta" "DUCTING" "")
(princ))
(if (= "LWPOLYLINE" (cdr (assoc 0 (entget cl))))
(command "_fillet" "_p" cl)
(princ))
(command "_change" cl "" "_p" "_la" "DUCTING" "")
(setq cin(cdr (assoc 10 (entget cl)))
c1(polar cin 1.570796 (/ fdia 2))
c2(polar cin 4.712387 (/ fdia 2))
c3(polar cin 0.0 20)
c4(polar c3 1.570796 50)
c5(polar c3 4.712387 50)
c6(polar c5 3.141592 40)
c7(polar c4 3.141592 40))
(command "_pline" c1 c4 c5 c2 c6 c7 "_c")
(setq fb(entlast))
(command "_change" fb"" "_p" "_la" "DUCTING" "_c" "7" "")
(setq bn (strcat "FLEX"(rtos fdia 2 0)))
(if (null(tblsearch "block" bn))
(progn(command "_-block" bn cin "_previous" "")
(command "_measure" cl "_b" bn "_y" "40"))
(progn (command "_measure" cl "_b" bn "_y" "40")
(command "_erase" fb"")))
(command "clayer" clyr)
(command "osmode" osm)
(command "filletrad" fr)
(command "cmdecho" ce)
(princ))
(defun SAD_SET (ERRORMSG)
(command nil nil nil)
(if (not (member ERRORMSG '("console break" "Function Cancelled")))
(princ (strcat "\nError:" ERRORMSG)))
(setvar "cmdecho" ce)
(setvar "osmode" osm)
(setvar "clayer" clyr)
(princ "\nAttention! An Error Has Occurred!")
(princ "\nProgram Now Restoring The User Settings.")
(terpri)
(setq *error* terr)
(princ)
)

[Иван Hayes]

Спасибо!

Заработало, но криво. Может еще где подчеркивания нужны? Буду пробовать...

Пишет:

Неизвестная команда "P". Для вызова справки нажмите F1. Неизвестная команда "LA". Для вызова справки нажмите F1. Неизвестная команда "DUCTING". Для вызова справки нажмите F1. Неизвестная команда "FD". Для вызова справки нажмите F1.

[TararykovDG]

Сообщение от Иван Hayes Заработало, но криво. Может еще где подчеркивания нужны? Буду пробовать...

Криво... Как именно криво. Там где нужны подчеркивания, они нужны не для того, чтобы лучше или хуже работало, а чтобы работало вообще

[Иван Hayes]

Работает криво вот так:

Команда: fd Made easy for you by Vivian Carvalho Select the centre line of flexible : Specify Diameter of the flexible : 16 Неизвестная команда "P". Для вызова справки нажмите F1. Неизвестная команда "LA". Для вызова справки нажмите F1. Неизвестная команда "DUCTING". Для вызова справки нажмите F1. Неизвестная команда "FD". Для вызова справки нажмите F1.

Это несмотря на то, что я добавил "_" перед DUCTING. Т.е. в коде выполняется лишь часть функций - нет выдавливания по сечениям, например.

[TararykovDG]

Сообщение от Иван Hayes Работает криво вот так: Это несмотря на то, что я добавил "_" перед DUCTING. Т.е. в коде выполняется лишь часть функций - нет выдавливания по сечениям, например.

Иван Hayes, как раз перед DUCTING подчеркивание не нужно, так это имя слоя (если конечно ты не хочешь так слой назвать _DUCTING)

Неизвестная команда "P". Для вызова справки нажмите F1. Неизвестная команда "LA". Для вызова справки нажмите F1. Неизвестная команда "DUCTING". Для вызова справки нажмите F1. Неизвестная команда "FD". Для вызова справки нажмите F1.

В выложенном тобой коде только в одной строке есть такая последовательность, а именно в строке (command "change" cl"" "p" "la" "DUCTING" ""), так вот в моем коде она исправлена на (command "_-layer" "_n" "DUCTING" "_c" "_magenta" "DUCTING" "")

[Иван Hayes]

Ну, дык я твой код-то и тестирую. Про _DUCTING я понял, что это слой. Однако ж пишет: "команда "DUCTING". Вот я и решил поставить подчеркивание на всяк пожарный - не помогло. В итоге, сам видишь, что гофру не строит и выдает ошибки

Еще раз проверил эту строчку в файле - все верно, как ты и написал: command "_-layer" "_n" "DUCTING" "_c" "_magenta" "DUCTING". Из-за чего же тогда ошибка?

[TararykovDG]

Иван Hayes, у меня все работает. В своем предыдущем посте я не много ошибся, вместо (command "change" cl"" "p" "la" "DUCTING" "") должно быть (command "_change" cl "" "_p" "_la" "DUCTING" ""), а command "_-layer" "_n" "DUCTING" "_c" "_magenta" "DUCTING" это в другом месте