[求助]Please check my new program door & suggestion me

sachindkini

dear all
  
Please check my new program door & suggestion me how to improve this program
& one problem on this code is only working in mm drg

3. (DEFUN C: DR (/ lu abcdefg pt pp pt1 pt2 p ang1 tz wl ds wt sw ang2
4. pt3 pt4 ang3 pl2 pl3 pl4 pl5 pl6 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt13 pt14 pt15)
5. (SETVAR "BLIPMODE" 0)
6. (SETVAR "OSMODE" 512)
7. (Setq lu (getvar "lunits"))
8. (If (= lu 2) (setq a 75 b 82 c 15 d 38 e 60 f 120 g 150)
9. (Setq a 3 b 3.5 c 0.5 d 1.5 e 2.5 f 5 g 6))
10. (If (null DRlay)
11. (Progn
12. (Setq DRlay "DR")
13. (Setq DRlayer (tblsearch "layer" DRlay))
14. (If (null DRlayer)
15. (Progn
16. (Setq DRlay (getstring "\ nLayer name for TEXT:"))
17. (Setq DRclr (getstring (strcat "\ nColor for" DRlay "layer:")))
18. (Command "layer" "m" DRlay "c" DRclr "" "")
19. )
20. (Prompt "\ nDOOR ON DR LAYER")
21. )
22. )
23. )
24. (SETQ PT (entsel "\ nPICK WALL LINE:"))
25. (Setq pp (CDR (ASSOC 11 (ENTGET (CAR PT )))))
26. (Setvar "osmode" 128)
27. (SETQ PT1 (GETPOINT PP "\ nEnter Insertion Point:"))
28. (SETQ PT2 (GETPOINT PT1 "\ nPick Opposite Wall Line:"))
29. (SETVAR "OSMODE" 512)
30. (SETQ p (GETpoint PT2 "\ nPICK THE SIDE FOR OPENING:"))
31. (Setq ang1 (angle pt2 p))
32. (IF (null DZ) (SETQ DZ "900"))
33. (SETQ TZ (STRCASE (GETSTRING (STRCAT "\ nENTER SIZE OF OPENING <" DZ ">:")) t))
34. (IF (/ = TZ "") (SETQ DZ TZ))
35. (SETVAR "BLIPMODE" 0)
36. (Setq wl (cdr (assoc 8 (entget (car pt )))))
37. (SETQ DS (Atof DZ))
38. (SETQ WT (DISTANCE PT1 PT2))
39. (SETQ SW (- DS f))
40. (SETQ ANG2 (ANGLE PT1 PT2))
41. (SETQ PT3 (POLAR PT1 ANG1 DS))
42. (SETQ PT4 (POLAR PT3 ANG2 WT))
43. (SETQ ANG3 (ANGLE PT3 PT1))
44. (SETQ PL2 (POLAR PT1 ANG1 a))
45. (SETQ PL3 (POLAR PL2 ANG2 b))
46. (SETQ PL4 (POLAR PL3 ANG3 c))
47. (SETQ PL5 (POLAR PL4 ANG2 d))
48. (SETQ PL6 (POLAR PL5 ANG3 e))
49. (SETQ PT5 (POLAR PT1 ANG1 (/ DS 2)))
50. (SETQ PT6 (POLAR PT5 ANG2 f))
51. (SETQ PT7 (POLAR PL5 ANG1 SW))
52. (SETQ PT12 PT7 PT13 PL5)
53. (SETVAR "OSMODE" 0)
54. (COMMAND "BREAK" Pt "F" PT1 PT3)
55. (COMMAND "BREAK" P "F" PT2 PT4)
56. (COMMAND "LAYER" "s" WL "")
57. (COMMAND "LINE" PT1 PT2 "")
58. (COMMAND "LINE" PT3 PT4 "")
59. (COMMAND "COLOR" "BYLAYER")
60. (COMMAND "LAYER" "t" drlay "on" drlay "s" drlay "")
61. (COMMAND "PLINE" PT1 PL2 PL3 PL4 PL5 PL6 "")
62. (COMMAND "MIRROR" PL2 "" PT5 PT6 "")
63. (SETVAR "ORTHOMODE" 0)
64. (SETQ PT11 (GETPOINT PT5 "\ nPICK THE SIDE FOR SHUTTER:"))
65. (IF (> (DISTANCE PT11 PL5) (DISTANCE PT7 PT11)) (SETQ PL5 PT7 PT12 PT13))
66. (SETQ PT8 (POLAR PL5 (ANGLE PL5 PT6) d))
67. (SETQ PT9 (POLAR PT8 ANG2 SW))
68. (SETQ PT10 (POLAR PT9 (ANGLE PT6 PL5) d))
69. (COMMAND "PLINE" PL5 PT8 PT9 PT10 PL5 "")
70. (COMMAND "ARC" PT12 PT9 PT10)
71. (COMMAND "CHPROP" "L" "" "LT" "HIDDEN2" "")
72. (Setq pt14 (polar pl3 ang1 (- ds g)))
73. (Setq pt15 (polar pl2 ang1 (- ds g)))
74. (If (and (> = ds 100) (<= ds 750)) (command "line" pl3 pt14 ""))
75. (If (> = ds 910) (command "line" pl2 pt15 ""))
76. (If (<= ds 32) (command "line" pl3 pt14 ""))
77. (If (and (> = ds 37) (<ds 100)) (command "line" pl2 pt15 ""))
78. )

