[Zydrunas]

Добры день,

в acad'e 2015 не работает лисп (в версии 2013 всё работает нормально)
работа лиспа:
a) указываем базовую точку
в) указываем другую точку
лисп подсчитывает растояние между точками и вставляет block с значением уровня (atributt)....
в acad'e 2015 просто выводит "0.000"
я сам в Lisp'e нерозбираюсь, может поможете советами, што может быть не так?

Код:

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

 
;		AltUp
(defun C:AltUp ()
   (PlaceAlt "Alt-Up")
);defun AltUp

;		AltDn
(defun C:AltDn ()
   (PlaceAlt "Alt-Dn")
);defun AltDn

;		DefBasePoint
; Global-Variables: BasePoint, BaseAlt
(defun C:DefBasePoint ( / SysVarEcho sValue Message )
   (setq SysVarEcho (getvar "CMDECHO"))
   (setvar "CMDECHO" 0)
   (AcHalt SysVarEcho)
   (setq BasePoint (getpoint "\nNurodykite Bazini Taska: "))
   (setq Message "\nPakartokite arba paspauskite Esc: ")
   (if (= BasePoint nil)
      (while (= BasePoint nil)
         (setq BasePoint (getpoint Message))
      ); While
   ); If
   (setq Message "\nIveskite Bazine Altitude <0.000>: ")
   (setq sValue (strcase(AcInputStr "0.000" Message)))
   (setq BaseAlt (atof sValue))
   (setvar "CMDECHO" SysVarEcho)
   (princ) 
); defun BasPonit

;
;		PlaceAlt
;
(defun PlaceAlt (sBlockName / SysVarEcho iDrawingScale InsPoint sBlockAttr)
   (setq SysVarEcho (getvar "CMDECHO"))
   (setvar "CMDECHO" 0)
   (AcHalt SysVarEcho)
   (setq iDrawingScale (AcGetScale))
   (if (or (= BasePoint nil) (= BaseAlt nil)) (c:DefBasePoint))
   (setq sBlockName (strcase sBlockName))
   (setq InsPoint (getpoint BasePoint "\nNurodykite Sekanti Taska: "))
   (setq sBlockAttr (AcStr (CAltValue InsPoint) 2 3))
;   (princ sBlockAttr)
   (AcInBlock1 sBlockName InsPoint iDrawingScale "" 0 sBlockAttr)
   (setvar "CMDECHO" SysVarEcho)
   (princ)    
);defun PlaceAltS

;
;		CAltValue
;
(defun CAltValue (InsPoint / y0 y1 rDistY)
   (setq y0 (nth 1 BasePoint))
   (setq y1 (nth 1 InsPoint))
   (setq rDistY (+ (* (- y1 y0) 0.001) BaseAlt))
);defun CAltValue

P.S.

этот лисп аверно связан с другими лиспами и может проблема в других лиспов (но все остальные у меня работают)....


Спасибо

[Zydrunas]

Сообщение от VVA Zydrunas, Чтобы в 2016 Автокаде не наступить на эти же грабли замени ф-цию AcInBlock1 этой

Eщё раз спасибо Вам!
попробую этот код....

[PROFKOMOVES]

Всем доброго времени суток. Попробую оживить тему.

Есть LISP, который выводит список координат контуров, подписывает поворотные точки. Но он не работает в автокаде версии от 2015 года. В версии 2012 все нормально работает. Возможно кто то сможет подсказать?

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

Во-первых, это не лисп, а .NET-сборка. Возможно, написанная на VB.NET. Во-вторых, исходников проекта нет.

[PROFKOMOVES]

для отладки нужен специалист по VB? Исходный проект, это проект под который собиралась данная сборка? Поясните пожалуйста.

[Сергей812]

Сообщение от PROFKOMOVES Исходный проект, это проект под который собиралась данная сборка?

да. Переподключить библиотеки акада, и насколько вижу, там еще и офис прикручен - то и библиотеки офиса может быть. И изменить в свойствах проекта версию Framework .Net на 4.5. А если не скомпилируется в *.dll или не запуститься штатно в акаде - вот тогда уже и специалист понадобится)

[trir]

Переподключить библиотеки акада

Civil 3D через COM

Есть LISP, который выводит список координат контуров

Что за Елена?

[skkkk]

Offtop:

Сообщение от trir Что за Елена?

По-моему, больше на Марью Ивановную похожа

[PROFKOMOVES]

честно не знаю что там за мусор..

[Сергей812]

Offtop: ну если надстройка не лежит на сервере в папке с правами только для чтения для пользователей - хорошо, что там только Елена оказалась) На работоспособность программы это никак не влияет - если, конечно, Елена не была музой для создателя настройки