| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Lisp code

Lisp code

Ответ
Перейти к новому Перейти к новому  
Поиск в этой теме
Непрочитано 07.07.2007, 23:03 #1
Lisp code
Holon
 
CNC
 
Israel
Регистрация: 07.07.2007
Сообщений: 302
Problema programma otrabatuvaetsja odin raz, a pri povtornom zapuske funkcii (test) chertej iskajaetsja, esli vui'ti iz ACada i zapustit' po novoi' vse normal'no cod prilagaetsja:
Код:
[Выделить все] 
 (DEFUN TEST ()				
  (vl-load-com)
  (SETVAR "CMDECHO" 0)			
  (SETVAR "BLIPMODE" 0)			
  (SETVAR "DIMASZ" 40)			;Arrow size
  (SETVAR "DIMCLRD" 3)			;(Green)(BYBLOCK)  Dimension line and leader color
  (SETVAR "DIMCLRE" 3)			;(Green)(BYBLOCK)  Extension line color
  (SETVAR "DIMCLRT" 7)			;(white)  Dimension text color
  (SETVAR "DIMDLI" 0)			;Dimension line spacing
  (SETVAR "DIMEXE" 20)			;Extension above dimension line
  (SETVAR "DIMEXO" 30)			;Extension line origin offset
  (SETVAR "DIMGAP" 20)			;Gap from dimension line to text
  (SETVAR "DIMSOXD" 0)			;(Off) Suppress outside dimension lines
  (SETVAR "DIMTAD" 1)			;Place text above the dimension line
  (SETVAR "DIMTIH" 0)			;(Off)Text inside extensions is horizontal
  (SETVAR "DIMTSZ" 0)			;Tick size
  ;;(SETVAR "DIMTXSTY" "i")		;Text style
  (SETVAR "DIMTXT" 40)			;Text height
  (COMMAND "LIMITS" "0,0" "297,210" "ZOOM" "A")
  (COMMAND "_erase" "all" "")
  (TEXTSCR)				
  (SETQ	BT  (LIST 0 0)
	L1  400				
	H   2100			
	L2  800			
	DL  400			
	PO  400			
	HF  35			
	LR1 400			
	HR  2100		
	LR2 800			
	DLR 400				
	POR 400			
	BD  (POLAR BT PI (+ 200 DL))	
	T1  (POLAR BT (* 2 PI) L1)	
	T2  (POLAR T1 (/ PI 2) (- H 283)) 
	T3  (POLAR T2 (* 2 PI) 80)
	T4  (POLAR T3 (/ PI 2) 80)
	T5  (POLAR T4 (* 2 PI) (- PO 80))
	T6  (POLAR T5 (/ PI 2) 203)
	BTR (POLAR (polar t6 (* pi 1.5) HR)
		   (* 2 pi)
		   (+ (+ POR 200) LR1)
	    )
	T7  (POLAR T6 PI L2)	
	TR1 (POLAR BTR PI LR1)
	TR2 (POLAR TR1 (/ PI 2) (- H 283))
	TR3 (POLAR TR2 PI 80)
	TR4 (POLAR TR3 (/ PI 2) 80)
	TR5 (POLAR TR4 PI (- POR 80))
	TR6 (POLAR TR5 (/ PI 2) 203)
	TR7 (POLAR TR6 (* 2 PI) LR2)
	BDR (POLAR BTR (* 2 PI) 200)
	DR1 (POLAR BDR (* 2 PI) DLR)
	DR2 (POLAR DR1 (/ PI 2) (- HR 10))
	DR3 (POLAR DR2 PI DLR)
	D1  (POLAR BD (* 2 PI) DL)
	D2  (POLAR D1 (/ PI 2) (- H 10))
	D3  (POLAR D2 PI DL)
	HO  (POLAR D3 (* PI 1.5) 130)	
	H1  (POLAR HO (* 2 PI) 58)	
	H2  (POLAR D2 (* PI 1.5) 130)
	H3  (POLAR H2 pi 45)		
	H4  (POLAR D1 (/ PI 2) 1000)
	H5  (POLAR H4 pi 35)		
	T8  (POLAR T6 (* PI 1.5) 101.5)
	TR8 (POLAR TR6 (* PI 1.5) 101.5)
	T9  (POLAR T8 PI HF)		
  )

  (OR (IF (= HF 25)
	(setq TR9 (POLAR TR8 (* 2 PI) 35))
      )
  )
  (IF (= HF 35)
    (SETQ TR9 (POLAR TR8 (* 2 PI) 25))
  )

  (SETQ

    T10
	 (POLAR T9 (* PI 1.5) 8.5)
    T11
	 (POLAR T10 PI 45)	
    T12
	 (POLAR T11 (* PI 1.5) 36)
    T13
	 (POLAR T12 PI (- (+ DL PO) 135))
    T14
	 (POLAR T13 (/ PI 2) 36)
    U1
	 (POLAR T11 (* PI 1.5) 18)	
    U2
	 (POLAR T14 (* PI 1.5) 18)	

    T15	 (POLAR BT (* 2 PI) 25)		
    T16	 (POLAR T7 (* 2 PI) 25)	
    T17	 (POLAR T7 (* PI 1.5) 200)	
    T18	 (POLAR T6 (* PI 1.5) 200)
    T20	 (POLAR BT (/ PI 2) 200)	
    T21	 (POLAR T1 (/ PI 2) 200)	


    TR10 (POLAR TR9 (* PI 1.5) 8.5)
    TR11 (POLAR TR10 (* 2 PI) 45)
    TR12 (POLAR TR11 (* PI 1.5) 36)
    TR13 (POLAR TR12 (* 2 PI) (- (+ DLR POR) 135))
    TR14 (POLAR TR13 (/ PI 2) 36)

    UR1	 (POLAR TR11 (* PI 1.5) 18)
    UR2	 (POLAR TR14 (* PI 1.5) 18)

    HRO	 (POLAR DR3 (* PI 1.5) 130)	
    HR1	 (POLAR HRO (* 2 PI) 45)	
    HR2	 (POLAR DR2 (* PI 1.5) 130)
    HR3	 (POLAR HR2 pi 58)		
    HR4	 (POLAR BDR (/ PI 2) 1000)
    HR5	 (POLAR HR4 (* 2 PI) 35)	


    TR15 (POLAR BTR PI 25)		
    TR16 (POLAR TR7 PI 25)		
    TR17 (POLAR TR7 (* PI 1.5) 200)	
    TR18 (POLAR TR6 (* PI 1.5) 200)	
    TR20 (POLAR BTR (/ PI 2) 200)	
    TR21 (POLAR TR1 (/ PI 2) 200)	
  )
  (GRAPHSCR)
  (VL-CMDF "_-LAYER" "_m" "Body" "" "_l" "continuous" "" "c" "w" "")
  (VL-CMDF "PLINE" BT T1 T2 "_a" "_ce" T3 T2 T4	"_l" T4	T5 T6 T7 BT "")
  (VL-CMDF "PLINE"	 BTR	TR1    TR2    "_a"   "_ce"  TR3
	   TR2	  TR4	 "_l"	TR4    TR5    TR6    TR7    BTR
	   ""
	  )
  (VL-CMDF "PLINE" BD D1 D2 D3 "C")	
  (VL-CMDF "PLINE" BDR DR1 DR2 DR3 "C")

  (VL-CMDF "CIRCLE" H1 13)		
  (VL-CMDF "CIRCLE" H3 13)		
  (VL-CMDF "CIRCLE" H5 6)	

  (VL-CMDF "CIRCLE" HR1 13)		
  (VL-CMDF "CIRCLE" HR3 13)	
  (VL-CMDF "CIRCLE" HR5 6)	

  (VL-CMDF "CIRCLE" T9 8)
  (VL-CMDF "CIRCLE" TR9 8)


  (VL-CMDF "LINE" T11 T14 "")
  (VL-CMDF "arc" "ce" U1 T12 T11 "")
  (VL-CMDF "Line" T12 T13 "")
  (VL-CMDF "arc" "ce" U2 T14 T13 "")

  (VL-CMDF "LINE" TR11 TR14 "")
  (VL-CMDF "arc" "ce" UR1 TR11 TR12 "")
  (VL-CMDF "Line" TR12 TR13 "")
  (VL-CMDF "arc" "ce" UR2 TR13 TR14 "")

  (VL-CMDF "LINE" T16 T15 "")
  (SETQ L1 (entlast))
  (VL-CMDF "LINE" T17 T18 "")
  (SETQ L2 (entlast))
  (VL-CMDF "LINE" T21 T20 "")
  (SETQ L3 (entlast))

  (SETQ W1 (inters T15 T16 T17 T18))
  (SETQ W2 (inters T15 T16 T20 T21))
  (SETQ W3 (inters TR15 TR16 TR17 TR18))
  (SETQ W4 (inters TR15 TR16 TR20 TR21))

  (VL-CMDF "LINE" TR16 TR15 "")
  (SETQ L4 (entlast))
  (VL-CMDF "LINE" TR17 TR18 "")
  (SETQ L5 (entlast))
  (VL-CMDF "LINE" TR21 TR20 "")
  (SETQ L6 (entlast))

  (VL-CMDF "CIRCLE" W1 8)
  (VL-CMDF "CIRCLE" W2 8)
  (VL-CMDF "CIRCLE" W3 8)
  (VL-CMDF "CIRCLE" W4 8)

  (VL-CMDF "erase" L1 L2 L3 L4 L5 L6 "")

  (VL-CMDF "_-LAYER" "_m" "Dim"	"" "_l"	"dimention" "" "c" "g" "")
  (VL-CMDF "_dimlinear" BT T7 "@ -100,0")
  (VL-CMDF "_dimlinear" BT T1 "@ 0,-100")
  (VL-CMDF "_dimlinear" T6 T7 "@ 0,100")
  (VL-CMDF "_dimlinear" BD D3 "@ -100,0")
  (VL-CMDF "_dimlinear" H4 H5 "@ 0,150") 
  (VL-CMDF "_dimlinear" T8 T9 "@ 0,-200")
  (VL-CMDF "_dimlinear" D1 BD "@ 0,-100")

  (VL-CMDF "_dimlinear" BTR TR7 "@ 100,0")
  (VL-CMDF "_dimlinear" BTR TR1 "@ 0,-100")
  (VL-CMDF "_dimlinear" TR6 TR7 "@ 0,100")
  (VL-CMDF "_dimlinear" DR1 DR2 "@ 100,0")
  (VL-CMDF "_dimlinear" HR4 HR5 "@ 0,150") 
  (VL-CMDF "_dimlinear" TR8 TR9 "@ 0,-200")
  (VL-CMDF "_dimlinear" BDR DR1 "@ 0,-100")

  (COMMAND "ZOOM" "A" "")
  (princ)

)
V chem problema?
Просмотров: 2545
 