(DEFUN C: DR (/ lu abcdefg pt pp pt1 pt2 p ang1 tz wl ds wt sw ang2 pt3 pt4 ang3 pl2 pl3 pl4 pl5 pl6 pt5 pt6 pt7 pt8 pt9 pt10 pt11 pt13 pt14 pt15) (SETVAR "BLIPMODE" 0) (SETVAR "OSMODE" 512) (Setq lu (getvar "lunits")) (If (= lu 2) (setq a 75 b 82 c 15 d 38 e 60 f 120 g 150) (Setq a 3 b 3.5 c 0.5 d 1.5 e 2.5 f 5 g 6)) (If (null DRlay) (Progn (Setq DRlay "DR") (Setq DRlayer (tblsearch "layer" DRlay)) (If (null DRlayer) (Progn (Setq DRlay (getstring "\ nLayer name for TEXT:")) (Setq DRclr (getstring (strcat "\ nColor for" DRlay "layer:"))) (Command "layer" "m" DRlay "c" DRclr "" "") ) (Prompt "\ nDOOR ON DR LAYER") ) ) ) (SETQ PT (entsel "\ nPICK WALL LINE:")) (Setq pp (CDR (ASSOC 11 (ENTGET (CAR PT ))))) (Setvar "osmode" 128) (SETQ PT1 (GETPOINT PP "\ nEnter Insertion Point:")) (SETQ PT2 (GETPOINT PT1 "\ nPick Opposite Wall Line:")) (SETVAR "OSMODE" 512) (SETQ p (GETpoint PT2 "\ nPICK THE SIDE FOR OPENING:")) (Setq ang1 (angle pt2 p)) (IF (null DZ) (SETQ DZ "900")) (SETQ TZ (STRCASE (GETSTRING (STRCAT "\ nENTER SIZE OF OPENING <" DZ ">:")) t)) (IF (/ = TZ "") (SETQ DZ TZ)) (SETVAR "BLIPMODE" 0) (Setq wl (cdr (assoc 8 (entget (car pt ))))) (SETQ DS (Atof DZ)) (SETQ WT (DISTANCE PT1 PT2)) (SETQ SW (- DS f)) (SETQ ANG2 (ANGLE PT1 PT2)) (SETQ PT3 (POLAR PT1 ANG1 DS)) (SETQ PT4 (POLAR PT3 ANG2 WT)) (SETQ ANG3 (ANGLE PT3 PT1)) (SETQ PL2 (POLAR PT1 ANG1 a)) (SETQ PL3 (POLAR PL2 ANG2 b)) (SETQ PL4 (POLAR PL3 ANG3 c)) (SETQ PL5 (POLAR PL4 ANG2 d)) (SETQ PL6 (POLAR PL5 ANG3 e)) (SETQ PT5 (POLAR PT1 ANG1 (/ DS 2))) (SETQ PT6 (POLAR PT5 ANG2 f)) (SETQ PT7 (POLAR PL5 ANG1 SW)) (SETQ PT12 PT7 PT13 PL5) (SETVAR "OSMODE" 0) (COMMAND "BREAK" Pt "F" PT1 PT3) (COMMAND "BREAK" P "F" PT2 PT4) (COMMAND "LAYER" "s" WL "") (COMMAND "LINE" PT1 PT2 "") (COMMAND "LINE" PT3 PT4 "") (COMMAND "COLOR" "BYLAYER") (COMMAND "LAYER" "t" drlay "on" drlay "s" drlay "") (COMMAND "PLINE" PT1 PL2 PL3 PL4 PL5 PL6 "") (COMMAND "MIRROR" PL2 "" PT5 PT6 "") (SETVAR "ORTHOMODE" 0) (SETQ PT11 (GETPOINT PT5 "\ nPICK THE SIDE FOR SHUTTER:")) (IF (> (DISTANCE PT11 PL5) (DISTANCE PT7 PT11)) (SETQ PL5 PT7 PT12 PT13)) (SETQ PT8 (POLAR PL5 (ANGLE PL5 PT6) d)) (SETQ PT9 (POLAR PT8 ANG2 SW)) (SETQ PT10 (POLAR PT9 (ANGLE PT6 PL5) d)) (COMMAND "PLINE" PL5 PT8 PT9 PT10 PL5 "") (COMMAND "ARC" PT12 PT9 PT10) (COMMAND "CHPROP" "L" "" "LT" "HIDDEN2" "") (Setq pt14 (polar pl3 ang1 (- ds g))) (Setq pt15 (polar pl2 ang1 (- ds g))) (If (and (> = ds 100) (<= ds 750)) (command "line" pl3 pt14 "")) (If (> = ds 910) (command "line" pl2 pt15 "")) (If (<= ds 32) (command "line" pl3 pt14 "")) (If (and (> = ds 37) (<ds 100)) (command "line" pl2 pt15 "")) )

ZZXXQQ

Some Error:

1    C: DR ->> C:DR(no spase)

2   \ n ->> \n(no spase)

3   / = ->> /=(no spase)

4  > = ->> >=(no spase)

sachindkini

DEAR SIR

 

THX FOR REPLY

ANY SUGGESTION ME TO IMPROVE THIS CODE