[hotirium]

Всем привет!!!
Столкнулся с такой проблемой:
"LISP который работал в AutoCAD 2002 не хочет работать под 2006"
Помогите, пожалуйста, очень нужная программка или может кто-то знает как в ACADе проставлять координаты?

[sbi]

Акад 2006, русский?

[sasha_lif]

hotirium,работает даже в 2004 Eng, так что наверно у тебя действительно , русская версия. И соответственно, твой акад не понимает английские комманды

[hotirium]

AutoCAD 2006рус!
Насколько я понял, если поставить англ. версию то будет работать?

[atollon]

Что за лисп? Некоторые лиспы работают с атрибутами (списками данных) объектов Автокада, а их структура может меняться

[sasha_lif]

По идее да
Или ,как вариант, перед КАЖДОЙ коммнадой в твоем лиспе , поставить
._
Но это будет адский труд, и где - нибудь завтыкаешь

[Александр Ривилис]

Пробуй:

Код:

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

; Программа определения и надписи 
; строительных координат 1А+00;1Б+00.
; Версия 2, 07-18-1994 
; г.Киев ул.Артема,77 УКРГАЗПРОЕКТ 
; Борисенко Р.А. отд. генпланов


(defun myerr (msg)                                              
    (if (/= msg "Function cancelled")                             
      (princ (strcat "\n Error:" msg))                             
    )       
    (command "_.layer" "_Set" cly "")
    (setvar "blipmode" 1)
    (setq *error* olderr)                                       
    (princ)                                                     
)

 (defun st ()
   (if (/= (getvar "textstyle") "TXT")
   (command "_.style" "TXT" "TXT" "0" "0.75" "0" "_n" "_n"))
 )

 (defun ts ()
   (setq oht (getvar "textsize"))
   (setq lup (getvar "luprec"))
   (setq nht (getreal (strcat "\n Height text <"(rtos oht 2 lup)">:")))
   (if (= nht nil) (setq nht oht)) 
   (setvar "textsize" nht)
 )
             
 (defun dtr (ang)
      (* pi (/ ang 180.0))
 )                           

 (defun remab (ab)
   (setq ab (rem ab 100)
         ab (rtos ab 2 2)
         ab (atof ab)
   )
   (if (>= ab 0)
       (if (>= ab 10.0)(setq str (strcat "+"(rtos ab 2 2)))
                       (setq str (strcat "+0"(rtos ab 2 2)))
       )
       (if (<= ab (- 10.0))(setq str (strcat "-"(rtos (abs ab) 2 2)))
                           (setq str (strcat "-0"(rtos (abs ab) 2 2)))
       )
   )
 )
 
 (defun txtab ()
   (cond ((= angf 0)
          (setq sp (polar np2 (dtr 90) 0.75))
          (command "_.text" "_r" sp nht "0" stra)
          (setq sp (polar sp (dtr 270)(+ nht 1.5)))
          (command "_.text" "_r" sp nht "0" strb)
         )
         ((= angf pi)
          (setq sp (polar np2 (dtr 90) 0.75))
          (command "_.text" sp nht "0" stra)
          (setq sp (polar sp (dtr 270)(+ nht 1.5)))
          (command "_.text" sp nht "0" strb)
         )
         ((= angf (dtr 90))
          (setq sp (polar np2 pi 0.75))
          (command "_.text" "r" sp nht "90" stra)
          (setq sp (polar sp 0 (+ nht 1.5)))
          (command "_.text" "r" sp nht "90" strb)
         )
         ((= angf (dtr 270))
          (setq sp (polar np2 pi 0.75))
          (command "_.text" sp nht "90" stra)
          (setq sp (polar sp 0 (+ nht 1.5)))
          (command "_.text" sp nht "90" strb)
         )
   )
 )

(defun C:PKOORD ()
  (setq olderr *error*
        *error* myerr)
  (setvar "cmdecho" 0)
  (setq cly (getvar "clayer"))
        (if (or (null setkrd)(= setkrd ""))
            (setq setkrd "Koord")(setq setkrd setcly))
                  (initget 1)
                  (prompt "\n Enter name layer <" )
                  (princ (strcat setkrd ">: "))
                  (setq setcly (getstring)) 
                  (setq setcly (strcase setcly))      
                  (if (= setcly "")(setq setcly setkrd))
  (if (= setcly "Koord") 
      (command "_.layer" "_Make" "koord" "color" 10 "" "")
      (command "_.layer" "_Set" setcly "")
  )
  (st)(ts)
  (while (/= (setq pt (getpoint "\n Point:")) nil)
         (remab (cadr pt))
         (setq stra (fix (/ (cadr pt) 100)))
         (setq stra (strcat (rtos stra 2 0)(chr 128)str))
         (remab (car pt))
         (setq strb (fix (/ (car pt)  100)))    
         (setq strb (strcat (rtos strb 2 0)(chr 129)str))
         (if (>= (strlen stra)(strlen strb))
                 (setq lm (strlen stra))
                 (setq lm (strlen strb))
         )
         (setq dl (* lm nht 0.75))
         (setvar "orthomode" 0)
         (setq np1 (getpoint "\n To point:" pt))
         (setvar "orthomode" 1)
         (setq np2 (getpoint "\n Looking side:" np1))
         (setq angf (angle np1 np2))
         (setq np2 (polar np1 angf dl))
            (setvar "blipmode" 0)
         (if (/= (angle pt np1) angf)
                 (command "_.line" pt  np1 ""
                          "_.line" np1 np2 "")
                 (command "_.line" pt  np2 "")
         )
         (txtab)
            (setvar "blipmode" 1)
  )
         (command "_.layer" "_s" cly "")
               (setq *error* olderr )
         (princ)
 )

[hotirium]

ЗАРАБОТАЛО.
Александр Ривилис БОЛЬШОЕ СПАСИБО!!!
У меня к Вам еще одна просьба: "можно как-то поменять стиль шрифта, потому что у меня место координатных букв знаки "?" "

[Александр Ривилис]

Сообщение от hotirium У меня к Вам еще одна просьба: "можно как-то поменять стиль шрифта, потому что у меня место координатных букв знаки "?" "

Замени (chr 128) на "А" и (chr 129) на "Б"