Непрочитано 07.07.2007, 23:50
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,832

Попробуй все используемые переменные перевести в локальные (я код не правил и не анализировал):
Код:
[Выделить все] 
(defun test (/    bt   l1   h    l2   dl   po   hf   lr1  hr   lr2  dlr  por
             bd   t1   t2   t3   t4   t5   t6   btr  t7   tr1  tr2  tr3  tr4
             tr5  tr6  tr7  bdr  dr1  dr2  dr3  d1   d2   d3   ho   h1   h2
             h3   h4   h5   t8   tr8  t9   t10  t11  t12  t13  t14  u1   u2
             t15  t16  t17  t18  t20  t21  tr10 tr11 tr12 tr13 tr14 ur1  ur2
             hro  hr1  hr2  hr3  hr4  hr5  tr15 tr16 tr17 tr18 tr20 tr21 l1
             l2   l3   w1   w2   w3   w4   l4   l5   l6
             )
  (vl-load-com)
  (setvar "CMDECHO" 0)
  (setvar "BLIPMODE" 0)
  (setvar "DIMASZ" 40) ;Arrow size
  (setvar "DIMCLRD" 3) ;(Green)(BYBLOCK)  Dimension line and leader color
  (setvar "DIMCLRE" 3) ;(Green)(BYBLOCK)  Extension line color
  (setvar "DIMCLRT" 7) ;(white)  Dimension text color
  (setvar "DIMDLI" 0) ;Dimension line spacing
  (setvar "DIMEXE" 20) ;Extension above dimension line
  (setvar "DIMEXO" 30) ;Extension line origin offset
  (setvar "DIMGAP" 20) ;Gap from dimension line to text
  (setvar "DIMSOXD" 0) ;(Off) Suppress outside dimension lines
  (setvar "DIMTAD" 1) ;Place text above the dimension line
  (setvar "DIMTIH" 0) ;(Off)Text inside extensions is horizontal
  (setvar "DIMTSZ" 0) ;Tick size
  ;;(SETVAR "DIMTXSTY" "i")      ;Text style
  (setvar "DIMTXT" 40) ;Text height
  (command "LIMITS" "0,0" "297,210" "ZOOM" "A")
  (command "_erase" "all" "")
  (textscr)
  (setq bt  (list 0 0)
        l1  400
        h   2100
        l2  800
        dl  400
        po  400
        hf  35
        lr1 400
        hr  2100
        lr2 800
        dlr 400
        por 400
        bd  (polar bt pi (+ 200 dl))
        t1  (polar bt (* 2 pi) l1)
        t2  (polar t1 (/ pi 2) (- h 283))
        t3  (polar t2 (* 2 pi) 80)
        t4  (polar t3 (/ pi 2) 80)
        t5  (polar t4 (* 2 pi) (- po 80))
        t6  (polar t5 (/ pi 2) 203)
        btr (polar (polar t6 (* pi 1.5) hr)
                   (* 2 pi)
                   (+ (+ por 200) lr1)
                   ) ;_ end of POLAR
        t7  (polar t6 pi l2)
        tr1 (polar btr pi lr1)
        tr2 (polar tr1 (/ pi 2) (- h 283))
        tr3 (polar tr2 pi 80)
        tr4 (polar tr3 (/ pi 2) 80)
        tr5 (polar tr4 pi (- por 80))
        tr6 (polar tr5 (/ pi 2) 203)
        tr7 (polar tr6 (* 2 pi) lr2)
        bdr (polar btr (* 2 pi) 200)
        dr1 (polar bdr (* 2 pi) dlr)
        dr2 (polar dr1 (/ pi 2) (- hr 10))
        dr3 (polar dr2 pi dlr)
        d1  (polar bd (* 2 pi) dl)
        d2  (polar d1 (/ pi 2) (- h 10))
        d3  (polar d2 pi dl)
        ho  (polar d3 (* pi 1.5) 130)
        h1  (polar ho (* 2 pi) 58)
        h2  (polar d2 (* pi 1.5) 130)
        h3  (polar h2 pi 45)
        h4  (polar d1 (/ pi 2) 1000)
        h5  (polar h4 pi 35)
        t8  (polar t6 (* pi 1.5) 101.5)
        tr8 (polar tr6 (* pi 1.5) 101.5)
        t9  (polar t8 pi hf)
        ) ;_ end of SETQ

  (or (if (= hf 25)
        (setq tr9 (polar tr8 (* 2 pi) 35))
        ) ;_ end of IF
      ) ;_ end of OR
  (if (= hf 35)
    (setq tr9 (polar tr8 (* 2 pi) 25))
    ) ;_ end of IF

  (setq t10  (polar t9 (* pi 1.5) 8.5)
        t11  (polar t10 pi 45)
        t12  (polar t11 (* pi 1.5) 36)
        t13  (polar t12 pi (- (+ dl po) 135))
        t14  (polar t13 (/ pi 2) 36)
        u1   (polar t11 (* pi 1.5) 18)
        u2   (polar t14 (* pi 1.5) 18)
        t15  (polar bt (* 2 pi) 25)
        t16  (polar t7 (* 2 pi) 25)
        t17  (polar t7 (* pi 1.5) 200)
        t18  (polar t6 (* pi 1.5) 200)
        t20  (polar bt (/ pi 2) 200)
        t21  (polar t1 (/ pi 2) 200)
        tr10 (polar tr9 (* pi 1.5) 8.5)
        tr11 (polar tr10 (* 2 pi) 45)
        tr12 (polar tr11 (* pi 1.5) 36)
        tr13 (polar tr12 (* 2 pi) (- (+ dlr por) 135))
        tr14 (polar tr13 (/ pi 2) 36)
        ur1  (polar tr11 (* pi 1.5) 18)
        ur2  (polar tr14 (* pi 1.5) 18)
        hro  (polar dr3 (* pi 1.5) 130)
        hr1  (polar hro (* 2 pi) 45)
        hr2  (polar dr2 (* pi 1.5) 130)
        hr3  (polar hr2 pi 58)
        hr4  (polar bdr (/ pi 2) 1000)
        hr5  (polar hr4 (* 2 pi) 35)
        tr15 (polar btr pi 25)
        tr16 (polar tr7 pi 25)
        tr17 (polar tr7 (* pi 1.5) 200)
        tr18 (polar tr6 (* pi 1.5) 200)
        tr20 (polar btr (/ pi 2) 200)
        tr21 (polar tr1 (/ pi 2) 200)
        ) ;_ end of setq
  (graphscr)
  (vl-cmdf "_-LAYER" "_m" "Body" "" "_l" "continuous" "" "c" "w" "")
  (vl-cmdf "PLINE" bt t1 t2 "_a" "_ce" t3 t2 t4 "_l" t4 t5 t6 t7 bt "")
  (vl-cmdf "PLINE" btr tr1 tr2 "_a" "_ce" tr3 tr2 tr4 "_l" tr4 tr5 tr6 tr7 btr
           "") ;_ end of vl-cmdf
  (vl-cmdf "PLINE" bd d1 d2 d3 "C")
  (vl-cmdf "PLINE" bdr dr1 dr2 dr3 "C")

  (vl-cmdf "CIRCLE" h1 13)
  (vl-cmdf "CIRCLE" h3 13)
  (vl-cmdf "CIRCLE" h5 6)

  (vl-cmdf "CIRCLE" hr1 13)
  (vl-cmdf "CIRCLE" hr3 13)
  (vl-cmdf "CIRCLE" hr5 6)

  (vl-cmdf "CIRCLE" t9 8)
  (vl-cmdf "CIRCLE" tr9 8)


  (vl-cmdf "LINE" t11 t14 "")
  (vl-cmdf "arc" "ce" u1 t12 t11 "")
  (vl-cmdf "Line" t12 t13 "")
  (vl-cmdf "arc" "ce" u2 t14 t13 "")

  (vl-cmdf "LINE" tr11 tr14 "")
  (vl-cmdf "arc" "ce" ur1 tr11 tr12 "")
  (vl-cmdf "Line" tr12 tr13 "")
  (vl-cmdf "arc" "ce" ur2 tr13 tr14 "")

  (vl-cmdf "LINE" t16 t15 "")
  (setq l1 (entlast))
  (vl-cmdf "LINE" t17 t18 "")
  (setq l2 (entlast))
  (vl-cmdf "LINE" t21 t20 "")
  (setq l3 (entlast))

  (setq w1 (inters t15 t16 t17 t18))
  (setq w2 (inters t15 t16 t20 t21))
  (setq w3 (inters tr15 tr16 tr17 tr18))
  (setq w4 (inters tr15 tr16 tr20 tr21))

  (vl-cmdf "LINE" tr16 tr15 "")
  (setq l4 (entlast))
  (vl-cmdf "LINE" tr17 tr18 "")
  (setq l5 (entlast))
  (vl-cmdf "LINE" tr21 tr20 "")
  (setq l6 (entlast))

  (vl-cmdf "CIRCLE" w1 8)
  (vl-cmdf "CIRCLE" w2 8)
  (vl-cmdf "CIRCLE" w3 8)
  (vl-cmdf "CIRCLE" w4 8)

  (vl-cmdf "erase" l1 l2 l3 l4 l5 l6 "")

  (vl-cmdf "_-LAYER" "_m" "Dim" "" "_l" "dimention" "" "c" "g" "")
  (vl-cmdf "_dimlinear" bt t7 "@ -100,0")
  (vl-cmdf "_dimlinear" bt t1 "@ 0,-100")
  (vl-cmdf "_dimlinear" t6 t7 "@ 0,100")
  (vl-cmdf "_dimlinear" bd d3 "@ -100,0")
  (vl-cmdf "_dimlinear" h4 h5 "@ 0,150")
  (vl-cmdf "_dimlinear" t8 t9 "@ 0,-200")
  (vl-cmdf "_dimlinear" d1 bd "@ 0,-100")

  (vl-cmdf "_dimlinear" btr tr7 "@ 100,0")
  (vl-cmdf "_dimlinear" btr tr1 "@ 0,-100")
  (vl-cmdf "_dimlinear" tr6 tr7 "@ 0,100")
  (vl-cmdf "_dimlinear" dr1 dr2 "@ 100,0")
  (vl-cmdf "_dimlinear" hr4 hr5 "@ 0,150")
  (vl-cmdf "_dimlinear" tr8 tr9 "@ 0,-200")
  (vl-cmdf "_dimlinear" bdr dr1 "@ 0,-100")

  (command "ZOOM" "A" "")
  (princ)

  ) ;_ end of DEFUN
