[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

_____________________________________________________________________________________________________________

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

[Donhuan]

Попробуй так:

Код:

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

(while 
  (if
    (not
      (and	
        ( > (angle p1 p3) (+ pi (angle p1 p2)))
        ( < (angle p1 p3) (+ pi pi (angle p1 p2)))
      )
    )
    (progn
      (princ "\n Неверная точка. Повторите ввод")
      (setq p3 (getpoint "\nТретья (Опции/Помощь):"))
    )
  )
)

P.S.
Не забывай про initget перед getpoint.

[wetr]

Donhuan, все так! Спасибо.
Но вот условие я задал изначально не совсем верно. Пытаясь скорректировать условие, нагородил забор. Вроде должно работать, а не работает.
В эту конструкцию

Код:

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

(while 
  (if
    (not
      (and	
        ( > (angle p1 p3) ( angle p1 p2))
        ( < (angle p1 p3) (+ pi (angle p1 p2)))
      )
    )
    (progn
      (princ "\n Неверная точка. Повторите ввод")
      (setq p3 (getpoint "\nТретья (Опции/Помощь):"))
    )
  )
)

Я добавил вместо

Код:

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

( > (angle p1 p3) ( angle p1 p2))

такой кусок

Код:

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

( >
	  (if
	    (and
	      (>  (angle p1 p2) (+ pi pi))
	      (< (angle p1 p3) (- (angle p1 p2) pi pi))
	    )
	    (+ (angle p1 p3) (* 4.0 pi))
	    (angle p1 p3)
	  )
	  (angle p1 p2))

Т.е. если угол 1_2 например 315, то угол 1_3 может меняться в пределах от 315 до 45 (против часовой). Но если угол 1_3 30 градусов, например, то предыдущий вариант лиспа его не пропустит. Для этого я и нагородил... Но... он меня не понимает
Получилось вот что

Код:

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

(while ; цикл, пока не введешь правильную координату
  (if
    (not
      (and	
        ( >
	  (if
	    (and
	      (>  (angle p1 p2) (+ pi pi))
	      (< (angle p1 p3) (- (angle p1 p2) pi pi))
	    )
	    (+ (angle p1 p3) (* 4.0 pi))
	    (angle p1 p3)
	  )
	  (angle p1 p2))
        ( < (angle p1 p3) (+ pi (angle p1 p2)))
      )
    )
    (progn
      (princ "\n Неверная точка. Повторите ввод")
      (setq p3 (getpoint "\nТретья <Выход>:"))
    )
  )
);_while

З.Ы. До initget надеюсь тоже дойдет

[ытя]

(> (angle p1 p2) (+ pi pi)) - всегда nil

[VVA]

wetr, Для нормализации угла ( угол в диапазоне 0 - 360 градусов) можешь использовать эту ф-цию

Код:

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

(defun NormalAngle (a)
;-------------------------------------------
;; Argument: angle in radians, any number including negative.
;; Returns: normalized angle in radians between zero and (* pi 2)
  (if (numberp a)
    (angtof (angtos a 0 14) 0))
)

Пример

Код:

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

(normalangle (* 4 pi)) ;_ Вернет 0,0

[kazax1]

Red Nova, это или дано, или не дано. Плохового ни в том, ни в другом нет. Могу посоветовать просмотреть : Н. Полещук. VisualLISP и секреты адаптации AutoCAD. - СПб. Очень доходчиво выложены основные принципы проектирования в автолиспе.

[wetr]

Спасибо всем за помощь!
Проблема решилась так

Код:

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

(setq 	p1 (getpoint "\nПервая точка <Выход>: ")
	        p2 (getpoint p1 " \nВторая <Выход>: ")
		p3 (getpoint "\nТретья <Выход>: ")
                flag T)
(while flag
   (setq ang13 (angle p1 p3)  ang12 (angle p1 p2))
   (setq beta (- ang13 ang12))
   (if (and (< beta 0) (< ang13 pi) (> ang12 pi)) (setq beta (+ beta pi pi)))
   (if 
    (not (and (> beta 0) (< beta pi)))
     (progn
      (princ "\nНеверная точка. Повторите ввод. \nТочки 1 2 3 должны задаваться против часовой стрелки!")
      (setq p3 (getpoint "\nТретья <Выход>:"))
     );progn
     (setq flag nil)
   );if
);while

благодаря VetalBY

[Makswell]

Надо получить дробную часть от числа и преобразовать её в целое число. Причём у дробной части надо взять только 1-е 4 цифры (т.е. просто усечь, а не округлить).
Вроде как надо так.

Код:

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

(defun test (arg)
  (fix (* (- arg (fix arg)) 10000))
)

Но в результате получается не совсем то:

_$ (test 567.1234) 1233 _$ (test 567.12340) 1233 _$ (test 567.12341) 1234 _$ (test 567.12349) 1234

В данном примере нужен однозначный ответ 1234.

[Donhuan]

Код:

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

(defun test (arg)
  (fix (distof (rtos (* (- arg (fix arg)) 10000))))
)

[Makswell]

Donhuan, так то оно так, но меня мучает вопрос, почему мой предыдущий код работает не корректно? Вроде там всё правильно. Глюк?

[Donhuan]

Могу ответить только дежурной фразой: такова особеность представлеия real в lisp.
Пример:

Код:

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

(defun f (x y /)
  (if (/= x y)
    (progn
      (princ (strcat "\n" (rtos (- 5.34 5) 2 x)))
      (f (1+ x) y)
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun

;(f 0 30)

выдает

Код:

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

0
0.3
0.34
0.34
0.34
0.34
0.34
0.34
0.34
0.34
0.34
0.34
0.34
0.34
0.34
0.34
0.3399999999999999
0.3399999999999998
0.3399999999999998
0.3399999999999998
0.3399999999999998
0.3399999999999998
0.3399999999999998
0.3399999999999998
0.3399999999999998
0.3399999999999998
0.3399999999999998
0.3399999999999998
0.3399999999999998
0.3399999999999998

Из моей практики: использовал не мной написанную функцию вычисления арксинуса:

Код:

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

((defun arcsin (x)
  (* 2.0
     (atan
       (/ x
	  (+ 1
	     (sqrt
	       (- 1
		  (* x x)
	       ) ;_ end of -
	     ) ;_ end of sqrt
	  ) ;_ end of +
       ) ;_ end of /
     ) ;_ end of atan
  ) ;_ end of *
)

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

Код:

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

(-1 (* x x))

, где x-синус, который не может быть больше единицы, иногда возвращало ничтожно малое, но отрицательное значение и функция (sqrt) его не восприимала. Пришлось написать в виде:

Код:

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

(abs (-1 (* x x)))

P.S. Может кто из проффесиональных программистов пояснит в чем дело.

В догонку: http://www.caduser.ru/cgi-bin/f1/board.cgi?t=21661WW

[Makswell]

Donhuan, спасибо за разъяснения. Значит всё таки глюк.

[Eximius]

Раз уж тут помогают, то я тоже хочу задать несколько вопросов, т.к. тоже считаю себя чайником.
Вопросы:
1)Что значит "тихий выход". Какая разница между тем написать функцию (princ) в конце или нет?
2)Как в лиспе нарисовать, например, параболу таким образом, чтоб она состояла не из отрезков линий а из целой линии.

Код:

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

(defun parab (/ x y shag j)
  (setq shag 0.1)
  (setq x -20)
  (setq massiv '())
  (while (<= x 20)
    (setq y (* x x))
    (setq massiv (cons (list x y) massiv))
    (setq x (+ x shag))
  );while
  (setq j 1)  
  (while (< j (1- (length massiv)))
    (command "._line" (nth (1- j) massiv) (nth j massiv) "")
    (setq j (1+ j))
  );while
);defun

Здесь massiv - список с координатами параболы, но как начертить параболу сплошной? Из одной полилинии.
Надеюсь вопрос ясен.

[Donhuan]

1. Все функции лиспа возвращают какое-либо значение, при выходе из функции в ком. строку возвращается последнее вычисленое значение ("мусор"). Функция (princ) не возвращает ничего, поэтому если ее вставить последней в тело функции, то в ком. строке ничего не появится.
2.

Код:

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

(defun parab (/ x y shag massiv old)
  (setq	shag 1
	x    -20
	old  (getvar "OSMODE")
  ) ;_ end of setq
  (setvar "OSMODE" 0)
  (while (<= x 20)
    (setq y	 (* x x)
	  massiv (cons (list x y) massiv)
	  x	 (+ x shag)
    ) ;_ end of setq
  ) ;_ end of while
  (command "._pline")
  (mapcar 'command massiv)
  (command "")
  (setvar "OSMODE" old)
) ;_ end of defun

[Eximius]

Спасибо, Donhuan, разобрался.

[acyxou]

Подскажите, пожалуйста, как мне провернуть следующее.
Составляю небольшую прогу для экспорта/импорта профилей .arg. Вот кусок кода:

Код:

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

(defun C:ExportProfile (/ username currentprofile server path fullpath)
(setq username (getvar "loginname")) ;извлечение имени пользователя чтоб назвать экспортируемый файл его именем 
(setq currentprofile (getvar "cprofile")) ;извлечение названия текущего профиля
(setq server (strcat "\\\\Server\\Proekts\\Autocad_Resources"))
(setq path (strcat "\\Profiles\\cadman.arg"))
(setq fullpath (strcat server path))
  ((lambda (currentprofile fullpath)(vla-exportprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))
       ) currentprofile fullpath)) currentprofile fullPath)
       )

Все классно работает, НО! Мне нужно чтоб профайл экспортировался с названием логина пользователя. А в моем коде имя жестко регламентировано. Я понимаю что нужно ввести еще одну переменную которая складывала бы текстовые строки переменной loginname и расширения ".arg". Как это сделать у вас и спрашиваю....

Всем спасибо! Сам родил

Код:

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

(defun C:ExportProfile (/ username currentprofile server path profilename fullpath)
;;;(setq username (getvar "loginname")) ;извлечение имени пользователя чтоб назвать экспортируемый файл его именем
(setq currentprofile (getvar "cprofile")) ;извлечение названия текущего профиля
(setq server (strcat "\\\\Server\\Proekts\\Autocad_Resources"))
(setq path (strcat "\\Profiles\\"))
(setq profilename (strcat (getvar "loginname") ".arg"))
(setq fullpath (strcat server path profile))
  ((lambda (currentprofile fullpath)(vla-exportprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))
       ) currentprofile fullpath)) currentprofile fullPath)
       )

По-крестьянски, но зато работает

[Red Nova]

Хочу кое что записать при помощи лиспа в таблицы но понятия не имею о том как с ними работать. Посоветуйте пожалуйста самые основные функции.

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

Red Nova, http://arcada.com.ua/forum/viewtopic.php?t=1095
http://arcada.com.ua/forum/viewtopic.php?t=945
http://arcada.com.ua/forum/viewtopic.php?t=698
http://arcada.com.ua/forum/viewtopic.php?t=440

[Red Nova]

Спасибо.
А как создать таблицу c определенным количеством колонок и строк и записать в определенные ячейки что либо?

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

Да так же, в общем-то Сначала добавляешь таблицу, задавая ей количество строк и столбцов, потом через vla-settext назначаешь указанной ячейке текст. Вроде ничего особо сложного...

[ShaggyDoc]

Вроде ничего особо сложного...

Вроде. Объектная модель достаточно простая.

Но масса нюансов, связанных с оформлением - точные размеры, вес линий, объединение ячеек шапки. Например, vla-settext может испортить оформление ячейки. И многое надо самостоятельно изобретать - где и как хранить описание таблицы, откуда брать тексты и прочее.