home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 1.ddi / J1PIM.MNU < prev    next >
Encoding:
AudoCAD Menu  |  1991-09-24  |  54.2 KB  |  2,945 lines
  1. ***BUTTONS
  2. ;
  3. ;
  4.  ^C
  5. ;
  6. ^B
  7. ^O
  8. ^G
  9. ^D
  10. ^E
  11. ^T
  12. ***AUX1
  13. ;
  14. $p1=*
  15. ^C^C
  16. ^B
  17. ^O
  18. ^G
  19. ^D
  20. ^E
  21. ^T
  22.  
  23. ***POP1
  24. [Tools]
  25. [OSNAP]^C^C$p1= $p1=* OSNAP \
  26. [CENter]CENTER
  27. [ENDpoint]ENDPOINT
  28. [INSert]INSERT
  29. [INTersection]INTERSECTION
  30. [MIDpoint]MIDPOINT
  31. [NEArest]NEAREST
  32. [NODe]NODE
  33. [PERpendicular]PERPENDICULAR
  34. [QUAdrant]QUADRANT
  35. [QUICK,]QUICK,^Z $p1=*
  36. [TANgent]TANGENT
  37. NONE
  38. [~--]
  39. [FILTERS...]$p1=filters $p1=*
  40. [Cancel]^C^C
  41. [U]^C^CU
  42. [Redo]^C^CREDO
  43. [List]List
  44.  
  45. **filters
  46. [Filters]
  47. [.X   ].X
  48. [.Y   ].Y
  49. [.Z   ].Z
  50. [.XY  ].XY
  51. [.XZ  ].XZ
  52. [.YZ  ].YZ
  53. [TOOLS...]$p1= $p1=*
  54.  
  55. ***POP2
  56. [Draw]
  57. [Line]*^C^C$S=X $s=line line
  58. [Arc]*^C^C$S=X $s=poparc arc
  59. [Circle]*^C^C$S=X $s=popcircl circle
  60. [Polyline]*^C^C$S=X $s=pline pline
  61. [3D Polyline]*^C^C$S=X $S=3dpoly 3dpoly
  62. [Insert]^C^Csetvar attdia 1 $S=X $s=insert insert
  63. [Dtext]*^C^C$S=X $s=Dtext Dtext
  64. [Hatch...]^C^C$i=hatch1 $i=*
  65. [3D Construction...]$i=3dobjects $i=*
  66.  
  67. ***POP3
  68. [Modify]
  69. [Erase]*^C^Cerase si auto
  70. [Move]*^C^C$S=X $s=move move si auto
  71. [Copy]*^C^C$S=X $s=copy copy si auto
  72. [Properties]*^C^C$S=X $S=chprop chprop si auto
  73. [Break]*^C^C$S=X $S=break break
  74. [Fillet]*^C^C$S=X $S=fillet fillet
  75. [Mirror]*^C^C$S=X $S=mirror mirror auto
  76. [Trim]*^C^C$S=X $s=trim trim auto
  77. [Extend]*^C^C$S=X $s=extend extend auto
  78. [Stretch]*^C^C$S=X $s=stretch stretch crossing
  79. [Edit Polylines]*^C^C^P+
  80. (defun m:p(/ m:pa m:pb)(while (null (setq m:pa (car (entsel +
  81. "Select Polyline: ")))))(menucmd "S=X")(if (= (setq m:pb (cdr +
  82. (assoc 70 (entget m:pa)))) nil)(progn (menucmd "S=P0")(menucmd "P3=PL"));+
  83. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(progn (menucmd "S=P16")+
  84. (menucmd "P3=PM"))(if(< m:pb 4)(progn(menucmd "S=P0")(menucmd "P3=PL"))+
  85. (progn(menucmd "S=P8")(menucmd "P3=PL"))))))(menucmd "P3=*");+
  86. (command "PEDIT" m:pa pause)(menucmd "p3=pop3")(setq *error* m:err m:err nil)+
  87. (princ))(defun perror (msg)(menucmd "p3=pop3")+
  88. (setq *error* m:err m:err nil)(princ))(defun C:PEDITM (/ m:err);+
  89. (setq m:err *error* *error* perror)(m:p)(princ))(princ) PEDITM ^P
  90.  
  91. **PL
  92. [Polyline]
  93. [Set Spline Fit Options...]$i=pli $i=*
  94.  
  95. **PM
  96. [Polymesh]
  97. [Set Smooth Fit Options...]$i=pmi $i=*
  98.  
  99. ***POP4
  100. [Display]
  101. [Redraw]'redraw
  102. [~--]
  103. [Zoom Window]'zoom w
  104. [Zoom Previous]'zoom p
  105. [Zoom All]'zoom a
  106. [Zoom Dynamic]'zoom d
  107. [~--]
  108. [Pan]'pan
  109. [Dview Options...]^C^C$i=dviewi $i=*
  110. [Vpoint 3D...]^C^C$S=X $S=VPOINT3D $i=3dviews $i=*
  111. [~--]
  112. [Plan View (UCS)]^C^Cplan;;
  113. [Plan View (World)]^C^Cplan wo
  114. [~--]
  115. [Set Viewports...]^C^C$S=X $S=vports $i=vporti $i=*
  116.  
  117. ***POP5
  118. [Settings]
  119. [UCS Presets...]^C^C$S=X $S=ucs1 $i=ucs $i=*
  120. [UCS Dialogue...]^C^C$S=X $s=ucs1 dducs
  121. [UCS Previous]^C^CUCS P
  122. [~--]
  123. [Drawing Aids...]'ddrmodes
  124. [Entity Creation...]'ddemodes
  125. [Modify Layer...]'ddlmodes
  126.  
  127. ***POP6
  128. [Options]
  129. [Ashade...]^P(progn(setq m:err *error*)(princ))(defun *error* (msg)+
  130. (setq *error* m:err m:err nil)(prompt "Function cancelled. ")(princ))+
  131. (cond ((null C:SCENE)(vmon)(if (/= nil (findfile "ashade.lsp"));+
  132. (progn (terpri)(prompt "Please wait...  Loading ashade.  ")(load "ashade")+
  133. (menucmd "I=AS")(menucmd "I=*")(setq *error* m:err m:err nil))(progn (terpri);+
  134. (prompt "The file 'Ashade.lsp' was not found in your current search directories")+
  135. (terpri)(prompt "Check your AutoShade Manual for installation instructions.");+
  136. (setq *error* m:err m:err nil)(princ))))+
  137. (T (setq *error* m:err m:err nil)(menucmd "I=AS")(menucmd "I=*")(princ))) ^P
  138. [Fonts...]^C^C$i=fonts1 $i=*
  139. [Tt......]^C^C$i=tt $i=*
  140.  
  141. ***POP7
  142. [File ]
  143. [Save ]^C^CSave;
  144. [End  ]^C^Cend
  145. [Quit ]^C^C$S=X $s=quit quit
  146. [~--  ]
  147. [Plot ]^C^Cplot
  148. [Print]^C^Cprplot
  149.  
  150. ***POP8
  151. [QUICK-A  ]
  152. [QQ1-layer]^C^C(AL "QQ1" "QQ1");QQ1;
  153. [QQ2-check]^C^C(AL "QQ2" "QQ2");QQ2;
  154. [QQ3-break]^C^C(AL "QQ3" "QQ3");QQ3;
  155. [QQ4-window]^C^C(AL "QQ4" "QQ4");QQ4;
  156. [QQ5-double]^C^C(AL "QQ5" "QQ5");QQ5;
  157. [QQ6-eular]^C^C(AL "QQ6" "QQ6");QQ6;
  158. [QQ7-trace]^C^C(AL "QQ7" "QQ7");QQ7;
  159. [QQ8-ins_window]^C^C(AL "QQ8" "QQ8");QQ8;
  160. [QQ9-win_dim]^C^C(AL "QQ9" "QQ9");QQ9;
  161. [QQ10     ]^C^C(AL "QQ10" "QQ10");QQ10;
  162. [QQ11-auto 5~9]^C^C(AL "QQ11" "QQ11");QQ11;
  163.  
  164. ***icon
  165. **PLI
  166. [Set Polyline Spline Curve Fit Options]
  167. [acad(plq)]'setvar splinetype 5
  168. [acad(plc)]'setvar splinetype 6
  169. [ Set SPLINESEGS]'setvar splinesegs \
  170. [ Exit]$p3=pop3
  171.  
  172. **PMI
  173. [Set Polymesh Surface Fit Options]
  174. [acad(pmq)]'setvar surftype 5
  175. [acad(pmc)]'setvar surftype 6
  176. [acad(pmb)]'setvar surftype 8
  177. [ Exit]$p3=pop3
  178.  
  179. **as
  180. [Select Ashade Command]
  181. [acad(camera)]^C^C$S=X $S=CAMERA camera \\\$i=as $i=*
  182. [acad(point)]^C^C$S=X $S=LIGHTS LIGHT \p \$i=as $i=*
  183. [acad(directed)]^C^C$S=X $S=LIGHTS LIGHT \d \\$i=as $i=*
  184. [acad(scene)]^C^C$S=X $S=ACTION scene
  185. [acad(filmroll)]^C^C$S=X $S=ACTION filmroll
  186. [ Exit]^c^c
  187.  
  188. **ucs
  189. [User Coordinate System Presets]
  190. [ Set to World]^C^Cucs world
  191. [acad(left)]^c^cucs 3p \@0,-1,0 @0,0,1
  192. [ Set to Screen]^C^Cucs view
  193. [acad(top)]^c^cucs 3p \@1,0,0 @0,1,0
  194. [acad(front)]^c^cucs 3p \@1,0,0 @0,0,1
  195. [acad(bottom)]^c^cucs 3p \@1,0,0 @0,-1,0
  196. [acad(back)]^c^cucs 3p \@-1,0,0 @0,0,1
  197. [acad(right)]^c^cucs 3p \@0,1,0 @0,0,1
  198. [ Exit]^c^c
  199.  
  200. **3DViews
  201. [Select View Direction]
  202. [acad(ul)]^C^CVPOINT R;<<135;
  203. [acad(l)]^C^CVPOINT R;<<180;
  204. [acad(ll)]^C^CVPOINT R;<<225;
  205. [acad(user)]$I=*
  206. [acad(u)]^C^CVPOINT R;<<90;
  207. [acad(p)]^C^Cvpoint 0,0,1
  208. [acad(lo)]^C^CVPOINT R;<<270;
  209. [acad(user)]$I=*
  210. [acad(ur)]^C^CVPOINT R;<<45;
  211. [acad(r)]^C^CVPOINT R;<<0;
  212. [acad(lr)]^C^CVPOINT R;<<315;
  213. [acad(user)]$I=*
  214. [acad(t)]VPOINT;;
  215. [acad(h)]$S=X $S=HIDE
  216. [ Exit]^c^c
  217.  
  218. **dviewi
  219. [DVIEW Options]
  220. [acad(dvca)]^C^C$S=X $S=DVIEW select;\dview;p;;ca;\\;
  221. [acad(dvzo)]^C^C$S=X $S=DVIEW select;\dview;p;;z;\;
  222. [acad(dvpa)]^C^C$S=X $S=DVIEW select;\dview;p;;pa;\\;
  223. [ Cancel]
  224.  
  225. **3DObjects
  226. [3D Objects and 3D Surface Commands]
  227. [acad(box3d)]^C^C^P(progn(setq m:err *error*)(prin1))+
  228. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  229. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  230. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  231. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  232. (prompt "Check installation of the 'Support Files' diskette #x and try again.")+
  233. (princ))))(T (princ)))(cond ((not (null C:BOX))(C:BOX))(T (princ))))+
  234. (defun *error* (msg)(menucmd "S=X")(menucmd "S=S")(setq *error* m:err m:err nil);+
  235. (prin1))(m:l3d) ^P
  236. [acad(wedge)]^C^C^P(progn(setq m:err *error*)(princ));+
  237. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  238. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  239. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  240. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  241. (prompt "Check installation of the 'Support Files' diskette #x and try again.")+
  242. (princ))))(T (princ)))(cond ((not (null C:WEDGE))(C:WEDGE))(T (princ))))+
  243. (defun *error* (msg)(menucmd "S=X")(menucmd "S=S");+
  244. (setq *error* m:err m:err nil)(prin1))(m:l3d) ^P
  245. [acad(rev)]^C^C$S=X $S=3D revsurf
  246. [acad(surftab1)]'setvar surftab1 \$I=*
  247. [acad(pyramid)]^C^C^P(progn(setq m:err *error*)(princ))+
  248. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  249. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  250. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  251. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  252. (prompt "Check installation of the 'Support Files' diskette #x and try again.")+
  253. (princ))))(T (princ)))(cond ((not (null C:PYRAMID))(C:PYRAMID))(T (princ))))+
  254. (defun *error* (msg)(menucmd "S=X")(menucmd "S=S");+
  255. (setq *error* m:err m:err nil)(prin1))(m:l3d) ^P
  256. [acad(cone)]^C^C^P(progn(setq m:err *error*)(princ));+
  257. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  258. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  259. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  260. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  261. (prompt "Check installation of the 'Support Files' diskette #x and try again.")+
  262. (princ))))(T (princ)))(cond ((not (null C:CONE))(C:CONE))(T (princ))))+
  263. (defun *error* (msg)(menucmd "S=X")(menucmd "S=S");+
  264. (setq *error* m:err m:err nil)(prin1))(m:l3d) ^P
  265. [acad(rul)]^C^C$S=X $S=3D rulesurf
  266. [acad(surftab2)]'setvar surftab2 \$I=*
  267. [acad(dome)]^C^C^P(progn(setq m:err *error*)(princ));+
  268. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  269. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  270. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  271. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  272. (prompt "Check installation of the 'Support Files' diskette #x and try again.")+
  273. (princ))))(T (princ)))(cond ((not (null C:DOME))(C:DOME))(T (princ))))+
  274. (defun *error* (msg)(menucmd "S=X")(menucmd "S=S");+
  275. (setq *error* m:err m:err nil)(prin1))(m:l3d) ^P
  276. [acad(dish)]^C^C^P (progn(setq m:err *error*)(princ));+
  277. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  278. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  279. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  280. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  281. (prompt "Check installation of the 'Support Files' diskette #x and try again.")+
  282. (princ))))(T (princ)))(cond ((not (null C:DISH))(C:DISH))(T (princ))))+
  283. (defun *error* (msg)(menucmd "S=X")(menucmd "S=S");+
  284. (setq *error* m:err m:err nil)(prin1))(m:l3d) ^P
  285. [acad(edg)]^C^C$S=X $S=3D edgesurf
  286. [acad(user)]$I=*
  287. [acad(sphere)]^C^C^P(progn(setq m:err *error*)(princ));+
  288. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  289. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  290. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  291. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  292. (prompt "Check installation of the 'Support Files' diskette #x and try again.")+
  293. (princ))))(T (princ)))(cond ((not (null C:SPHERE))(C:SPHERE))(T (princ))))+
  294. (defun *error* (msg)(menucmd "S=X")(menucmd "S=S");+
  295. (setq *error* m:err m:err nil)(prin1))(m:l3d) ^P
  296. [acad(torus)]^C^C^P(progn(setq m:err *error*)(princ));+
  297. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  298. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  299. (load "3d")(menucmd "S=X")(menucmd "S=3D2"))(progn (terpri)(prompt +
  300. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  301. (prompt "Check installation of the 'Support Files' diskette #x and try again.")+
  302. (princ))))(T (princ)))(cond ((not (null C:TORUS))(C:TORUS))(T (princ))))+
  303. (defun *error* (msg)(menucmd "S=X")(menucmd "S=S");+
  304. (setq *error* m:err m:err nil)(prin1))(m:l3d) ^P
  305. [acad(tab)]^C^C$S=X $S=3D tabsurf
  306. [ Exit]^c^c
  307.  
  308. **fonts1
  309. [Select Text Font]
  310. [acad(romans)]^c^cstyle romans romans
  311. [acad(romanc)]^c^cstyle romanc romanc
  312. [acad(italicc)]^c^cstyle italicc italicc
  313. [acad(romand)]^c^cstyle romand romand
  314. [acad(romant)]^c^cstyle romant romant
  315. [acad(italict)]^c^cstyle italict italict
  316. [acad(monotxt)]^c^cstyle monotxt monotxt
  317. [ Next]$i=fonts2 $i=*
  318. [ Exit]^c^c
  319.  
  320.  
  321. **fonts3
  322. [Select Text Font]
  323. [acad(syastro)]^c^cstyle syastro syastro
  324. [acad(symath)]^c^cstyle symath symath
  325. [acad(symusic)]^c^cstyle symusic symusic
  326. [acad(symap)]^c^cstyle symap symap
  327. [acad(symeteo)]^c^cstyle symeteo symeteo
  328. [acad(txt)]^c^cstyle txt txt
  329. [acad(user)]
  330. [ Begining]$i=fonts1 $i=*
  331. [ Exit]^c^c
  332.  
  333. **hatch1
  334. [Select Hatch Pattern]
  335. [ Previous/User]^c^chatch
  336. [acad(ansi31)]^c^chatch ansi31
  337. [acad(ansi32)]^c^chatch ansi32
  338. [acad(ansi34)]^c^chatch ansi34
  339. [acad(ansi35)]^c^chatch ansi35
  340. [acad(ansi33)]^c^chatch ansi33
  341. [acad(ansi36)]^c^chatch ansi36
  342. [acad(ansi37)]^c^chatch ansi37
  343. [acad(ansi38)]^c^chatch ansi38
  344. [acad(box)]^c^chatch box
  345. [acad(brass)]^c^chatch brass
  346. [acad(brick)]^c^chatch brick
  347. [acad(clay)]^c^chatch clay
  348. [acad(cork)]^c^chatch cork
  349. [ Next]$i=hatch2 $i=*
  350. [ Exit]^c^c
  351.  
  352. **hatch2
  353. [Select Hatch Pattern]
  354. [acad(cross)]^c^chatch cross
  355. [acad(dash)]^c^chatch dash
  356. [acad(dolmit)]^c^chatch dolmit
  357. [acad(dots)]^c^chatch dots
  358. [acad(earth)]^c^chatch earth
  359. [acad(escher)]^c^chatch escher
  360. [acad(flex)]^c^chatch flex
  361. [acad(grass)]^c^chatch grass
  362. [acad(grate)]^c^chatch grate
  363. [acad(hex)]^c^chatch hex
  364. [acad(honey)]^c^chatch honey
  365. [acad(hound)]^c^chatch hound
  366. [acad(insul)]^c^chatch insul
  367. [acad(line)]^c^chatch line
  368. [ Next]$i=hatch3 $i=*
  369. [ Exit]^c^c
  370.  
  371. **hatch3
  372. [Select Hatch Pattern]
  373. [acad(mudst)]^c^chatch mudst
  374. [acad(net)]^c^chatch net
  375. [acad(net3)]^c^chatch net3
  376. [acad(plast)]^c^chatch plast
  377. [acad(plasti)]^c^chatch plasti
  378. [acad(sacncr)]^c^chatch sacncr
  379. [acad(square)]^c^chatch square
  380. [acad(stars)]^c^chatch stars
  381. [acad(steel)]^c^chatch steel
  382. [acad(swamp)]^c^chatch swamp
  383. [acad(trans)]^c^chatch trans
  384. [acad(triang)]^c^chatch triang
  385. [acad(zigzag)]^c^chatch zigzag
  386. [acad(angle)]^c^chatch angle
  387. [ Beginning]$i=hatch1 $i=*
  388. [ Exit]^c^c
  389.  
  390. **vporti
  391. [Viewport Settings (Current is dominant)]
  392. [acad(vp1)]^C^CVPORTS;SI
  393. [acad(vp3v)]^C^CVPORTS;SI;;3;v
  394. [acad(vp3h)]^C^CVPORTS;SI;;3;h
  395. [acad(vp4)]^C^CVPORTS;SI;;4
  396. [acad(vp2v)]^C^CVPORTS;SI;;2;v
  397. [acad(vp3r)]^C^CVPORTS;SI;;3;r
  398. [acad(vp3l)]^C^CVPORTS;SI;;3;l
  399. [acad(vp4l)]^C^C^PVPORTS;SI;;2;;(setvar "CVPORT" (1- (getvar"CVPORT")));;2;;+
  400. ;J;;(- (getvar "CVPORT") 2) (setvar "CVPORT" (- (getvar "CVPORT") 2));;3;h;+
  401. (setvar "CVPORT" (- (getvar "CVPORT") 3))(princ) ^P
  402. [acad(vp2h)]^C^CVPORTS;SI;;2;h
  403. [acad(vp3a)]^C^CVPORTS;SI;;3;a;
  404. [acad(vp3b)]^C^CVPORTS;SI;;3;b;
  405. [acad(vp4r)]^C^C^PVPORTS;SI;;2;;;2;;;j;(1- (getvar "CVPORT"));+
  406. (- (getvar "CVPORT") 3);;3;h;(setvar "CVPORT" (- (getvar "CVPORT") 3))(princ) ^P
  407. [ Join Viewports]^C^CVPORTS;J
  408. [ Restore Saved]^C^CVPORTS;R;
  409. [ List Saved]^C^CVPORTS;?;
  410. [ Exit]
  411.  
  412. ***SCREEN
  413. **S
  414. [*J1PIM*]^C^C$S=X $S=S $P1=POP1 $P3=POP3
  415. [* * * *]$S=OSNAPB
  416. [BLOCKS]$S=X $S=BL
  417. [DIM:]$S=X $S=DIM ^C^CDIM
  418. [DISPLAY]$S=X $S=DS
  419. [DRAW]$S=X $S=DR
  420. [EDIT]$S=X $S=ED
  421. [INQUIRY]$S=X $S=INQ
  422. [LAYER:]$S=X $S=LAYER ^C^CLAYER
  423. [SETTINGS]$S=X $S=SET
  424. [UCS:]$S=X $S=UCS1 ^C^CUCS
  425. [UTILITY]$S=X $S=UT
  426. [3D]$S=X $S=3D
  427. [**MENU]$S=QMENU
  428. [**QQ]$S=QQ
  429. [**QMC]$S=QMC
  430. [**QED]$S=QED
  431. [**QLT]$S=QLT
  432. [**QATT]$S=QATT
  433. [**QARC]$S=QARC
  434. [**HZ]$S=HZ
  435. []
  436. **MC1
  437. [**DOOR**]$S=S
  438. [--PER--]$S=MC4
  439. [ M4-P]m4-p
  440. [ M5-P]m5-p
  441. [ M6-P]m6-p
  442. [ M7-P]m7-p
  443. [ M8-P]m8-p
  444. [ M9-P]m9-p
  445. [ M10-P]m10-p
  446. [ M1-P1]m1-p1
  447. [ M2-P1]m2-p1
  448. [ M3-P1]m3-p1
  449. [ M0-P1]m0-p1
  450. [ M07-P1]m07-p1
  451. [ M08-P1]m08-p1
  452. [--NEXT--]$S=MC2
  453. []
  454. []
  455. []
  456. []
  457. []
  458. []
  459. **MC2
  460. [**DOOR**]$S=S
  461. [--PER--]$S=MC1
  462. [ M4-T]m4-t
  463. [ M5-T]m5-t
  464. [ M6-T]m6-t
  465. [ M7-T]m7-t
  466. [ M8-T]m8-t
  467. [ M9-T]m9-t
  468. [ M1-T1]m1-t1
  469. [ M2-T1]m2-t1
  470. [ M3-T1]m3-t1
  471. [ M0-T1]m0-t1
  472. [ M07-T1]m07-t1
  473. [ M08-T1]m08-t1
  474. [--NEXT--]$S=MC3
  475. []
  476. []
  477. []
  478. []
  479. []
  480. []
  481. []
  482. **MC3
  483. [**DOOR**]$S=S
  484. [--PER--]$S=MC2
  485. [ M4-L36]m4-l36
  486. [ M5-L36]m5-l36
  487. [ M6-L36]m6-l36
  488. [ M7-L36]m7-l36
  489. [ M8-L36]m8-l36
  490. [ M9-L36]m9-l36
  491. [ M10-L36]10-l36
  492. [ M4-L24]m4-l24
  493. [ M5-L24]m5-l24
  494. [ M6-L24]m6-l24
  495. [ M7-L24]m7-l24
  496. [ M8-L24]m8-l24
  497. [ M9-L24]m9-l24
  498. [ M10-L24]10-l24
  499. [--NEXT--]$S=MC4
  500. []
  501. []
  502. []
  503. []
  504. []
  505. **MC4
  506. [*WINDOW*]$S=S
  507. [--PER--]$S=MC3
  508. [ C2-24]c2-24
  509. [ C3-24]c3-24
  510. [ C4-24]c4-24
  511. [ C5-24]c5-24
  512. [ C6-24]c6-24
  513. [ C7-24]c7-24
  514. [ C8-24]c8-24
  515. [ C2-36]c2-36
  516. [ C3-36]c3-36
  517. [ C9-24]c9-24
  518. [ C4-36]c4-36
  519. [ C5-36]c5-36
  520. [ C6-36]c6-36
  521. [ C7-36]c7-36
  522. [ C8-36]c8-36
  523. [ NEXT]$S=MC1
  524. []
  525. []
  526. []
  527. []
  528. []
  529. **QMENU
  530. [**QMENU**]$S=S
  531. [* * * *]$S=OSNAPB
  532. [*J1LPM ]^CMENU;J1LPM;
  533. [*BCAD  ]^CMENU;FA/BCAD;
  534. [*ACAD  ]^CMENU;ACAD;
  535. []
  536. []
  537. []
  538. []
  539. []
  540. [*TPIM  ]^Cshell;tpim;^C(LOAD "TPIM");
  541. []
  542. []
  543. []
  544. []
  545. []
  546. []
  547. []
  548. []
  549. []
  550. []
  551. []
  552. **QQ
  553. [**QQ**]$S=S
  554. [* * * *]$S=OSNAPB
  555. [*KJCL  ]^CSHELL;KJCL;(GRAPHSCR);
  556. [*QZ    ]^C(AL "QZ" "PIM/QZ");QZ;
  557. [*QG    ]^C(AL "QG" "PIM/QG");QG;
  558. [*QCDAT ]^C(AL "QCDAT" "PIM/QCDAT");QCDAT;
  559. [ QAREA2]^C(AL "QAREA2" "PIM/QCDAT");QAREA2;
  560. [ QAREA ]^C(AL "QAREA" "PIM/QCDAT");QAREA;
  561. [*PQC]^C(SETQ N (GETSTRING "Input floor layer(1 2 3...): "));\+
  562. (SETQ F (OPEN "/BJCAD/CCX.DAT" "w"));+
  563. (PRIN1 (READ N) F);+
  564. (CLOSE F);+
  565. (SETQ NM (STRCAT "/BJCAD/PIM" N));+
  566. SHELL;PQC;+
  567. (LOAD NM);
  568. [*PQ]^C(SETQ N (GETSTRING "Input floor layer(1 2 3...): "));\+
  569. (SETQ F (OPEN "/BJCAD/CCX.DAT" "w"));+
  570. (PRIN1 (READ N) F);+
  571. (CLOSE F);+
  572. (SETQ NM (STRCAT "/BJCAD/PIM" N));+
  573. SHELL;PQ;+
  574. (LOAD NM);
  575. [*QInput]^C(AL "QI" "PIM/QLW");QI;
  576. [ QLW   ]^C(AL "QLW" "PIM/QLW");QLW;
  577. [*QQL   ]^C(AL "QQL" "PIM/QQL");QQL;
  578. [ QQL1  ]^C(AL "QQL" "PIM/QQL");QQL1;
  579. [*QT    ]^C(AL "QT" "PIM/QT");QT;
  580. [*QZK   ]^C(AL "QZKN" "PIM/QZK");QZKN;
  581. [ QZKD  ]^C(AL "QZKD" "PIM/QZK");QZKD;
  582. [ QZKL  ]^C(AL "QZKL" "PIM/QZK");QZKL;
  583. [ QZK1  ]^C(AL "QZK1" "PIM/QZK");QZK1;
  584. []
  585. []
  586. []
  587. []
  588. [ QCU1  ]^C(AL "QCU1" "PIM/QCM");QCU1;
  589. [ QCMM  ]^C(AL "QCMM" "PIM/QCM");QCMM;
  590. [ QCMM1 ]^C(AL "QCMM1" "PIM/QCM");QCMM1;
  591. [       ]
  592. [*QZMC  ]^C(AL "QZMC" "PIM/QZMC");QZMC;
  593. [*Q3D   ]^C(AL "Q3D" "PIM/Q3D");Q3D;
  594. [*Q3D1  ]^C(AL "Q3D1" "PIM/Q3D");Q3D1;
  595. [*Q3D2  ]^C(AL "Q3D2" "PIM/Q3D");Q3D2;
  596. [*Q3D3  ]^C(AL "Q3D3" "PIM/Q3D");Q3D3;
  597. **QMC
  598. [**QMC**]$S=S
  599. [* * * *]$S=OSNAPB
  600. [*QCMNan]^C(AL "QCMN" "PIM/QCM");^CQCMN;
  601. [ QCMZ  ]^C(AL "QCMZ" "PIM/QCM");^CQCMZ;
  602. [ QCMD  ]^C(AL "QCMD" "PIM/QCM");^CQCMD;
  603. [ QCML  ]^C(AL "QCML" "PIM/QCM");^CQCML;
  604. [ QCMK  ]^C(AL "QCMK" "PIM/QCM");QCMK;
  605. [ QCU1  ]^C(AL "QCU1" "PIM/QCM");QCU1;
  606. [ QCMM  ]^C(AL "QCMM" "PIM/QCM");QCMM;
  607. [ QCMM1 ]^C(AL "QCMM1" "PIM/QCM");QCMM1;
  608. [*QMCL  ]^C(AL "QMCL" "PIM/QMCL");QMCL;
  609. [ QMCM  ]^C(AL "QMCM" "PIM/QMCL");QMCM;
  610. [ QMCZ  ]^C(AL "QMCZ" "PIM/QMCL");QMCZ;
  611. [ QMCD  ]^C(AL "QMCD" "PIM/QMCL");QMCD;
  612. [ QMCX  ]^C(AL "QMCX" "PIM/QMCL");QMCX;
  613. [ QMCU  ]^C(AL "QMCU" "PIM/QMCL");QMCU;
  614. [ QMC1  ]^C(AL "QMC1" "PIM/QMCL");QMC1;
  615. [       ]
  616. [*QZMC  ]^C(AL "QZMC" "PIM/QZMC");QZMC;
  617. []
  618. []
  619. [*Q3D   ]^C(AL "Q3D" "PIM/Q3D");Q3D;
  620. [*Q3D1  ]^C(AL "Q3D1" "PIM/Q3D");Q3D1;
  621. [*Q3D2  ]^C(AL "Q3D2" "PIM/Q3D");Q3D2;
  622. [*Q3D3  ]^C(AL "Q3D3" "PIM/Q3D");Q3D3;
  623. **QARC
  624. [**QARC**]$S=S
  625. [* * * *]$S=OSNAPB
  626. [*QARC   ]^C(AL "QARC" "PIM/QARC");QARC;
  627. [ QEDA   ]^C(AL "QEDA" "PIM/QARC");QEDA;
  628. [*QLWA   ]^C(AL "QLWA" "PIM/QLWA");QLWA;
  629. [ QAInput]^C(AL "QAI" "PIM/QLWA");QAI;
  630. [*QCMAN  ]^C(AL "QCMAN" "PIM/QCMA");QCMAN;
  631. [ QCMAZ  ]^C(AL "QCMAZ" "PIM/QCMA");QCMAZ;
  632. [ QCMAA  ]^C(AL "QCMAA" "PIM/QCMA");QCMAA;
  633. [ QCMAC  ]^C(AL "QCMAC" "PIM/QCMA");QCMAC;
  634. [*QCMAN1 ]^C(AL "QCMAN1" "PIM/QCMA1");QCMAN1;
  635. [ QCMAZ1 ]^C(AL "QCMAZ1" "PIM/QCMA1");QCMAZ1;
  636. [ QCMAA1 ]^C(AL "QCMAA1" "PIM/QCMA1");QCMAA1;
  637. [ QCMAC1 ]^C(AL "QCMAC1" "PIM/QCMA1");QCMAC1;
  638. [        ]
  639. [        ]
  640. [        ]
  641. [        ]
  642. [        ]
  643. [        ]
  644. [        ]
  645. **QATT
  646. [**QATT**]$S=S
  647. [* * * *]$S=OSNAPB
  648. [*QATT   ]^C(AL "QATT" "ATT/QATT");QATT;
  649. [*QATT1  ]^C(AL "QATT1" "ATT/QATT1");QATT1;
  650. [*QATT2  ]^C(AL "QATT2" "ATT/QATT2");QATT2;
  651. [*QZXB   ]^C(AL "QZXB" "ATT/QZXB");QZXB;
  652. [*QTJS  ]^C(AL "QTJS" "PIM/QTJS");QTJS;
  653. [ QTJJ  ]^C(AL "QTJJ" "PIM/QTJS");QTJJ;
  654. [ QTJD  ]^C(AL "QTJD" "PIM/QTJS");QTJD;
  655. [*QZMC  ]^C(AL "QZMC" "PIM/QZMC");QZMC;
  656. [*QPT-p>t]^C(AL "QPT" "PIM/QPT");QPT;
  657. [ QTP-t>p]^C(AL "QTP" "PIM/QPT");QTP;
  658. [*CDIM]^C(SETQ F (OPEN "/BJCAD/CCX.DAT" "r"));+
  659. (SETQ N (READ-LINE F));(CLOSE F);+
  660. (SETQ NM (STRCAT "/BJCAD/CDIM" N));+
  661. (LOAD NM);
  662. [*QD]^C(AL "QD" "PIM/QD");QD;
  663. [*YDIM]^C(AL "YDIM" "PIM/YDIM");YDIM;
  664. [*QWI   ]^C(AL "QWI" "PIM/QWI");QWI;
  665. [ QWI1  ]^C(AL "QWI1" "PIM/QWI");QWI1;
  666. [       ]
  667. [*PQWZ  ]^C(AL "PQWZ" "LPM/PQWZ");PQWZ;
  668. [       ]
  669. [*ZTCS  ]^C(AL "ZTCS" "PIM/ZTCS");ZTCS;
  670. **QED
  671. [**QED**]$S=S
  672. [* * * *]$S=OSNAPB
  673. [*QEDit ]^C(AL "QED" "PIM/QCU");QED;
  674. [ QCUndo]^C(AL "QCU" "PIM/QCU");QCU;
  675. [ QEXtend]^C(AL "QEX" "PIM/QCU");QEX;
  676. [ QTRim ]^C(AL "QTR" "PIM/QCU");QTR;
  677. [ QTRAce]^C(AL "QTRA" "PIM/QCU");QTRA;
  678. [ QTRA1ce]^C(AL "QTRA1" "PIM/QCU");QTRA1;
  679. [ QXXplod]^C(AL "QXX" "PIM/QCU");QXX;
  680. [*QMName]^C(AL "QMN" "PIM/QMN");QMN;
  681. [ QMN1ame]^C(AL "QMN1" "PIM/QMN");QMN1;
  682. [ QMN2ame]^C(AL "QMN2" "PIM/QMN");QMN2;
  683. [ QDIm  ]^C(AL "QDI" "PIM/QMN");QDI;
  684. [ QDI1m ]^C(AL "QDI1" "PIM/QMN");QDI1;
  685. [ QDI2m ]^C(AL "QDI2" "PIM/QMN");QDI2;
  686. [ QDI3m ]^C(AL "QDI3" "PIM/QMN");QDI3;
  687. [ QLIne ]^C(AL "QLI" "PIM/QMN");QLI;
  688. [ QCMMirr]^C(AL "QCMM" "PIM/QMN");^CQCMM;
  689. [ QCMM1ir]^C(AL "QCMM1" "PIM/QMN");^CQCMM1;
  690. [ QCU1  ]^C(AL "QCU1" "PIM/QMN");^CQCU1;
  691. [       ]
  692. **QLT
  693. [**QLT**]$S=S
  694. [* * * *]$S=OSNAPB
  695. [*QLT1  ]^C(AL "QLT1" "PIM/QLT1");QLT1;
  696. [*QLT11 ]^C(AL "QLT11" "PIM/QLT11");QLT11;
  697. [*QLT12 ]^C(AL "QLT12" "PIM/QLT12");QLT12;
  698. [*QLT2  ]^C(AL "QLT2" "PIM/QLT2");QLT2;
  699. [*QLT21]^C(AL "QLT21" "PIM/QLT21");QLT21;
  700. [*QLT22]^C(AL "QLT22" "PIM/QLT22");QLT22;
  701. [ QZD   ]^C(AL "QZD" "PIM/QLT2");QZD;
  702. [*QTJP1 ]^C(AL "QTJP1" "PIM/QTJP1");QTJP1;
  703. [ QTJP2 ]^C(AL "QTJP2" "PIM/QTJP1");QTJP2;
  704. [ QCT1  ]^C(AL "QCT1" "PIM/QTJP1");QCT1;
  705. [ QCT2  ]^C(AL "QCT2" "PIM/QTJP1");QCT2;
  706. [*QAREA2]^C(AL "QAREA2" "PIM/QCDAT");QAREA2;
  707. [ QAREA ]^C(AL "QAREA" "PIM/QCDAT");QAREA;
  708. [       ]
  709. [       ]
  710. [       ]
  711. [       ]
  712. [       ]
  713. [       ]
  714. [       ]
  715. [       ]
  716. [       ]
  717. [       ]
  718. **HZ
  719. [**HZ**]$S=S
  720. [* * * *]$S=OSNAPB
  721. [*LD-HZ1]^C(AL "STY" "HZ/STY");STY;
  722. [ LD-HZ2]^C(AL "STY2" "HZ/STY");STY2;
  723. [ LD-HZF]^C(AL "STYF" "HZ/STY");STYF;
  724. [ LD-HZK]^C(AL "STYK" "HZ/STY");STYK;
  725. [ LD-HZ0]^C(AL "STY0" "HZ/STY");STY0;
  726. [*HCS1   ]^C(AL "HCS1" "HZ/HZT");HCS1;
  727. [ HZTrans]^C(AL "HZT" "HZ/HZT");HZT;
  728. [ HZT2   ]^C(AL "HZT2" "HZ/HZT");HZT2;
  729. [*HCS    ]^C(AL "HCS" "HZ/HCS");HCS;
  730. [ HZWrite]^C(AL "HZW" "HZ/HCS");HZW;
  731. [ HZW2   ]^C(AL "HZW2" "HZ/HCS");HZW2;
  732. [ /(text)]/;
  733. [ *(copy)]*;
  734. [ ' (U)  ]';
  735. [ Retrun ]/;;
  736. [ - (<)  ]-;
  737. [ + (>)  ]+;
  738. [ , (^)  ],;
  739. [ . (v)  ].;
  740. [        ]
  741. **SUZ 3
  742. [**SUZ**]$=S
  743. []
  744. []
  745. [ 600  ]600
  746. [ 900  ]900
  747. [ 1200]1200
  748. [ 1500]1500
  749. [ 1800]1800
  750. [ 2100]2100
  751. [ 2400]2400
  752. [ 2700]2700
  753. [ 3000]3000
  754. [ 3300]3300
  755. [ 3600]3600
  756. [ 3900]3900
  757. [ 4200]4200
  758. [ 4500]4500
  759. []
  760. []
  761. []
  762. []
  763. []
  764. []
  765. []
  766. []
  767. []
  768. **WALLD
  769. [**WALL**]$S=S
  770.  
  771. [  30]30
  772. [  50]50
  773. [  60]60
  774. [  80]80
  775. [  90]90
  776. [  100]100
  777. [  120]120
  778. [  150]150
  779. [  180]180
  780. [  210]210
  781. [  240]240
  782. [  270]270
  783. [  300]300
  784. [  330]330
  785. [  360]360
  786. []
  787. []
  788. []
  789. []
  790. []
  791. []
  792. **FLOOD
  793. [**FLOOD**]$S=S
  794.  
  795. [   1]1
  796. [   2]2
  797. [   3]3
  798. [   4]4
  799. [   5]5
  800. [   6]6
  801. [   7]7
  802. [   8]8
  803. [   9]9
  804. [   10]10
  805. [   11]11
  806. [   12]12
  807. [   13]13
  808. [   14]14
  809. [   15]15
  810.  
  811. []
  812. []
  813.  
  814. [SAVE:]^C^CSAVE
  815.  
  816. [Tong-Dar]$S=X $S=TD
  817. **X 3
  818.  
  819.  
  820.  
  821.  
  822.  
  823.  
  824.  
  825.  
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832.  
  833. [__LAST__]$S= $S=
  834. [  DRAW  ]^C^C$S=X $S=DR
  835. [  EDIT  ]^C^C$S=X $S=ED
  836. **BL 3
  837. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  838. [BASE:]^C^CBASE
  839. [BLOCK:]$S=X $S=BLOCK ^C^CBLOCK
  840. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  841. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  842. [WBLOCK:]$S=X $S=WBLOCK ^C^CWBLOCK
  843. **DS 3
  844.  
  845. [ATTDISP:]$S=X $S=ATTDISP ^C^CATTDISP
  846. [DVIEW:]$S=X $S=DVIEW ^C^CDVIEW
  847. [PAN:]'PAN
  848. [PLAN:]$S=X $S=PLAN ^C^CPLAN
  849. [REDRAW:]'REDRAW
  850. [REDRALL:]'REDRAWALL
  851. [REGEN:]^C^CREGEN
  852. [REGNALL:]^C^CREGENALL
  853. [RGNAUTO:]$S=X $S=RGNAUTO ^C^CREGENAUTO
  854. [VIEW:]$S=X $S=VIEW 'VIEW
  855. [VIEWRES:]$S=X $S=VIEWRES ^C^CVIEWRES
  856. [VPOINT:]$S=X $S=VPOINT ^C^CVPOINT
  857. [ZOOM:]$S=X $S=ZOOM 'ZOOM
  858. **DR 3
  859. [ARC]$S=X $S=ARC
  860. [ATTDEF:]$S=X $S=ATTDEF ^C^CATTDEF
  861. [CIRCLE]$S=X $S=CIRCLE
  862. [DONUT:]^C^CDONUT
  863. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  864. [ELLIPSE:]$S=X $S=ELLIPSE ^C^CELLIPSE
  865. [HATCH:]$S=X $S=HATCH ^C^CHATCH
  866. [INSERT:]$S=X $S=INSERT ^C^CINSERT
  867. [LINE:]$S=X $S=LINE ^C^CLINE
  868. [MINSERT:]$S=X $S=MINSERT ^C^CMINSERT
  869. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  870. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  871.  
  872. [next]$S=X $S=DR2
  873. **DR2 3
  874. [POINT:]$S=X $S=POINT ^C^CPOINT
  875. [POLYGON:]$S=X $S=POLYGON ^C^CPOLYGON
  876. [SHAPE:]$S=X $S=SHAPE ^C^CSHAPE
  877. [SKETCH:]$S=X $S=SKETCH ^C^CSKETCH
  878. [SOLID:]$S=X $S=SOLID ^C^CSOLID
  879. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  880. [TRACE:]$S=X $S=TRACE ^C^CTRACE
  881. [3DLINE:]$S=X $S=3DLINE ^C^C3DLINE
  882. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  883.  
  884. [3D]$S=X $S=3D
  885.  
  886.  
  887. [previous]$S=X $S=DR
  888.  
  889. [__LAST__]$S= $S=
  890. **ED 3
  891. [ARRAY:]$S=X $S=ARRAY ^C^CARRAY
  892. [ATTEDIT:]$S=X $S=ATTEDIT ^C^CATTEDIT
  893. [DDATTE:]^C^CDDATTE
  894. [BREAK:]$S=X $S=BREAK ^C^CBREAK
  895. [CHAMFER:]$S=X $S=CHAMFER ^C^CCHAMFER
  896. [CHANGE:]$S=X $S=CHANGE ^C^CCHANGE
  897. [CHPROP:]$S=X $S=CHPROP ^C^CCHPROP
  898. [COPY:]$S=X $S=COPY ^C^CCOPY
  899. [DIVIDE:]$S=X $S=DIVIDE ^C^CDIVIDE
  900. [ERASE:]$S=X $S=ERASE ^C^CERASE
  901. [EXPLODE:]^C^CEXPLODE
  902. [EXTEND:]$S=X $S=EXTEND ^C^CEXTEND
  903.  
  904. [next]$S=X $S=ED2
  905. **ED2 3
  906. [FILLET:]$S=X $S=FILLET ^C^CFILLET
  907. [MEASURE:]$S=X $S=MEASURE ^C^CMEASURE
  908. [MIRROR:]$S=X $S=MIRROR ^C^CMIRROR
  909. [MOVE:]$S=X $S=MOVE ^C^CMOVE
  910. [OFFSET:]$S=X $S=OFFSET ^C^COFFSET
  911. [PEDIT:]^C^C^P(defun m:p(/ m:pa m:pb)(while (null (setq m:pa (car (entsel +
  912. "Select Polyline: ")))))(menucmd "S=X")(if (= (setq m:pb (cdr +
  913. (assoc 70 (entget m:pa)))) nil)(progn (menucmd "S=P0")(menucmd "P3=PL"));+
  914. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(progn (menucmd "S=P16")+
  915. (menucmd "P3=PM"))(if(< m:pb 4)(progn(menucmd "S=P0")(menucmd "P3=PL"))+
  916. (progn(menucmd "S=P8")(menucmd "P3=PL"))))))(menucmd "P3=*");+
  917. (command "PEDIT" m:pa pause)(menucmd "p3=pop3")(setq *error* m:err m:err nil)+
  918. (princ))(defun perror (msg)(menucmd "p3=pop3")+
  919. (setq *error* m:err m:err nil)(princ))(defun C:PEDITM (/ m:err);+
  920. (setq m:err *error* *error* perror)(m:p)(princ))(princ) PEDITM ^P
  921. [ROTATE:]$S=X $S=ROTATE ^C^CROTATE
  922. [SELECT:]$S=X $S=SELECT ^C^CSELECT
  923. [SCALE:]$S=X $S=SCALE ^C^CSCALE
  924. [STRETCH:]$S=X $S=STRETCH ^C^CSTRETCH C
  925. [TRIM:]$S=X $S=TRIM ^C^CTRIM
  926. [UNDO:]$S=X $S=UNDO ^C^CUNDO
  927.  
  928. [previous]$S=X $S=ED
  929. **INQ 5
  930. [AREA:]$S=X $S=AREA ^C^CAREA
  931. [DBLIST:]^CDBLIST
  932. [DIST:]^C^CDIST
  933. [HELP:]'HELP
  934. [ID:]$S=X $S=ID ^C^CID
  935. [LIST:]$S=X $S=LIST ^C^CLIST
  936. [STATUS:]^C^CSTATUS
  937. [TIME:]^C^CTIME
  938. **SET 3
  939. [DDEMODES]'DDEMODES
  940. [DDRMODES]'DDRMODES
  941. [--------]
  942. [APERTUR:]$S=X $S=APERTURE ^C^CAPERTURE
  943. [AXIS:]$S=X $S=AXIS ^C^CAXIS
  944. [BLIPS:]$S=X $S=BLIPMODE ^C^CBLIPMODE
  945. [COLOR:]$S=X $S=COLOR ^C^CCOLOR
  946. [DRAGMOD:]$S=X $S=DRAGMODE ^C^CDRAGMODE
  947. [ELEV:]$S=X $S=ELEV ^C^CELEV
  948. [GRID:]$S=X $S=GRID ^C^CGRID
  949. [HANDLES:]$S=X $S=HANDLES ^C^CHANDLES
  950. [LINETYP:]$S=X $S=LINETYPE ^C^CLINETYPE
  951. [LIMITS:]$S=X $S=LIMITS ^C^CLIMITS
  952.  
  953. [next]$S=X $S=SET2
  954. **SET2 3
  955. [LTSCALE:]^C^CLTSCALE
  956. [OSNAP:]$S=X $S=OSNAPC ^C^COSNAP
  957. [QTEXT:]$S=X $S=QTEXT ^C^CQTEXT
  958. [SETVAR:]$S=X $S=SETVAR 'SETVAR
  959. [SNAP:]$S=X $S=SNAP ^C^CSNAP
  960. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  961. [TABLET:]$S=X $S=TABLET ^C^CTABLET
  962. [UCS:]$S=X $S=UCS1 ^C^CUCS
  963. [UCSICON:]$S=X $S=UCSICON ^C^CUCSICON
  964. [UNITS:]^CUNITS
  965. [VPORTS:]$S=X $S=VPORTS ^C^CVPORTS
  966.  
  967.  
  968.  
  969. [previous]$S=X $S=SET
  970. **PLOT 3
  971.  
  972. [ C   D]
  973. [ H   E]
  974. [ O   V]
  975. [ O   I]
  976. [ S   C]
  977. [ E   E]
  978.  
  979.  
  980. [PLOTTER]^C^CPLOT
  981.  
  982. [PRINTER]^C^CPRPLOT
  983. **UT 3
  984. [ATTEXT:]$S=X $S=ATTEXT ^C^CATTEXT
  985. [DXF/DXB]$S=X $S=DXF
  986. [FILES:]^C^CFILES
  987. [IGES]$S=X $S=IGES
  988. [MENU:]$S=X $S=CHTEMP ^C^CMENU
  989. [PURGE:]$S=X $S=PURGE PURGE
  990. [RENAME:]$S=X $S=RENAME ^C^CRENAME
  991. [SCRIPT:]$S=X $S=SCRIPT ^C^CSCRIPT
  992. [SLIDES]$S=X $S=SLIDES
  993.  
  994. [External]$S=X $S=EXCOMDS
  995. [Commands]$S=X $S=EXCOMDS
  996.  
  997. [END]$S=X $S=END
  998. [QUIT]$S=X $S=QUIT
  999. **OSNAPB 3
  1000. [CENter]CENTER $S=
  1001. [ENDpoint]ENDPOINT $S=
  1002. [INSert]INSERT $S=
  1003. [INTersec]INTERSEC $S=
  1004. [MIDpoint]MIDPOINT $S=
  1005. [NEArest]NEAREST $S=
  1006. [NODe]NODE $S=
  1007. [PERpend]PERPEND $S=
  1008. [QUAdrant]QUADRANT $S=
  1009. [QUICK,]QUICK,^Z
  1010. [TANgent]TANGENT $S=
  1011. [NONE]NONE $S=
  1012. [CANCEL:]^C^C$S=
  1013. [U:]^C^CU $S=
  1014. [REDO:]^C^CREDO $S=
  1015. [REDRAW:]'REDRAW $S=
  1016. ['SETVAR]$S= 'SETVAR
  1017. [__LAST__]$S=
  1018. **BLOCK 3
  1019. [BLOCK:]^C^CBLOCK
  1020. ?
  1021.  
  1022. Window
  1023. Last
  1024. Previous
  1025. Crossing
  1026. Remove
  1027. Add
  1028.  
  1029. Yes
  1030. [OOPS]^C^COOPS
  1031. **INSERT 3
  1032. [INSERT:]^C^CINSERT
  1033. ?
  1034. [*]*\
  1035. corner
  1036. xyz
  1037. drag
  1038.  
  1039. Scale
  1040. Xscale
  1041. Yscale
  1042. Zscale
  1043. Rotate
  1044. **WBLOCK 3
  1045. [WBLOCK:]^C^CWBLOCK
  1046.  
  1047. =
  1048. *
  1049. [blank];
  1050.  
  1051. Window
  1052. Last
  1053. Previous
  1054. Crossing
  1055. Remove
  1056. Add
  1057. Undo
  1058. **MINSERT 3
  1059. [MINSERT:]^C^CMINSERT
  1060. ?
  1061.  
  1062. corner
  1063. xyz
  1064. drag
  1065. **DIM 3
  1066. [DIM:]^C^CDIM
  1067. [DIM1:]^C^CDIM1
  1068.  
  1069. [LINEAR]$S=X $S=DIMLINEAR
  1070. [angular]ANG
  1071. [diametr]DIAM
  1072. [radius]RAD
  1073. [center]CENTER
  1074. [leader]LEADER
  1075. [Dim Vars]$S=X $S=VAR1
  1076. [redraw]'REDRAW
  1077. [status]STAT
  1078. undo
  1079. style
  1080. [EXIT]EXIT;$S=X $S=S
  1081. [next]$S=X $S=FORMAT
  1082. **DIMLINEAR 3
  1083. [DIM:]^C^CDIM
  1084. [DIM1:]^C^CDIM1
  1085.  
  1086. [horiz]HOR
  1087. [vrtical]VERT
  1088. [aligned]ALI
  1089. [rotated]ROT
  1090.  
  1091. [baselin]^C^Cdim BASE
  1092. [continu]^C^Cdim CONT
  1093.  
  1094.  
  1095.  
  1096. [previous]$S=X $S=DIM
  1097. **ATTDEF 3
  1098. [ATTDEF:]^C^CATTDEF
  1099.  
  1100. Invis
  1101. Constant
  1102. Verify
  1103. [Preset]P
  1104.  
  1105. Aligned
  1106. [Centered]C
  1107. Fit
  1108. Middle
  1109. Right
  1110. Style
  1111. **LAYER 3
  1112. [DDLMODES]'DDLMODES
  1113. [LAYER:]^C^CLAYER
  1114. [?]? *
  1115.  
  1116. Make
  1117. Set
  1118. New
  1119. ON
  1120. OFF
  1121. [Color]COLOR $S=X $S=LACOLOR \$S=X $S=LAYER
  1122. [Chroma]^C^CVSLIDE chroma
  1123. [ Restore]'REDRAW
  1124. [Ltype]LTYPE $S=X $S=LALT \$S=X $S=LAYER
  1125. Freeze
  1126. Thaw
  1127. **LACOLOR 3
  1128. [COLOR]
  1129.  
  1130. [red]RED
  1131. [yellow]YELLOW
  1132. [green]GREEN
  1133. [cyan]CYAN
  1134. [blue]BLUE
  1135. [magenta]MAGENTA
  1136. [white]WHITE
  1137.  
  1138.  
  1139.  
  1140.  
  1141.  
  1142. **LALT 3
  1143. [LINETYPE]
  1144.  
  1145. [contin.]CONTINUOUS
  1146. [dashed]DASHED
  1147. [hidden]HIDDEN
  1148. [center]CENTER
  1149. [phantom]PHANTOM
  1150. [dot]DOT
  1151. [dashdot]dashdot
  1152. [border]border
  1153. [divide]divide
  1154.  
  1155. **ZOOM 3
  1156. [ZOOM:]'ZOOM
  1157.  
  1158. All
  1159. [Center]C
  1160. [Dynamic]D
  1161. Extents
  1162. Left
  1163. Previous
  1164. Window
  1165.  
  1166. Yes
  1167. No
  1168. **ATTDISP 3
  1169. [ATTDISP:]^C^CATTDISP
  1170.  
  1171. Normal
  1172. ON
  1173. OFF
  1174. **DVIEW 3
  1175. [DVIEW:]^C^CDview
  1176.  
  1177. Window
  1178. Last
  1179. Previous
  1180. Crossing
  1181. Remove
  1182. Add
  1183.  
  1184. [By Layer]^P(progn(setq l(getstring (strcat "Layer name: <" (getvar "clayer") "> ")))+
  1185. (if (= l "")(setq s(ssget "X" (list(cons 8 (getvar "clayer")))))+
  1186. (setq s(ssget "X" (list(cons 8 l)))))) ^P
  1187. [--------]
  1188. [Shoebox:]^C^CDVIEW;;
  1189.  
  1190. [ Dview ]$S=X $S=DVIEW1
  1191. [Options]$S=X $S=DVIEW1
  1192. **DVIEW1 3
  1193. Points
  1194. Camera
  1195. Target
  1196. Distance
  1197. Twist
  1198. Pan
  1199. Zoom
  1200. [Clip]Clip $S=X $S=DVIEW2
  1201. OFF
  1202. Hide
  1203. Undo
  1204.  
  1205. [Exit]Exit $S=X $S=S
  1206. **DVIEW2 3
  1207. [Back]Back $S=X $S=BACK
  1208. [Front]Front $S=X $S=FRONT
  1209. [Off]Off $S=X $S=DVIEW1
  1210. **BACK 3
  1211. [ back]
  1212. [clipping]
  1213.  
  1214. [ON]On $S=X $S=DVIEW1
  1215. [OFF]Off $S=X $S=DVIEW1
  1216. **FRONT 3
  1217. [ front]
  1218. [clipping]
  1219.  
  1220. [ON]On $S=X $S=DVIEW1
  1221. [OFF]Off $S=X $S=DVIEW1
  1222.  
  1223. [Eye]Eye $S=X $S=DVIEW1
  1224. **RGNAUTO 3
  1225. [RGNAUTO:]^C^CREGENAUTO
  1226.  
  1227. [ON]On $S=X $S=DS
  1228. [OFF]Off $S=X $S=DS
  1229. **VIEW 3
  1230. [VIEW:]'VIEW
  1231. ?
  1232.  
  1233. [Delete]Delete;
  1234. [Restore]Restore;
  1235. [Save]Save;
  1236. [Window]Window;
  1237. **VPORTS 3
  1238. [VPORTS:]^C^CVPORTS
  1239.  
  1240. Save
  1241. Restore
  1242. Delete
  1243. Join
  1244. Single
  1245. ?
  1246.  
  1247. [2]2 $S=X $S=VP2
  1248. [3]3 $S=X $S=VP3
  1249. 4
  1250. **VP2 3
  1251.  
  1252. [Horizont]H $S=X $S=VPORTS
  1253. [Vertical]V $S=X $S=VPORTS
  1254. **VP3 3
  1255.  
  1256. [Horizont]H $S=X $S=VPORTS
  1257. [Vertical]V $S=X $S=VPORTS
  1258. [Above]A $S=X $S=VPORTS
  1259. [Below]B $S=X $S=VPORTS
  1260. [Left]L $S=X $S=VPORTS
  1261. [Right]R $S=X $S=VPORTS
  1262. **LINE 3
  1263. [LINE:]^C^CLINE
  1264.  
  1265. [continue]^C^CLINE;;
  1266. close
  1267. undo
  1268. .x
  1269. .y
  1270. .z
  1271. .xy
  1272. .xz
  1273. .yz
  1274. **3D 2
  1275.  
  1276. [EDGSURF:]^C^CEDGESURF
  1277. [REVSURF:]^C^CREVSURF
  1278. [RULSURF:]^C^CRULESURF
  1279. [TABSURF:]^C^CTABSURF
  1280.  
  1281. [Surftb1:]'SETVAR SURFTAB1
  1282. [Surftb2:]'SETVAR SURFTAB2
  1283.  
  1284. [3DFACE:]$S=X $S=3DFACE ^C^C3DFACE
  1285. [3DMESH:]^C^C3DMESH
  1286. [3DPOLY:]$S=X $S=3DPOLY ^C^C3DPOLY
  1287.  
  1288. [  3d   ]^C^C^P(progn(setq m:err *error*)(princ))+
  1289. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1290. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1291. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1292. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1293. (prompt "Check installation of the 'Support Files' diskette #x and try again.")+
  1294. (princ))))(T (princ))))(defun *error* (msg)(menucmd "S=X")(menucmd "S=S");+
  1295. (setq *error* m:err m:err nil)(prin1))(m:l3d) ^P
  1296. [objects]^C^C^P(progn(setq m:err *error*)(princ))+
  1297. (defun m:l3d ()(cond ((null C:BOX)(vmon)(if (/= nil (findfile "3d.lsp"))+
  1298. (progn (terpri)(prompt "Please wait...  Loading 3D Objects.  ");+
  1299. (load "3d")(menucmd "S=X")(menucmd "S=3D2")(princ))(progn (terpri)(prompt +
  1300. "The file `3d.lsp' was not found in your current search path directories. ")(terpri);+
  1301. (prompt "Check installation of the 'Support Files' diskette #x and try again.")+
  1302. (princ))))(T (princ))))(defun *error* (msg)(menucmd "S=X")(menucmd "S=S");+
  1303. (setq *error* m:err m:err nil)(prin1))(m:l3d) ^P
  1304.  
  1305. **3D2 3
  1306.  
  1307. Box
  1308. Cone
  1309. Dish
  1310. Dome
  1311. Pyramid
  1312. Sphere
  1313. Torus
  1314. Wedge
  1315. **ELEVTHK 3
  1316. [ELEV:]^C^CELEV
  1317.  
  1318. [CHANGE:]^C^CCHANGE
  1319. Window
  1320. Last
  1321. Previous
  1322. Crossing
  1323. Remove
  1324. Add
  1325. Undo
  1326. [Elev]PROP E
  1327. [Thick]PROP T
  1328. **HIDE 3
  1329. [HIDE ?]
  1330.  
  1331. [YES]^C^CHIDE
  1332. [NO]$S= $S=
  1333. **VPOINT 3
  1334. [VPOINT:]^C^CVPOINT
  1335.  
  1336. rotate
  1337. [axes];
  1338. [plan]none 0,0,1
  1339.  
  1340. [HIDE:]$S=X $S=HIDE
  1341. **VPOINT3D 3
  1342. [ Angle  ]^C^CVPOINT R;;
  1343. [from XY ]^C^CVPOINT R;;
  1344. [ Plane  ]^C^CVPOINT R;;
  1345. [    +80 ]<<80
  1346. [    +60 ]<<60
  1347. [    +45 ]<<45
  1348. [    +30 ]<<30
  1349. [    +10 ]<<10
  1350. [      0 ]<<0.0000001
  1351. [    -10 ]<<350
  1352. [    -30 ]<<330
  1353. [    -45 ]<<315
  1354. [    -60 ]<<300
  1355. [    -80 ]<<280
  1356. **PLINE 3
  1357. [PLINE:]^C^CPLINE
  1358.  
  1359. [Arc]ARC $S=X $S=PARC
  1360. Close
  1361. Halfwid
  1362. Length
  1363. Undo
  1364. Width
  1365.  
  1366. [FILL ON]'SETVAR FILLMODE 1
  1367. [FILL OFF]'SETVAR FILLMODE 0
  1368. **PARC 3
  1369. [POLYARC]
  1370.  
  1371. [angle]$S=X $S=PARCANG A
  1372. [CEnter]$S=X $S=PARCEN CE
  1373. [tanDir]DIR \DRAG
  1374. [Radius]$S=X $S=PARCRAD R
  1375. [2nd PT]S \DRAG
  1376. [CLose]$S=X $S=PLINE CLOSE
  1377.  
  1378. undo
  1379.  
  1380. [contline]$S=X $S=PLINE L
  1381.  
  1382. [PLINE:]$S=X $S=PLINE ^C^CPLINE
  1383. **PARCANG 3
  1384. [ANGLE]
  1385.  
  1386. [center]C drag $S=X $S=PARC
  1387. [radius]R \ $S=X $S=PARC
  1388. [drag]drag \ $S=X $S=PARC
  1389. **PARCEN 3
  1390. [CENTER]
  1391.  
  1392. [angle]A drag $S=X $S=PARC
  1393. [length]L drag $S=X $S=PARC
  1394. [drag]drag \ $S=X $S=PARC
  1395. **PARCRAD 3
  1396. [RADIUS]
  1397.  
  1398. [angle]A \drag $S=X $S=PARC
  1399. [drag]drag \ $S=X $S=PARC
  1400. **OFFSET 3
  1401. [OFFSET:]^C^COFFSET
  1402.  
  1403. Through
  1404. [last];
  1405. **ARC 3
  1406. [ARC]
  1407.  
  1408. [3-point:]^C^CARC \\DRAG
  1409. [S,C,E:]^C^CARC \C \DRAG
  1410. [S,C,A:]^C^CARC \C \A DRAG
  1411. [S,C,L:]^C^CARC \C \L DRAG
  1412. [S,E,A:]^C^CARC \E \A
  1413. [S,E,R:]^C^CARC \E \R
  1414. [S,E,D:]^C^CARC \E \D DRAG
  1415. [C,S,E:]^C^CARC C \\DRAG
  1416. [C,S,A:]^C^CARC C \\A DRAG
  1417. [C,S,L:]^C^CARC C \\L DRAG
  1418. [CONTIN:]^C^CARC ;DRAG
  1419. **popARC 3
  1420. [ARC]
  1421.  
  1422. [3-point:]*^C^CARC \\DRAG
  1423. [S,C,E:]*^C^CARC \C \DRAG
  1424. [S,C,A:]*^C^CARC \C \A DRAG
  1425. [S,C,L:]*^C^CARC \C \L DRAG
  1426. [S,E,A:]*^C^CARC \E \A
  1427. [S,E,R:]*^C^CARC \E \R
  1428. [S,E,D:]*^C^CARC \E \D DRAG
  1429. [C,S,E:]*^C^CARC C \\DRAG
  1430. [C,S,A:]*^C^CARC C \\A DRAG
  1431. [C,S,L:]*^C^CARC C \\L DRAG
  1432. [CONTIN:]^C^CARC ;DRAG
  1433. **CIRCLE 3
  1434. [CIRCLE]
  1435.  
  1436. [CEN,RAD:]^C^CCIRCLE \DRAG
  1437. [CEN,DIA:]^C^CCIRCLE \D
  1438. [2 POINT:]^C^CCIRCLE 2P \DRAG
  1439. [3 POINT:]^C^CCIRCLE 3P \\DRAG
  1440. [TTR:]^C^CCIRCLE TTR
  1441. **popCIRCL 3
  1442. [CIRCLE]
  1443.  
  1444. [CEN,RAD:]*^C^CCIRCLE \DRAG
  1445. [CEN,DIA:]*^C^CCIRCLE \D
  1446. [2 POINT:]*^C^CCIRCLE 2P \DRAG
  1447. [3 POINT:]*^C^CCIRCLE 3P \\DRAG
  1448. [TTR:]*^C^CCIRCLE TTR
  1449. **ASHADE 3
  1450. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
  1451. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1452. [ACTION]^C^C$S=X $S=ACTION
  1453. **LIGHTS 3
  1454. [LIGHT:]^C^CLIGHT
  1455.  
  1456. [Point]p
  1457. [Directed]d
  1458.  
  1459. [Filters]
  1460. .x
  1461. .y
  1462. .z
  1463. .xy
  1464. .xz
  1465. .yz
  1466.  
  1467. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1468. [ACTION]$S=X $S=ACTION
  1469. **CAMERA 3
  1470. [CAMERA:]^C^CCAMERA
  1471.  
  1472. [Filters]
  1473. .x
  1474. .y
  1475. .z
  1476. .xy
  1477. .xz
  1478. .yz
  1479.  
  1480.  
  1481.  
  1482.  
  1483. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
  1484. [ACTION]$S=X $S=ACTION
  1485. **ACTION 3
  1486. [ACTION]
  1487.  
  1488. [SCENE:]^C^CSCENE
  1489. [FLMROLL:]^C^CFILMROLL
  1490.  
  1491.  
  1492.  
  1493.  
  1494.  
  1495.  
  1496.  
  1497.  
  1498.  
  1499. [LIGHTS:]^C^C$S=X $S=LIGHTS LIGHT
  1500. [CAMERA:]^C^C$S=X $S=CAMERA CAMERA
  1501. **ELLIPSE 3
  1502. [ELLIPSE:]^C^CELLIPSE
  1503.  
  1504. [Center]C
  1505. Rotation
  1506. Iso
  1507. Diameter
  1508. **POLYGON 3
  1509. [POLYGON:]^C^CPOLYGON
  1510.  
  1511. Edge
  1512. [I-scribe]I
  1513. [C-scribe]C
  1514. **SHAPE 3
  1515. [SHAPE:]^C^CSHAPE
  1516. ?
  1517.  
  1518. [LOAD:]^C^CLOAD
  1519. ?
  1520. **SKETCH 3
  1521. [SKETCH:]^C^CSKETCH
  1522.  
  1523. Connect
  1524. Erase
  1525. Record
  1526.  
  1527. [eXit]x
  1528. Quit
  1529.  
  1530. [------]
  1531. [SKPOLY:]'SETVAR SKPOLY 1
  1532. [SKLINE:]'SETVAR SKPOLY 0
  1533. [------]
  1534. **SOLID 3
  1535. [SOLID:]^C^CSOLID
  1536.  
  1537. [FILL ON]'SETVAR FILLMODE 1
  1538. [FILL OFF]'SETVAR FILLMODE 0
  1539. **TRACE 3
  1540. [TRACE:]^C^CTRACE
  1541.  
  1542. [FILL ON]'SETVAR FILLMODE 1
  1543. [FILL OFF]'SETVAR FILLMODE 0
  1544. **POINT 3
  1545. [POINT:]^C^CPOINT
  1546. .x
  1547. .y
  1548. .z
  1549. .xy
  1550. .xz
  1551. .yz
  1552.  
  1553. [Complex]
  1554. [Points]
  1555. [example:]^C^CVSLIDE points
  1556. [remove]^C^CREDRAW
  1557. [example:]^C^CREDRAW
  1558. [Pdmode:]^C^CSETVAR PDMODE
  1559. [Pdsize:]^C^CSETVAR PDSIZE
  1560. **HATCH 3
  1561. [HATCH:]^C^CHATCH
  1562. ?
  1563.  
  1564. u
  1565. u,o
  1566. u,i
  1567. Yes
  1568.  
  1569. Window
  1570. Last
  1571. Previous
  1572. Crossing
  1573. Remove
  1574. Add
  1575. Undo
  1576. **3DLINE 3
  1577. [3DLINE:]^C^C3DLINE
  1578.  
  1579. [continue]^C^C3DLINE;;
  1580. close
  1581. undo
  1582. .x
  1583. .y
  1584. .z
  1585. .xy
  1586. .xz
  1587. .yz
  1588. **3DFACE 3
  1589. [3DFACE:]^C^C3DFACE
  1590.  
  1591. .x
  1592. .y
  1593. .z
  1594. .xy
  1595. .xz
  1596. .yz
  1597. **3DPOLY 3
  1598. [3DPOLY:]^C^C3DPOLY
  1599.  
  1600. Close
  1601. Undo
  1602. .x
  1603. .y
  1604. .z
  1605. .xy
  1606. .xz
  1607. .yz
  1608. **ID 3
  1609. [ID:]^C^CID
  1610.  
  1611. .x
  1612. .y
  1613. .z
  1614. .xy
  1615. .xz
  1616. .yz
  1617. **LIMITS 3
  1618.  
  1619. [LIMITS:]^C^CLIMITS
  1620.  
  1621. ON
  1622. OFF
  1623. **UCS1 3
  1624. [UCS:]^C^CUCS
  1625.  
  1626. Del
  1627. World
  1628. [Previous]Prev
  1629. Restore
  1630. Save
  1631.  
  1632. [RENAME:]^C^CRename UCS
  1633. ?
  1634.  
  1635. [Follow:]'SETVAR UCSFOLLOW
  1636.  
  1637. [next]$S=X $S=UCS2
  1638. **UCS2 3
  1639. [UCS:]$S=X $S=UCS1 ^C^CUCS
  1640.  
  1641. Origin
  1642. Zaxis
  1643. 3point
  1644.  
  1645. X
  1646. Y
  1647. Z
  1648.  
  1649. View
  1650. Entity
  1651.  
  1652. [previous]$S=X $S=UCS1
  1653. **UCSICON 3
  1654. [UCSICON:]^C^CUCSICON
  1655.  
  1656. ON
  1657. OFF
  1658.  
  1659. All
  1660. Origin
  1661. Noorigin
  1662. **PLAN 3
  1663. [PLAN:]^C^CPLAN
  1664.  
  1665. UCS
  1666. World
  1667.  
  1668. [Follow:]'SETVAR UCSFOLLOW
  1669. **LIST 3
  1670. [LIST:]^C^CLIST
  1671.  
  1672. Window
  1673. Last
  1674. Previous
  1675. Crossing
  1676. Remove
  1677. Add
  1678. Undo
  1679. **AREA 3
  1680. [AREA:]^C^CAREA
  1681.  
  1682. Entity
  1683. Add
  1684. Subtract
  1685. **TEXT 3
  1686. [TEXT:]^C^CTEXT
  1687. [DTEXT:]^C^CDTEXT
  1688.  
  1689. aligned
  1690. [centered]C
  1691. fit
  1692. middle
  1693. right
  1694. style
  1695.  
  1696. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1697. **TEXTSET 5
  1698. [DTEXT]$S=X $S=DTEXT ^C^C$T4=DTEXT1 $T4=DTEXT2
  1699.  
  1700. [REG.TEXT]$S=X $S=TEXT ^C^C$T4=TEXT1 $T4=TEXT2
  1701.  
  1702. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1703. **STYLE 3
  1704. [STYLE:]^C^CSTYLE
  1705. ?
  1706.  
  1707. [Fonts]$S=X $S=F1
  1708.  
  1709. Yes
  1710. No
  1711.  
  1712. [DTEXT:]$S=X $S=DTEXT ^C^CDTEXT
  1713. [TEXT:]$S=X $S=TEXT ^C^CTEXT
  1714. **F1 3
  1715. Cyrillic
  1716. Cyriltlc
  1717. Greekc
  1718. Greeks
  1719. Gothice
  1720. Gothicg
  1721. Gothici
  1722. Italicc
  1723. Italict
  1724. Romanc
  1725. Romand
  1726. Romans
  1727.  
  1728.  
  1729.  
  1730.  
  1731. [next]$S=X $S=F2
  1732. [STYLMNU]$S=X $S=STYLE
  1733. **F2 3
  1734. Romant
  1735. Scriptc
  1736. Scripts
  1737. Syastro
  1738. Symap
  1739. Symath
  1740. Symeteo
  1741. Symusic
  1742.  
  1743.  
  1744.  
  1745.  
  1746.  
  1747.  
  1748.  
  1749.  
  1750. [previous]$S=X $S=F1
  1751. [STYLMNU]$S=X $S=STYLE
  1752. **DTEXT 3
  1753. [DTEXT:]^C^CDTEXT
  1754. [TEXT:]^C^CTEXT
  1755.  
  1756. [centered]C
  1757. right
  1758. aligned
  1759. middle
  1760. fit
  1761. style
  1762.  
  1763. [STYLE:]$S=X $S=STYLE ^C^CSTYLE
  1764. **AXIS 3
  1765. [AXIS:]^C^CAXIS
  1766.  
  1767. [axs=snap]SNAP
  1768.  
  1769. ON
  1770. OFF
  1771. Aspect
  1772. **BLIPMODE 3
  1773. [BLIPS:]^C^CBLIPMODE
  1774.  
  1775. ON
  1776. OFF
  1777. **END 3
  1778. END ?
  1779.  
  1780. [Yes]^C^CEND
  1781. [No]$S=X $S=S
  1782. **QUIT 3
  1783. [QUIT:]^c^cquit
  1784.  
  1785. [Yes]Y
  1786. [No]n $S=X $S=S
  1787. **VAR1 3
  1788. [dimalt]$S=X $S=OF DIMALT \
  1789. [dimaltd]DIMALTD \
  1790. [dimaltf]DIMALTF \
  1791. [dimapost]DIMAPOST \
  1792. [dimaso]$S=X $S=OF DIMASO \
  1793. [dimasz]DIMASZ \
  1794. [--------]
  1795. [dimblk]DIMBLK \
  1796. [dimblk1]DIMBLK1 \
  1797. [dimblk2]DIMBLK2 \
  1798. [--------]
  1799. [dimcen]DIMCEN \
  1800. [dimdle]DIMDLE \
  1801. [dimdli]DIMDLI \
  1802. [dimexe]DIMEXE \
  1803.  
  1804. [next]$S=X $S=VAR2
  1805. [DIMMENU]$S=X $S=DIM
  1806.  
  1807.  
  1808. **VAR2 3
  1809. [dimexo]DIMEXO \
  1810. [dimlfac]DIMLFAC \
  1811. [dimlim]$S=X $S=OF DIMLIM \
  1812. [dimpost]DIMPOST \
  1813. [dimrnd]DIMRND \
  1814. [dimsah]$S=X $S=OF DIMSAH \
  1815. [dimscale]DIMSCALE \
  1816. [dimse1]$S=X $S=OF DIMSE1 \
  1817. [dimse2]$S=X $S=OF DIMSE2 \
  1818. [dimsho]$S=X $S=OF DIMSHO \
  1819. [dimsoxd]$S=X $S=OF DIMSOXD \
  1820. [dimtad]$S=X $S=OF DIMTAD \
  1821. [dimtih]$S=X $S=OF DIMTIH \
  1822. [dimtix]$S=X $S=OF DIMTIX \
  1823.  
  1824. [previous]$S=X $S=VAR1
  1825. [next]$S=X $S=VAR3
  1826. [DIMMENU]$S=X $S=DIM
  1827.  
  1828.  
  1829. **VAR3 3
  1830. [dimtm]DIMTM \
  1831. [dimtofl]$S=X $S=OF DIMTOFL \
  1832. [dimtoh]$S=X $S=OF DIMTOH \
  1833. [dimtol]$S=X $S=OF DIMTOL \
  1834. [dimtp]DIMTP \
  1835. [dimtsz]DIMTSZ \
  1836. [dimtvp]DIMTVP \
  1837. [dimtxt]DIMTXT \
  1838. [dimzin]$S=X $S=DIMZIN DIMZIN \
  1839.  
  1840.  
  1841.  
  1842.  
  1843.  
  1844.  
  1845.  
  1846. [previous]$S=X $S=VAR2
  1847. [DIMMENU]$S=X $S=DIM
  1848. **OF 3
  1849. [ON]$S= $S= ON
  1850.  
  1851. [OFF]$S= $S= OFF
  1852. **DIMZIN 4
  1853. [  New]
  1854. [ Dimzin]
  1855. [ Value]
  1856.  
  1857.  
  1858.  
  1859.  
  1860. [0]$S= $S= 0
  1861. [1]$S= $S= 1
  1862. [2]$S= $S= 2
  1863. [3]$S= $S= 3
  1864. **FORMAT 3
  1865. [DIM:]^C^CDIM
  1866. [DIM1:]^C^CDIM1
  1867.  
  1868. [HOMETEXT]$S=X $S=HOMETEXT HOMETEXT
  1869. [UPDATE]$S=X $S=UPDATE UPDATE
  1870. [NEWTEXT]$S=X $S=NEWTEXT NEWTEXT
  1871.  
  1872.  
  1873.  
  1874.  
  1875.  
  1876.  
  1877.  
  1878.  
  1879.  
  1880. [DIMMENU]$S=X $S=DIM
  1881. **HOMETEXT 3
  1882. [DIM:]^C^CDIM
  1883. [DIM1:]^C^CDIM1
  1884.  
  1885. HOMETEXT
  1886.  
  1887. Window
  1888. Last
  1889. Previous
  1890. Crossing
  1891. Remove
  1892. Add
  1893. Undo
  1894. **UPDATE 3
  1895. [DIM:]^C^CDIM
  1896. [DIM1:]^C^CDIM1
  1897.  
  1898. UPDATE
  1899.  
  1900. Window
  1901. Last
  1902. Previous
  1903. Crossing
  1904. Remove
  1905. Add
  1906. Undo
  1907. **NEWTEXT 3
  1908. [DIM:]^C^CDIM
  1909. [DIM1:]^C^CDIM1
  1910.  
  1911. [NEWTEXT]NEWTEXT
  1912.  
  1913. Window
  1914. Last
  1915. Previous
  1916. Crossing
  1917. Remove
  1918. Add
  1919. Undo
  1920. **LINETYPE 3
  1921. [LINETYP:]^C^CLINETYPE
  1922. ?
  1923.  
  1924. Create
  1925. Load
  1926. [Set]S $S=X $S=CHLT \$S=X $S=LINETYPE
  1927.  
  1928. Yes
  1929. No
  1930. **LIMITS 3
  1931. [LIMITS:]^C^CLIMITS
  1932.  
  1933. On
  1934. Off
  1935. **SNAP 3
  1936. [SNAP:]^C^CSNAP
  1937.  
  1938. ON
  1939. OFF
  1940. [Aspect]$S=X ASPECT
  1941. [Rotate]$S=X ROTATE
  1942. [Style]S $S=X $S=SNAPSTYLE
  1943. **SNAPSTYLE 11
  1944. Iso
  1945. Standard
  1946. **TABLET 3
  1947. [TABLET:]^C^CTABLET
  1948.  
  1949. cal
  1950. [config]CFG 4 26 12 1 10 11 10 26 2 Y
  1951. [re-cfg]CFG 4 Y 26 12 1 10 11 10 26 2 Y
  1952. ON
  1953. OFF
  1954. Yes
  1955. No
  1956. **OSNAPC 3
  1957. [OSNAP:]^C^COSNAP
  1958.  
  1959. [CENter]CENTER\
  1960. [ENDpoint]ENDPOINT\
  1961. [INSert]INSERT\
  1962. [INTersec]INTERSEC\
  1963. [MIDpoint]MIDPOINT\
  1964. [NEArest]NEAREST\
  1965. [NODe]NODE\
  1966. [PERpend]PERPEND\
  1967. [QUAdrant]QUADRANT\
  1968. [TANgent]TANGENT\
  1969. [NONE]^C^COSNAP NONE $S= $S=
  1970. [Quick,]QUICK,^Z
  1971. [,],\
  1972. **DRAGMODE 3
  1973. [DRAGMODE]^C^CDRAGMODE
  1974.  
  1975. [ON]ON $S=X $S=S
  1976. [OFF]OFF $S=X $S=S
  1977. [Auto]A $S=X $S=S
  1978. **ELEV 3
  1979. [ELEV:]^C^CELEV
  1980. **GRID 3
  1981. [GRID:]^C^CGRID
  1982.  
  1983. [grd=snap]SNAP
  1984.  
  1985. ON
  1986. OFF
  1987. Aspect
  1988. **HANDLES 3
  1989. [HANDLES:]^C^CHANDLES
  1990.  
  1991. [ON]ON
  1992. [DESTROY]DESTROY
  1993.  
  1994. **SETVAR 3
  1995. [SETVAR:]^C^CSETVAR
  1996. ?
  1997.  
  1998. ['SETVAR]'SETVAR
  1999. **QTEXT 3
  2000. [QTEXT:]^C^CQTEXT
  2001.  
  2002. ON
  2003. OFF
  2004. [REGEN:]REGEN
  2005. **VIEWRES 3
  2006. [VIEWRES:]^C^CVIEWRES
  2007.  
  2008. No
  2009. Yes
  2010.  
  2011. 100
  2012. 500
  2013.  
  2014. [RGNAUTO:]^C^CREGENAUTO
  2015. **APERTURE 3
  2016. [APERTUR:]'SETVAR APERTURE
  2017. [PICKBOX:]'SETVAR PICKBOX
  2018.  
  2019. [1]$S= $S= 1
  2020. [2]$S= $S= 2
  2021. [3]$S= $S= 3
  2022. [4]$S= $S= 4
  2023. [5]$S= $S= 5
  2024. [6]$S= $S= 6
  2025. [7]$S= $S= 7
  2026. [8]$S= $S= 8
  2027. [9]$S= $S= 9
  2028. [10]$S= $S= 10
  2029. [15]$S= $S= 15
  2030. **ARRAY 3
  2031. [ARRAY:]^C^CARRAY
  2032.  
  2033. Window
  2034. Last
  2035. Previous
  2036. Crossing
  2037. Remove
  2038. Add
  2039. Undo
  2040.  
  2041. Rectang
  2042. Polar
  2043. Yes
  2044. No
  2045. **ROTATE 3
  2046. [ROTATE:]^C^CROTATE
  2047.  
  2048. Window
  2049. Last
  2050. Previous
  2051. Crossing
  2052. Remove
  2053. Add
  2054. Undo
  2055.  
  2056. Referenc
  2057. **SELECT 3
  2058. [SELECT:]^C^CSELECT
  2059.  
  2060. Window
  2061. Last
  2062. Previous
  2063. Crossing
  2064. Remove
  2065. Add
  2066. Undo
  2067. **SCALE 3
  2068. [SCALE:]^C^CSCALE
  2069.  
  2070. Window
  2071. Last
  2072. Previous
  2073. Crossing
  2074. Remove
  2075. Add
  2076. Undo
  2077.  
  2078. Referenc
  2079. **BREAK 3
  2080. [BREAK:]^C^CBREAK
  2081.  
  2082. First
  2083. @
  2084. **BREAK2P 3
  2085. [BREAK:]^C^CBREAK \F
  2086. **BREAKSPL 3
  2087. [BREAK:]^C^CBREAK \F \@
  2088. **MOVE 3
  2089. [MOVE:]^C^CMOVE
  2090.  
  2091. Window
  2092. Last
  2093. Previous
  2094. Crossing
  2095. Remove
  2096. Add
  2097. Undo
  2098. **COPY 3
  2099. [COPY:]^C^CCOPY
  2100.  
  2101. Window
  2102. Last
  2103. Previous
  2104. Crossing
  2105. Remove
  2106. Add
  2107. Undo
  2108.  
  2109. Multiple
  2110. **UNDO 3
  2111. [UNDO:]^C^CUNDO
  2112.  
  2113. [Back 1]^C^CUNDO 1
  2114.  
  2115. Auto
  2116. Back
  2117. End
  2118. Group
  2119. Mark
  2120. [Control]$S=X $S=UNDOC Control
  2121.  
  2122. Yes
  2123. No
  2124.  
  2125. [REDO:]REDO
  2126. **UNDOC 11
  2127. All
  2128. None
  2129. One
  2130. **ERASE 3
  2131. [ERASE:]^C^CERASE
  2132.  
  2133. Window
  2134. Last
  2135. Previous
  2136. Crossing
  2137. Remove
  2138. Add
  2139. Undo
  2140.  
  2141. [OOPS:]^C^COOPS
  2142. **P0 3
  2143. [PEDIT:]^C^C^P(defun m:p(/ m:pa m:pb)(while (null (setq m:pa (car (entsel +
  2144. "Select Polyline: ")))))(menucmd "S=X")(if (= (setq m:pb (cdr +
  2145. (assoc 70 (entget m:pa)))) nil)(progn (menucmd "S=P0")(menucmd "P3=PL"));+
  2146. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(progn (menucmd "S=P16")+
  2147. (menucmd "P3=PM"))(if(< m:pb 4)(progn(menucmd "S=P0")(menucmd "P3=PL"))+
  2148. (progn(menucmd "S=P8")(menucmd "P3=PL"))))))(menucmd "P3=*");+
  2149. (command "PEDIT" m:pa pause)(menucmd "p3=pop3")(setq *error* m:err m:err nil)+
  2150. (princ))(defun perror (msg)(menucmd "p3=pop3")+
  2151. (setq *error* m:err m:err nil)(princ))(defun C:PEDITM (/ m:err);+
  2152. (setq m:err *error* *error* perror)(m:p)(princ))(princ) PEDITM ^P
  2153.  
  2154. Last
  2155. Yes
  2156. No
  2157. Close
  2158. Open
  2159. Join
  2160. Width
  2161. [Ed Vrtx]E $S=X $S=PVERTED
  2162. [Fit Curv]Fit
  2163. Spline
  2164. Decurve
  2165. [Undo]U
  2166. [eXit]^c^c$S=X $S=S
  2167. **P8 3
  2168. [PEDIT:]^C^C^P(defun m:p(/ m:pa m:pb)(while (null (setq m:pa (car (entsel +
  2169. "Select Polyline: ")))))(menucmd "S=X")(if (= (setq m:pb (cdr +
  2170. (assoc 70 (entget m:pa)))) nil)(progn (menucmd "S=P0")(menucmd "P3=PL"));+
  2171. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(progn (menucmd "S=P16")+
  2172. (menucmd "P3=PM"))(if(< m:pb 4)(progn(menucmd "S=P0")(menucmd "P3=PL"))+
  2173. (progn(menucmd "S=P8")(menucmd "P3=PL"))))))(menucmd "P3=*");+
  2174. (command "PEDIT" m:pa pause)(menucmd "p3=pop3")(setq *error* m:err m:err nil)+
  2175. (princ))(defun perror (msg)(menucmd "p3=pop3")+
  2176. (setq *error* m:err m:err nil)(princ))(defun C:PEDITM (/ m:err);+
  2177. (setq m:err *error* *error* perror)(m:p)(princ))(princ) PEDITM ^P
  2178.  
  2179. Last
  2180.  
  2181. Close
  2182. Open
  2183. [Ed Vrtx]E $S=X $S=3DPVERTED
  2184. Spline
  2185. Decurve
  2186. [Undo]U
  2187. [eXit]^C^C$S=X $S=S
  2188. **P16 3
  2189. [PEDIT:]^C^C^P(defun m:p(/ m:pa m:pb)(while (null (setq m:pa (car (entsel +
  2190. "Select Polyline: ")))))(menucmd "S=X")(if (= (setq m:pb (cdr +
  2191. (assoc 70 (entget m:pa)))) nil)(progn (menucmd "S=P0")(menucmd "P3=PL"));+
  2192. (progn (setq m:pb (/ m:pb 2))(if (>= m:pb 8)(progn (menucmd "S=P16")+
  2193. (menucmd "P3=PM"))(if(< m:pb 4)(progn(menucmd "S=P0")(menucmd "P3=PL"))+
  2194. (progn(menucmd "S=P8")(menucmd "P3=PL"))))))(menucmd "P3=*");+
  2195. (command "PEDIT" m:pa pause)(menucmd "p3=pop3")(setq *error* m:err m:err nil)+
  2196. (princ))(defun perror (msg)(menucmd "p3=pop3")+
  2197. (setq *error* m:err m:err nil)(princ))(defun C:PEDITM (/ m:err);+
  2198. (setq m:err *error* *error* perror)(m:p)(princ))(princ) PEDITM ^P
  2199.  
  2200. [Ed Vrtx]E $S=X $S=3DMVERTED
  2201. Smooth
  2202. Desmooth
  2203. [Mclose]M
  2204. [Nclose]N
  2205. [Mopen]M
  2206. [Nopen]N
  2207.  
  2208. [UDensity]'SETVAR SURFU
  2209. [VDensity]'SETVAR SURFV
  2210.  
  2211. [Undo]U
  2212. [eXit]^C^C$S=X $S=S
  2213. **PVERTED 3
  2214. [ED VRTX]
  2215.  
  2216. Next
  2217. Previous
  2218. Break
  2219. Insert
  2220. Move
  2221. Straight
  2222. Width
  2223. Tangent
  2224. Go
  2225. Regen
  2226. [Undo]X U $S=X $S=P0
  2227. [eXit]X $S=X $S=P0
  2228. **3DPVERTED 3
  2229. [ED VRTX]
  2230.  
  2231. Next
  2232. Previous
  2233. Break
  2234. Insert
  2235. Move
  2236. Regen
  2237. Straight
  2238. [eXit]X $S=X $S=P8
  2239. **3DMVERTED 3
  2240. [ED VRTX]
  2241.  
  2242. Next
  2243. Previous
  2244. Left
  2245. Right
  2246. Up
  2247. Down
  2248. Move
  2249. Regen
  2250. [eXit]X $S=X $S=P16
  2251. **TRIM 3
  2252. [TRIM:]^C^CTRIM
  2253.  
  2254. Window
  2255. Last
  2256. Previous
  2257. Crossing
  2258. Remove
  2259. Add
  2260. Undo
  2261. **ATTEXT 3
  2262. [ATTEXT:]^C^CATTEXT
  2263.  
  2264. CDF
  2265. SDF
  2266. DXF
  2267. ENTITIES
  2268.  
  2269. Window
  2270. Last
  2271. Previous
  2272. Crossing
  2273. Remove
  2274. Add
  2275. Undo
  2276. **SLIDES 3
  2277. [MSLIDE:]^C^CMSLIDE
  2278.  
  2279. Yes
  2280. No
  2281.  
  2282. [VSLIDE:]^C^CVSLIDE
  2283. **SCRIPT 3
  2284. [SCRIPT:]^C^CSCRIPT
  2285.  
  2286. [DELAY:]^C^CDELAY
  2287. [RESUME:]^C^CRESUME
  2288. [RSCRIPT:]^C^CRSCRIPT
  2289. **PURGE 3
  2290. [PURGE:]PURGE
  2291. Blocks
  2292. LAyers
  2293. LTypes
  2294. Styles
  2295. All
  2296.  
  2297. Yes
  2298. No
  2299. **RENAME 3
  2300. [RENAME:]^C^CRENAME
  2301. Block
  2302. LAyer
  2303. LType
  2304. Style
  2305. View
  2306. UCS
  2307.  
  2308. **DXF 3
  2309. [DXFIN:]^C^CDXFIN
  2310.  
  2311. [DXFOUT:]^C^CDXFOUT
  2312. 16
  2313. Entities
  2314.  
  2315. Window
  2316. Last
  2317. Previous
  2318. Crossing
  2319. Remove
  2320. Add
  2321. Undo
  2322.  
  2323. [DXBIN:]^C^CDXBIN
  2324. **IGES 3
  2325. [IGESIN:]^C^CIGESIN
  2326.  
  2327. [IGESOUT:]^C^CIGESOUT
  2328. **EXTEND 3
  2329. [EXTEND:]^C^CEXTEND
  2330.  
  2331. Window
  2332. Last
  2333. Previous
  2334. Crossing
  2335. Remove
  2336. Add
  2337. Undo
  2338.  
  2339. [SELECT:]^C^CSELECT
  2340. [ZOOM W:]'ZOOM W
  2341. **STRETCH 3
  2342. [STRETCH:]^C^CSTRETCH C
  2343.  
  2344. Window
  2345. Last
  2346. Previous
  2347. Crossing
  2348. Remove
  2349. Add
  2350. Undo
  2351. **MIRROR 3
  2352. [MIRROR:]^C^CMIRROR
  2353. Window
  2354. Last
  2355. Previous
  2356. Crossing
  2357. Remove
  2358. Add
  2359. Undo
  2360.  
  2361. Yes
  2362. No
  2363. **FILLET0 3
  2364. [FILLET:0]^FILLET R 0;;
  2365.  
  2366. [polyline]P
  2367. **FILLET 3
  2368. [FILLET:]^C^CFILLET
  2369.  
  2370. [radius]R \FILLET
  2371. [radius 0]R 0 FILLET
  2372. polyline
  2373. **CHAMFER 3
  2374. [CHAMFER:]^C^CCHAMFER
  2375.  
  2376. [distance]D \\CHAMFER
  2377. [dist = 0]D 0 0 CHAMFER
  2378. polyline
  2379. **DIVIDE 3
  2380. [DIVIDE:]^C^CDIVIDE
  2381.  
  2382. Block
  2383. Yes
  2384. No
  2385. **MEASURE 3
  2386. [MEASURE:]^C^CMEASURE
  2387.  
  2388. Block
  2389. Yes
  2390. No
  2391. **CHANGE 3
  2392. [CHANGE:]^C^CCHANGE
  2393. Window
  2394. Last
  2395. Previous
  2396. Crossing
  2397. Remove
  2398. Add
  2399. Undo
  2400. [Color]PROP COLOR $S=X $S=CHCOLOR \ $S=X $S=CHANGE
  2401. [Chroma]^C^CVSLIDE chroma
  2402. [ Restore]^C^CREDRAW
  2403. [Elev]PROP ELEV
  2404. [LAyer]PROP LAYER
  2405. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHANGE
  2406. [Thicknes]PROP THICKNESS
  2407. **CHPROP 3
  2408. [CHPROP:]^C^CCHPROP
  2409.  
  2410. Window
  2411. Last
  2412. Previous
  2413. Crossing
  2414.  
  2415. [Color]PROP COLOR $S=X $S=CHCOLOR \$S=X $S=CHPROP
  2416. [Chroma]^C^CVSLIDE chroma
  2417. [ Restore]^C^CREDRAW
  2418. [LAyer]PROP LAYER
  2419. [LType]PROP LT $S=X $S=CHLT \$S=X $S=CHPROP
  2420. [Thicknes]PROP THICKNESS
  2421. **CHCOLOR 3
  2422. COLOR
  2423.  
  2424. [bylayer]BYLAYER
  2425. [byblock]BYBLOCK
  2426.  
  2427. [red]RED
  2428. [yellow]YELLOW
  2429. [green]GREEN
  2430. [cyan]CYAN
  2431. [blue]BLUE
  2432. [magenta]MAGENTA
  2433. [white]WHITE
  2434.  
  2435.  
  2436.  
  2437.  
  2438. **CHLT 3
  2439. LTYPE
  2440.  
  2441. [bylayer]BYLAYER
  2442. [byblock]BYBLOCK
  2443.  
  2444. [contin.]CONTINUOUS
  2445. [dashed]DASHED
  2446. [hidden]HIDDEN
  2447. [center]CENTER
  2448. [phantom]PHANTOM
  2449. [dot]DOT
  2450. [dashdot]DASHDOT
  2451. [border]BORDER
  2452.  
  2453.  
  2454.  
  2455. **COLOR 3
  2456. [COLOR:]^C^CCOLOR
  2457. bylayer
  2458. byblock
  2459. red
  2460. yellow
  2461. green
  2462. cyan
  2463. blue
  2464. magenta
  2465. white
  2466.  
  2467. [Chroma]^C^CVSLIDE chroma
  2468. [ Restore]^C^CREDRAW
  2469. **ATTEDIT 3
  2470. [ATTEDIT:]^C^CATTEDIT
  2471. Window
  2472. Last
  2473. Previous
  2474. Crossing
  2475. Remove
  2476. Add
  2477. Undo
  2478. [Value]Value $S=X $S=ATTEDIT2
  2479. Position
  2480. Height
  2481. Angle
  2482. Style
  2483. Layer
  2484. [Color] $S=X $S=ATTCOLOR C
  2485. Next
  2486.  
  2487. [__LAST__]$S= $S=
  2488. **ATTEDIT2 3
  2489.  
  2490. [Change]Change $S=X $S=ATTEDIT
  2491. [Replace]Replace $S=X $S=ATTEDIT
  2492. **ATTCOLOR 3
  2493. [COLOR]
  2494.  
  2495. [red]RED $S= $S=
  2496. [yellow]YELLOW $S= $S=
  2497. [green]GREEN $S= $S=
  2498. [cyan]CYAN $S= $S=
  2499. [blue]BLUE $S= $S=
  2500. [magenta]MAGENTA $S= $S=
  2501. [white]WHITE $S= $S=
  2502. **UNITS 2
  2503.  
  2504. [UNIT    ]
  2505. [TYPE    ]
  2506.  
  2507. [scientfc]1;
  2508.  
  2509. [decimal ]2;
  2510.  
  2511. [enginrng]3;
  2512.  
  2513. [archtect]4;
  2514.  
  2515. [metric  ]5;
  2516.  
  2517.  
  2518.  
  2519.  
  2520.  
  2521.  
  2522. **U1 2
  2523.  
  2524. [Scientfc]
  2525. [Scale   ]
  2526.  
  2527.  
  2528. [4 TIMES ]4.0;
  2529.  
  2530. [2 TIMES ]2.0;
  2531.  
  2532. [FULL    ]1.0;
  2533.  
  2534. [HALF    ]0.5;
  2535.  
  2536. [QUARTER ]0.25;
  2537.  
  2538. [OTHER   ]^P0;^P
  2539.  
  2540.  
  2541.  
  2542.  
  2543. **U2 2
  2544.  
  2545. [Decimal ]
  2546. [Scale   ]
  2547.  
  2548.  
  2549. [4 TIMES ]4.0;
  2550.  
  2551. [2 TIMES ]2.0;
  2552.  
  2553. [FULL    ]1.0;
  2554.  
  2555. [HALF    ]0.5;
  2556.  
  2557. [QUARTER ]0.25;
  2558.  
  2559. [OTHER   ]^P0;^P
  2560.  
  2561.  
  2562.  
  2563.  
  2564. **U3 2
  2565.  
  2566. [Enginrng]
  2567. [Scale   ]
  2568.  
  2569.  
  2570. [1"=10'  ]120.0;
  2571. [1"=20'  ]240.0;
  2572.  
  2573. [1"=30'  ]360.0;
  2574. [1"=40'  ]480.0;
  2575.  
  2576. [1"=50'  ]600.0;
  2577. [1"=60'  ]720.0;
  2578.  
  2579. [1"=80'  ]960.0;
  2580. [1"=100' ]1200.0;
  2581.  
  2582. [OTHER   ]^P0;^P
  2583.  
  2584.  
  2585. **U4 2
  2586.  
  2587. [Archtect]
  2588.  
  2589.  
  2590. [1/40"=1']480.0;
  2591. [1/20"=1']240.0;
  2592. [1/16"=1']192.0;
  2593. [ 1/8"=1']96.0;
  2594. [ 1/4"=1']48.0;
  2595.  
  2596. [ 1/2"=1']24.0;
  2597. [ 3/4"=1']16.0;
  2598. [   1"=1']12.0;
  2599. [   3"=1']4.0;
  2600. [   6"=1']2.0;
  2601. [  FULL  ]1.0;
  2602.  
  2603. [OTHER...]^P0;^P
  2604.  
  2605.  
  2606. **U5 2
  2607.  
  2608. [Metric  ]
  2609.  
  2610. [ 1:5000 ]5000.0;
  2611. [ 1:2000 ]2000.0;
  2612. [ 1:1000 ]1000.0;
  2613. [ 1:500  ]500.0;
  2614. [ 1:200  ]200.0;
  2615.  
  2616. [ 1:100  ]100.0;
  2617. [ 1:75   ]75.0;
  2618. [ 1:50   ]50.0;
  2619. [ 1:20   ]20.0;
  2620. [ 1:10   ]10.0;
  2621. [ 1:5    ]5.0;
  2622. [  FULL  ]1.0;
  2623.  
  2624. [OTHER...]^P0;^P
  2625.  
  2626.  
  2627. **ENGLISH 2
  2628.  
  2629. [Horizntl]
  2630.  
  2631. [ Sheet  ]
  2632. [ Size   ]
  2633.  
  2634. [A-8.5x11]11.0 8.5;
  2635. [B- 11x17]17.0 11.0;
  2636. [C- 22x34]34.0 22.0;
  2637. [   18x24]24.0 18.0;
  2638.  
  2639. [D- 24X36]36.0 24.0;
  2640. [   30x42]42.0 30.0;
  2641. [E- 36x42]42.0 36.0;
  2642.  
  2643. [OTHER...]^P0 0;^P
  2644.  
  2645. [VERTCAL>]$S=X $S=ENGVERT
  2646.  
  2647.  
  2648. **ENGVERT 2
  2649.  
  2650. [Vertical]
  2651.  
  2652. [ Sheet  ]
  2653. [ Size   ]
  2654.  
  2655. [A-8.5x11]8.5 11.0;
  2656. [B- 11x17]11.0 17.0;
  2657. [C- 22x34]22.0 34.0;
  2658. [   18x24]18.0 24.0;
  2659.  
  2660. [D- 24X36]24.0 36.0;
  2661. [   30x42]30.0 42.0;
  2662. [E- 36x42]36.0 42.0;
  2663.  
  2664. [OTHER...]^P0 0;^P
  2665.  
  2666. [HORZNTL>]$S=X $S=ENGLISH
  2667.  
  2668.  
  2669. **METRIC 2
  2670.  
  2671. [Horizntl]
  2672.  
  2673. [ Sheet  ]
  2674. [ Size   ]
  2675.  
  2676. [1189x841]1189.0 841.0;
  2677. [1000x707]1000.0 707.0;
  2678. [ 841x594]841.0 594.0;
  2679.  
  2680. [ 594x420]594.0 420.0;
  2681. [ 420x297]420.0 297.0;
  2682. [ 297x210]297.0 210.0;
  2683.  
  2684. [OTHER...]^P0 0;^P
  2685.  
  2686.  
  2687. [VERTCAL>]$S=X $S=METRICVERT
  2688.  
  2689.  
  2690. **METRICVERT 2
  2691.  
  2692. [Vertical]
  2693.  
  2694. [ Sheet  ]
  2695. [ Size   ]
  2696.  
  2697. [1189x841]841.0 1189.0;
  2698. [1000x707]707.0 1000.0;
  2699. [ 841x594]594.0 841.0;
  2700.  
  2701. [ 594x420]420.0 594.0;
  2702. [ 420x297]297.0 420.0;
  2703. [ 297x210]210.0 297.0;
  2704.  
  2705. [OTHER...]^P0 0;^P
  2706.  
  2707.  
  2708. [HORZNTL>]$S=X $S=METRIC
  2709.  
  2710.  
  2711. **CHTEMP 3
  2712. [Change  ]
  2713. [Template]
  2714.  
  2715. [Arch...]/aec/a/m/aec-a
  2716. [Mech...]/aec/m/m/aec-m
  2717. **EXCOMDS 3
  2718. [CATALOG]CATALOG
  2719. [DEL:]DEL
  2720. [DIR:]DIR
  2721. [EDIT:]EDIT
  2722. [SH:]SH
  2723. [SHELL:]SHELL
  2724. [TYPE:]TYPE
  2725. ***TABLET1
  2726. [1.1]^C
  2727. [1.2]
  2728. [1.3]
  2729. [1.4]
  2730. [1.5]
  2731. [1.6]
  2732. [2.1]
  2733. [2.2]
  2734. [2.3]
  2735. [2.4]
  2736. [2.5]
  2737. [2.6]
  2738. [3.1]
  2739. [3.2]
  2740. [3.3]
  2741. [3.4]
  2742. [3.5]
  2743. [3.6]
  2744. [4.1]
  2745. [4.2]
  2746. [4.3]
  2747. [4.4]
  2748. [4.5]
  2749. [4.6]
  2750. [5.1]
  2751. [5.2]
  2752. [5.3]
  2753. [5.4]
  2754. [5.5]
  2755. [5.6]
  2756. [6.1]^C(AL "QTRA1" "PIM/QCU");QTRA1;
  2757. [6.2]^C(AL "QLI" "PIM/QMN");QLI;
  2758. [6.3]
  2759. [6.4]^C(AL "STYK" "HZ/STY");STYK;
  2760. [6.5]
  2761. [6.6]^C(AL "STY0" "HZ/STY");STY0;
  2762. [7.1]^C(AL "QED" "PIM/QCU");QED;
  2763. [7.2]^C(AL "QXX" "PIM/QCU");QXX;
  2764. [7.3]^C(AL "QDI" "PIM/QMN");QDI;
  2765. [7.4]^C(AL "STY" "HZ/STY");STY;
  2766. [7.5]^C(AL "STY2" "HZ/STY");STY2;
  2767. [7.6]^C(AL "STYF" "HZ/STY");STYF;
  2768. [8.1]^C(AL "QCU" "PIM/QCU");QCU;
  2769. [8.2]^C(AL "QTP" "PIM/QPT");QTP;
  2770. [8.3]^C(AL "QDI1" "PIM/QMN");QDI1;
  2771. [8.4]
  2772. [8.5]
  2773. [8.6]
  2774. [9.1]^C(AL "QEX" "PIM/QCU");QEX;
  2775. [9.2]^C(AL "QPT" "PIM/QPT");QPT;
  2776. [9.3]^C(AL "QDI2" "PIM/QMN");QDI2;
  2777. [9.4]^C(AL "HCS1" "HZ/HZT");HCS1;
  2778. [9.5]^C(AL "HZT" "HZ/HZT");HZT;
  2779. [9.6]^C(AL "HZT2" "HZ/HZT");HZT2;
  2780. [10.1]^C(AL "QTR" "PIM/QCU");QTR;
  2781. [10.2]^C(AL "QTRA" "PIM/QCU");QTRA;
  2782. [10.3]^C(AL "QDI3" "PIM/QMN");QDI3;
  2783. [10.4]^C(AL "HCS" "HZ/HCS");HCS;
  2784. [10.5]^C(AL "HZW" "HZ/HCS");HZW;
  2785. [10.6]^C(AL "HZW2" "HZ/HCS");HZW2;
  2786. ***TABLET2
  2787. [1.1]^Cscript;(strcat "j0k/vv");
  2788. []^Cscript;(strcat "j1k/vv");
  2789. []^Cscript;(strcat "j2k/vv");
  2790. []^Cscript;(strcat "j3k/vv");
  2791. []^Cscript;(strcat "j4k/vv");
  2792. []^Cscript;(strcat "j5k/vv");
  2793. []^Cscript;(strcat "j6k/vv");
  2794. []^Cscript;(strcat "j7k/vv");
  2795. []^Cscript;(strcat "j8k/vv");
  2796. []^Cscript;(strcat "j9k/vv");
  2797. []^Cscript;(strcat "j10k/vv");
  2798. []resume;
  2799. [2.1]^C(setq k (getstring "enter name K:"));\+
  2800. insert;(strcat "j0k/" k);
  2801. []^C(setq k (getstring "enter name K:"));\+
  2802. insert;(strcat "j1k/" k);
  2803. []^C(setq k (getstring "enter name K:"));\+
  2804. insert;(strcat "j2k/" k);
  2805. []^C(setq k (getstring "enter name K:"));\+
  2806. insert;(strcat "j3k/" k);
  2807. []^C(setq k (getstring "enter name K:"));\+
  2808. insert;(strcat "j4k/" k);
  2809. []^C(setq k (getstring "enter name K:"));\+
  2810. insert;(strcat "j5k/" k);
  2811. []^C(setq k (getstring "enter name K:"));\+
  2812. insert;(strcat "j6k/" k);
  2813. []^C(setq k (getstring "enter shape name K:"));\+
  2814. shape;!k;\33;0;
  2815. []^C(setq k (getstring "enter name K:"));\+
  2816. insert;(strcat "j8k/" k);\
  2817. []^C(setq k (getstring "enter name K:"));\+
  2818. insert;(strcat "j9k/" k);\
  2819. []^C(setq k (getstring "enter name K:"));\+
  2820. insert;(strcat "j10k/" k);\
  2821. []^C(setq ml (getstring "enter ML name:"));\+
  2822. (setq t (getint "enter time<100>: "));\+
  2823. (if (null t) (setq t 100));+
  2824. script;(strcat ml "/lv");
  2825. [3.1]^Cmenu;BCAD;
  2826. [3.2]^Cmenu;j9ZPM;
  2827. [3.3]^Cmenu;J1PIM;
  2828. [3.4]^Cmenu;J1LPM
  2829. [3.5]^Cmenu;J0TS
  2830. [3.6]^Cmenu;J1PIM;
  2831. [3.7]^CMENU;FA/BCAD
  2832. [3.8]^CMENU;ACAD
  2833. [3.9]
  2834. [3.10]
  2835. [3.12]^CTABLET;
  2836. [3.12]^C (AL "ZTCS" "PIM/ZTCS");ZTCS;
  2837. [4.1]^Cshell;edlin plm.dat;
  2838. [4.2]^C(AL "PQWZ" "LPM/PQWZ");PQWZ;
  2839. [4.3]^Cshell;tpim;(LOAD "/BJCAD/TPIM");
  2840. [4.4]^Cclean;
  2841. [4.5]
  2842. [4.6]
  2843. [4.7]
  2844. [4.8]
  2845. [4.9]
  2846. [4.10]
  2847. [4.11]
  2848. [4.12]
  2849. ***TABLET3
  2850. [1.1]^CSHELL;KJCL;(GRAPHSCR);
  2851. [1.2]^C(AL "QCDAT" "PIM/QCDAT");QCDAT;
  2852. [1.3]^C(AL "QZ" "PIM/QZ");QZ;
  2853. [1.4]^C(AL "QZKN" "PIM/QZK");QZKN;
  2854. [1.5]
  2855. [1.6]^C(AL "QI" "PIM/QLW");QI;
  2856. [1.7]^C(AL "QLW" "PIM/QLW");QLW;
  2857. [1.8]^C(AL "QT" "PIM/QT");QT;
  2858. [2.1]^C(SETQ N (GETSTRING "Input floor layer(1 2 3...): "));\+
  2859. (SETQ F (OPEN "/BJCAD/CCX.DAT" "w"));+
  2860. (PRIN1 (READ N) F);+
  2861. (CLOSE F);+
  2862. (SETQ NM (STRCAT "/BJCAD/PIM" N));+
  2863. SHELL;PQC;+
  2864. (LOAD NM);
  2865. [2.2]^C(SETQ N (GETSTRING "Input floor layer(1 2 3...): "));\+
  2866. (SETQ F (OPEN "/BJCAD/CCX.DAT" "w"));+
  2867. (PRIN1 (READ N) F);+
  2868. (CLOSE F);+
  2869. (SETQ NM (STRCAT "/BJCAD/PIM" N));+
  2870. SHELL;PQ;+
  2871. (LOAD NM);
  2872. [2.3]^C(AL "QG" "PIM/QG");QG;
  2873. [2.4]^C(AL "QZKD" "PIM/QZK");QZKD;
  2874. [2.5]^C(AL "QZKD" "PIM/QZK");QZKL;
  2875. [2.6]^C(AL "QQL" "PIM/QQL");QQL;
  2876. [2.7]^C(AL "QQL" "PIM/QQL");QQL1;
  2877. [2.8]
  2878. [3.1]^C(AL "QCMN" "PIM/QCM");^CQCMN;
  2879. [3.2]^C(AL "QCMK" "PIM/QCM");QCMK;
  2880. [3.3]^C(AL "QCU1" "PIM/QCM");QCU1;
  2881. [3.4]^C(AL "QMCM" "PIM/QMCL");QMCM;
  2882. [3.5]^C(AL "QMCL" "PIM/QMCL");QMCL;
  2883. [3.6]^C(AL "QMCU" "PIM/QMCL");QMCU;
  2884. [3.7]
  2885. [3.8]^C(AL "QCT1" "PIM/QTJP1");QCT1;
  2886. [4.1]^C(AL "QCMZ" "PIM/QCM");^CQCMZ;
  2887. [4.2]^C(AL "QCMD" "PIM/QCM");^CQCMD;
  2888. [4.3]^C(AL "QCML" "PIM/QCM");^CQCML;
  2889. [4.4]^C(AL "QMCZ" "PIM/QMCL");QMCZ;
  2890. [4.5]^C(AL "QMCD" "PIM/QMCL");QMCD;
  2891. [4.6]^C(AL "QMCX" "PIM/QMCL");QMCX;
  2892. [4.7]^C(AL "QMC1" "PIM/QMCL");QMC1;
  2893. [4.8]^C(AL "QCT2" "PIM/QTJP1");QCT2;
  2894. [5.1]^C(AL "QCMM" "PIM/QMN");^CQCMM;
  2895. [5,2]^C(AL "QMN" "PIM/QMN");QMN;
  2896. [5.3]^C(AL "QMN2" "PIM/QMN");QMN2;
  2897. [5.4]^C(SETQ F (OPEN "/BJCAD/CCX.DAT" "r"));+
  2898. (SETQ N (READ-LINE F));(CLOSE F);+
  2899. (SETQ NM (STRCAT "/BJCAD/CDIM" N));+
  2900. (LOAD NM);
  2901. [5.5]^C(AL "QD" "PIM/QD");QD;
  2902. [5.6]^C(AL "QDI" "PIM/QMN");QDI;
  2903. [5.7]^C(AL "QDI2" "PIM/QMN");QDI2;
  2904. [5.8]^C(AL "QAREA2" "PIM/QCDAT");QAREA2;
  2905. [6.1]^C(AL "QCMM1" "PIM/QCM");QCMM1;
  2906. [6.2]^C(AL "QDI1" "PIM/QMN");QDI1;
  2907. [6.3]^C(AL "QZMC" "PIM/QZMC");QZMC;
  2908. [6.4]^C(AL "YDIM" "PIM/YDIM");YDIM;
  2909. [6.5]^C(AL "QWI" "PIM/QWI");QWI;
  2910. [6.6]^C(AL "QDI2" "PIM/QMN");QDI2;
  2911. [6.7]^C(AL "QDI" "PIM/QMN");QDI;
  2912. [6.8]^C(AL "QAREA" "PIM/QCDAT");QAREA;
  2913. [7.1]^C(AL "QTJJ" "PIM/QTJS");QTJJ;
  2914. [7.2]
  2915. [7.3]^C(AL "QARC" "PIM/QARC");QARC;
  2916. [7.4]^C(AL "QEDA" "PIM/QARC");QEDA;
  2917. [7.5]^C(AL "QCMAN" "PIM/QCMA");QCMAN;
  2918. [7.6]^C(AL "QCMAZ" "PIM/QCMA");QCMAZ;
  2919. [7.7]^C(AL "QCMAA" "PIM/QCMA");QCMAA;
  2920. [7.8]^C(AL "QCMAC" "PIM/QCMA");QCMAC;
  2921. [8.1]^C(AL "QTJS" "PIM/QTJS");QTJS;
  2922. [8.2]^C(AL "QTJD" "PIM/QTJS");QTJD;
  2923. [8.3]^C(AL "QAI" "PIM/QLWA");QAI;
  2924. [8.4]^C(AL "QLWA" "PIM/QLWA");QLWA;
  2925. [8.5]^C(AL "QCMAN1" "PIM/QCMA1");QCMAN1;
  2926. [8.6]^C(AL "QCMAZ1" "PIM/QCMA1");QCMAZ1;
  2927. [8.7]^C(AL "QCMAA1" "PIM/QCMA1");QCMAA1;
  2928. [8.8]^C(AL "QCMAC1" "PIM/QCMA1");QCMAC1;
  2929. [9.1]^C(AL "QLT1" "PIM/QLT1");QLT1;
  2930. [9.2]^C(AL "QLT2" "PIM/QLT2");QLT2;
  2931. [9.3]^C(AL "QZD" "PIM/QLT2");QZD;
  2932. [9.4]^C(AL "QTJP1" "PIM/QTJP1");QTJP1;
  2933. [9.5]^C(AL "QTJP2" "PIM/QTJP1");QTJP2;
  2934. [9.6]^C(AL "QATT" "ATT/QATT");QATT;
  2935. [9.7]
  2936. [9.8]
  2937. [10.1]^C(AL "LTPM3" "PIM/LTPM3");LTPM3;
  2938. [10.2]^C(AL "LXLTP" "PIM/LXLTP");LXLTP;
  2939. [10.3]
  2940. [10.4]^C(AL "TJ3P" "PIM/TJ3P");TJ3P;
  2941. [10.5]^C(AL "TJP3" "PIM/TJP3");TJP3;
  2942. [10.6]^C(AL "QATT1" "ATT/QATT1");QATT1;
  2943. [10.7]^C(AL "QATT2" "ATT/QATT2");QATT2;
  2944. [10.8]^C(AL "QZXB" "ATT/QZXB");QZXB;
  2945.