И за компанию - перед использованием я бы рекомендовал обнулить osmode, а потом вернуть ее обратно.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 08.07.2007, 01:17
#3
AY

webcad.pro
 
Регистрация: 06.01.2005
Московская обл.
Сообщений: 501

Код:
[Выделить все] 
(COMMAND "_erase" "all" "")
-- актуально; надо взять на вооружение...
AY вне форума  
 
Автор темы   Непрочитано 08.07.2007, 08:47
#4
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302

Vnesenie lokal'nuh peremennuh v funkciju nepomoglo,
problema ostaetsja aktual'noi'
Holon вне форума  
 
Непрочитано 08.07.2007, 10:42
#5
CB

Конструирование в области нефтеразведки
 
Регистрация: 10.02.2006
Гомель
Сообщений: 321

Код:
[Выделить все] 
(defun test (/    bt   l1   h    l2   dl   po   hf   lr1  hr   lr2  dlr  por 
             bd   t1   t2   t3   t4   t5   t6   btr  t7   tr1  tr2  tr3  tr4 
             tr5  tr6  tr7  bdr  dr1  dr2  dr3  d1   d2   d3   ho   h1   h2 
             h3   h4   h5   t8   tr8  t9   t10  t11  t12  t13  t14  u1   u2 
             t15  t16  t17  t18  t20  t21  tr10 tr11 tr12 tr13 tr14 ur1  ur2 
             hro  hr1  hr2  hr3  hr4  hr5  tr15 tr16 tr17 tr18 tr20 tr21 l1 
             l2   l3   w1   w2   w3   w4   l4   l5   l6 list_sys_var sys_var
             ) 
  (vl-load-com)
(setq list_sys_var '("clayer" "osmode" "CMDECHO" "BLIPMODE" "DIMASZ" "DIMCLRD"
		      "DIMCLRE" "DIMCLRT" "DIMDLI" "DIMEXE" "DIMEXO" "DIMGAP" "DIMSOXD"
		      "DIMTAD"  "DIMTIH" "DIMTSZ" "DIMTXT"))  
(setq sys_var (mapcar 'getvar list_sys_var))
 
  (setvar "osmode" 0)
  (SETVAR "CMDECHO" 0)          
  (SETVAR "BLIPMODE" 0)          
  (SETVAR "DIMASZ" 40)         ;Arrow size 
  (SETVAR "DIMCLRD" 3)         ;(Green)(BYBLOCK)  Dimension line and leader color 
  (SETVAR "DIMCLRE" 3)         ;(Green)(BYBLOCK)  Extension line color 
  (SETVAR "DIMCLRT" 7)         ;(white)  Dimension text color 
  (SETVAR "DIMDLI" 0)          ;Dimension line spacing 
  (SETVAR "DIMEXE" 20)         ;Extension above dimension line 
  (SETVAR "DIMEXO" 30)         ;Extension line origin offset 
  (SETVAR "DIMGAP" 20)         ;Gap from dimension line to text 
  (SETVAR "DIMSOXD" 0)         ;(Off) Suppress outside dimension lines 
  (SETVAR "DIMTAD" 1)          ;Place text above the dimension line 
  (SETVAR "DIMTIH" 0)          ;(Off)Text inside extensions is horizontal 
  (SETVAR "DIMTSZ" 0)          ;Tick size 
  ;;(SETVAR "DIMTXSTY" "i")      ;Text style 
  (SETVAR "DIMTXT" 40)         ;Text height 
  (COMMAND "LIMITS" "0,0" "297,210" "ZOOM" "A") 
  (COMMAND "_erase" "all" "") 
;;;  (TEXTSCR)             
  (SETQ   BT  (LIST 0 0) 
   L1  400             
   H   2100          
   L2  800          
   DL  400          
   PO  400          
   HF  35          
   LR1 400          
   HR  2100       
   LR2 800          
   DLR 400             
   POR 400          
   BD  (POLAR BT PI (+ 200 DL))    
   T1  (POLAR BT (* 2 PI) L1)    
   T2  (POLAR T1 (/ PI 2) (- H 283)) 
   T3  (POLAR T2 (* 2 PI) 80) 
   T4  (POLAR T3 (/ PI 2) 80) 
   T5  (POLAR T4 (* 2 PI) (- PO 80)) 
   T6  (POLAR T5 (/ PI 2) 203) 
   BTR (POLAR (polar t6 (* pi 1.5) HR) 
         (* 2 pi) 
         (+ (+ POR 200) LR1) 
       ) 
   T7  (POLAR T6 PI L2)    
   TR1 (POLAR BTR PI LR1) 
   TR2 (POLAR TR1 (/ PI 2) (- H 283)) 
   TR3 (POLAR TR2 PI 80) 
   TR4 (POLAR TR3 (/ PI 2) 80) 
   TR5 (POLAR TR4 PI (- POR 80)) 
   TR6 (POLAR TR5 (/ PI 2) 203) 
   TR7 (POLAR TR6 (* 2 PI) LR2) 
   BDR (POLAR BTR (* 2 PI) 200) 
   DR1 (POLAR BDR (* 2 PI) DLR) 
   DR2 (POLAR DR1 (/ PI 2) (- HR 10)) 
   DR3 (POLAR DR2 PI DLR) 
   D1  (POLAR BD (* 2 PI) DL) 
   D2  (POLAR D1 (/ PI 2) (- H 10)) 
   D3  (POLAR D2 PI DL) 
   HO  (POLAR D3 (* PI 1.5) 130)    
   H1  (POLAR HO (* 2 PI) 58)    
   H2  (POLAR D2 (* PI 1.5) 130) 
   H3  (POLAR H2 pi 45)       
   H4  (POLAR D1 (/ PI 2) 1000) 
   H5  (POLAR H4 pi 35)       
   T8  (POLAR T6 (* PI 1.5) 101.5) 
   TR8 (POLAR TR6 (* PI 1.5) 101.5) 
   T9  (POLAR T8 PI HF)       
  ) 

  (OR (IF (= HF 25) 
   (setq TR9 (POLAR TR8 (* 2 PI) 35)) 
      ) 
  ) 
  (IF (= HF 35) 
    (SETQ TR9 (POLAR TR8 (* 2 PI) 25)) 
  ) 

  (SETQ 
    T10 
    (POLAR T9 (* PI 1.5) 8.5) 
    T11 
    (POLAR T10 PI 45)    
    T12 
    (POLAR T11 (* PI 1.5) 36) 
    T13 
    (POLAR T12 PI (- (+ DL PO) 135)) 
    T14 
    (POLAR T13 (/ PI 2) 36) 
    U1 
    (POLAR T11 (* PI 1.5) 18)    
    U2 
    (POLAR T14 (* PI 1.5) 18)    

    T15    (POLAR BT (* 2 PI) 25)       
    T16    (POLAR T7 (* 2 PI) 25)    
    T17    (POLAR T7 (* PI 1.5) 200)    
    T18    (POLAR T6 (* PI 1.5) 200) 
    T20    (POLAR BT (/ PI 2) 200)    
    T21    (POLAR T1 (/ PI 2) 200)    


    TR10 (POLAR TR9 (* PI 1.5) 8.5) 
    TR11 (POLAR TR10 (* 2 PI) 45) 
    TR12 (POLAR TR11 (* PI 1.5) 36) 
    TR13 (POLAR TR12 (* 2 PI) (- (+ DLR POR) 135)) 
    TR14 (POLAR TR13 (/ PI 2) 36) 

    UR1    (POLAR TR11 (* PI 1.5) 18) 
    UR2    (POLAR TR14 (* PI 1.5) 18) 

    HRO    (POLAR DR3 (* PI 1.5) 130)    
    HR1    (POLAR HRO (* 2 PI) 45)    
    HR2    (POLAR DR2 (* PI 1.5) 130) 
    HR3    (POLAR HR2 pi 58)       
    HR4    (POLAR BDR (/ PI 2) 1000) 
    HR5    (POLAR HR4 (* 2 PI) 35)    


    TR15 (POLAR BTR PI 25)       
    TR16 (POLAR TR7 PI 25)       
    TR17 (POLAR TR7 (* PI 1.5) 200)    
    TR18 (POLAR TR6 (* PI 1.5) 200)    
    TR20 (POLAR BTR (/ PI 2) 200)    
    TR21 (POLAR TR1 (/ PI 2) 200)    
  )
;;;  (GRAPHSCR) 
  (VL-CMDF "_-LAYER" "_m" "Body" "_l" "CONTINUOUS" "" "_c" "_w" "" "");;;?????????
  (VL-CMDF "PLINE" BT T1 T2 "_a" T4 "_l" T4   T5 T6 T7 BT "");;;??????????
  (VL-CMDF "PLINE" BTR TR1 TR2 "_a" TR4 "_l" TR4 TR5 TR6 TR7 BTR "");;;???????
  (VL-CMDF "PLINE" BD D1 D2 D3 "C")    
  (VL-CMDF "PLINE" BDR DR1 DR2 DR3 "C") 

  (VL-CMDF "CIRCLE" H1 13)       
  (VL-CMDF "CIRCLE" H3 13)       
  (VL-CMDF "CIRCLE" H5 6)    

  (VL-CMDF "CIRCLE" HR1 13)       
  (VL-CMDF "CIRCLE" HR3 13)    
  (VL-CMDF "CIRCLE" HR5 6)    

  (VL-CMDF "CIRCLE" T9 8) 
  (VL-CMDF "CIRCLE" TR9 8) 


  (VL-CMDF "LINE" T11 T14 "") 
  (VL-CMDF "arc" "ce" U1 T12 T11);;;?????
  (VL-CMDF "Line" T12 T13 "") 
  (VL-CMDF "arc" "ce" U2 T14 T13);;;?????

  (VL-CMDF "LINE" TR11 TR14 "") 
  (VL-CMDF "arc" "ce" UR1 TR11 TR12);;;????? 
  (VL-CMDF "Line" TR12 TR13 "") 
  (VL-CMDF "arc" "ce" UR2 TR13 TR14);;;????? 

  (VL-CMDF "LINE" T16 T15 "") 
  (SETQ L1 (entlast)) 
  (VL-CMDF "LINE" T17 T18 "") 
  (SETQ L2 (entlast)) 
  (VL-CMDF "LINE" T21 T20 "") 
  (SETQ L3 (entlast)) 

  (SETQ W1 (inters T15 T16 T17 T18)) 
  (SETQ W2 (inters T15 T16 T20 T21)) 
  (SETQ W3 (inters TR15 TR16 TR17 TR18)) 
  (SETQ W4 (inters TR15 TR16 TR20 TR21)) 

  (VL-CMDF "LINE" TR16 TR15 "") 
  (SETQ L4 (entlast)) 
  (VL-CMDF "LINE" TR17 TR18 "") 
  (SETQ L5 (entlast)) 
  (VL-CMDF "LINE" TR21 TR20 "") 
  (SETQ L6 (entlast)) 

  (VL-CMDF "CIRCLE" W1 8) 
  (VL-CMDF "CIRCLE" W2 8) 
  (VL-CMDF "CIRCLE" W3 8) 
  (VL-CMDF "CIRCLE" W4 8) 

  (VL-CMDF "erase" L1 L2 L3 L4 L5 L6 "") 
  (VL-CMDF "_-LAYER" "_m" "Dim"  "_l" "CONTINUOUS" "" "_c" "_g" "" "");;;?????????
  (VL-CMDF "_dimlinear" BT T7 "@ -100,0") 
  (VL-CMDF "_dimlinear" BT T1 "@ 0,-100") 
  (VL-CMDF "_dimlinear" T6 T7 "@ 0,100") 
  (VL-CMDF "_dimlinear" BD D3 "@ -100,0") 
  (VL-CMDF "_dimlinear" H4 H5 "@ 0,150") 
  (VL-CMDF "_dimlinear" T8 T9 "@ 0,-200") 
  (VL-CMDF "_dimlinear" D1 BD "@ 0,-100") 

  (VL-CMDF "_dimlinear" BTR TR7 "@ 100,0") 
  (VL-CMDF "_dimlinear" BTR TR1 "@ 0,-100") 
  (VL-CMDF "_dimlinear" TR6 TR7 "@ 0,100") 
  (VL-CMDF "_dimlinear" DR1 DR2 "@ 100,0") 
  (VL-CMDF "_dimlinear" HR4 HR5 "@ 0,150") 
  (VL-CMDF "_dimlinear" TR8 TR9 "@ 0,-200") 
  (VL-CMDF "_dimlinear" BDR DR1 "@ 0,-100") 

  (COMMAND "ZOOM" "A");;;????????
  (mapcar 'setvar list_sys_var sys_var)
  (princ) 
)
Где стоит ;;;????????? - там были ошибки
CB вне форума  
 
Автор темы   Непрочитано 08.07.2007, 10:48
#6
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302

Da no esli ja ubiraju (command "layer") problema ne reshaetsja :-)
Holon вне форума  
 
Автор темы   Непрочитано 08.07.2007, 10:55
#7
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302

CB BOL'SHEE SPASIBO VSE ZARABOTALO
Holon вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Lisp code

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Обратная связь - Вверх