AutoLisp 源代码 实用程序2_rev3

1、;*(defun vslout()(setq pt1 (0 0 0)(setq pt2 (getpoint nSpecify the center of vessel: )(setq dix (- (car pt2) (car pt1)(setq diy (- (cadr pt2) (cadr pt1)(setq wfile (open c:/public/aTs.csv w)(setq di (strcat typ , (rtos dix unit prec) , (rtos diy unit prec)(write-line di wfile)(close wfile)(princ (st

2、rcat nX= (rtos dix unit prec)(princ (strcat nY= (rtos diy unit prec);*(defun pipeout()(setq pt1 (getpoint nSpecify the Basepoint: )(setq pt2 (getpoint nSpecify the center of piping: )(setq pip (getstring nSpecify the diameter of pipe: )(setq diz (abs (- (caddr pt1) (caddr pt2)(setq wfile (open c:/pu

3、blic/aTs.csv w)(setq di (strcat typ , pip , (rtos diz unit prec)(write-line di wfile)(close wfile)(princ (strcat nZ= (rtos diz unit prec)(princ (strcat nPipeSize= pip);*(defun psout()(setq pt1 (getpoint nSpecify the basepoint: )(setq pt2 (getpoint nSpecify the top of Ps: )(setq diz (abs (- (caddr pt

4、1) (caddr pt2)(setq wfile (open c:/public/aTs.csv w)(setq di (strcat typ , (rtos diz unit prec)(write-line di wfile)(close wfile)(princ (strcat nZ= (rtos diz unit prec);=(defun c:2 (/ unit typ pt1 pt2 dix diy diz wfile di prec ty pip)(setq unit (getvar lunits) prec (getvar LUPREC)(if (= unit 2) (set

5、q prec 0)(setq ty (getstring nInput the type of equip: Pipe or Vessel or pipeSupport : )(command ucs w)(if (= ty nil) (setq ty v)(if (or (= ty p) (= ty P)(progn(setq typ pipe)(pipeout)(if (or (= ty v) (= ty V)(progn(setq typ vessel)(vslout)(if (or (= ty s) (= ty S)(progn(setq typ pipesupport)(psout)

6、(princ);=;*(defun inpstr (str0 m)(setq sstr0 str0)(setq strlong (strlen sstr0)(setq totaln 1)(setq k 0)(setq list0 nil)(while ( m 1)(setq firstn (+ (cdr (assoc (1- m) list0) 1)(setq firstn 1)(if (= m k)(setq endn (cdr (assoc m list0)(setq endn (+ strlong 1)(setq finals (substr sstr0 firstn (- endn f

7、irstn);*;(defun vslin(); (setq dix (distof (inpstr sline 2) 4); (setq diy (distof (inpstr sline 3) 4); (setvar osmode os); (setq pt0 (getpoint nSpecify the Original point of skid: ); (setvar osmode 1024); (setq pt1 (polar (polar pt0 0 dix) (/ pi 2) diy); (command circle pt1 d do_c 2); (command chpro

8、p (entlast) la Defpoints ); (setq pt2 (polar pt1 (* pi 0.25) do_c); (setq pt3 (polar pt1 (* pi 1.25) do_c); (command line pt2 pt3 ); (command chprop (entlast) la Defpoints ); (setq pt2 (polar pt1 (* pi 0.75) do_c); (setq pt3 (polar pt1 (* pi 1.75) do_c); (command line pt2 pt3 ); (command chprop (ent

9、last) la Defpoints ); (princ (strcat nX= (rtos dix unit prec); (princ (strcat nY= (rtos diy unit prec);)(defun vslin()(setq dix (distof (inpstr sline 2) 2)(setq diy (distof (inpstr sline 3) 2)(setvar osmode os)(setq pt0 (getpoint nSpecify the Original point of skid: )(setvar osmode 1024)(command tex

10、t pt0 3 0 (inpstr sline 3)(setq pt0 (polar pt0 (* pi 1.5) 5)(command text pt0 3 0 (inpstr sline 2);*(defun pipein()(setq dix (inpstr sline 2)(setq diz (inpstr sline 3)(setq dix (distof dix 4)(setq diz (distof diz 4)(if (= unit 2)(progn(if (= dix 1) (setq cir 33) (if (= dix 1.5) (setq cir 48) (if (=

11、dix 2) (setq cir 60)(if (= dix 3) (setq cir 89)(if (= dix 4) (setq cir 114) (if (= dix 5) (setq cir 141) (if (= dix 6) (setq cir 168) (if (= dix 8) (setq cir 219)(if (= dix 10) (setq cir 273) (if (= dix 12) (setq cir 324) (if (= dix 14) (setq cir 356) (if (= dix 16) (setq cir 406)(progn(if (= dix 1)

12、 (setq cir 1.315) (if (= dix 1.5) (setq cir 1.9) (if (= dix 2) (setq cir 2.375)(if (= dix 3) (setq cir 3.5)(if (= dix 4) (setq cir 4.5) (if (= dix 5) (setq cir 5.563) (if (= dix 6) (setq cir 6.625) (if (= dix 8) (setq cir 8.625)(if (= dix 10) (setq cir 10.75) (if (= dix 12) (setq cir 12.75) (if (= d

13、ix 14) (setq cir 14)(if (= dix 16) (setq cir 16)(setvar osmode os)(setq pt0 (getpoint nSpecify the basepoint: )(setvar osmode 1024)(setq pt1 (polar pt0 (/ pi 2) diz)(command circle pt1 d cir)(command chprop (entlast) la 0 )(setq diz (rtos diz unit prec)(princ (strcat nZ= diz);*(defun psin()(setvar o

14、smode os)(setq diz (distof (inpstr sline 2) 4)(setq pt0 (getpoint nSpecify the Original point of skid: )(setvar osmode 1024)(setq pt1 (polar pt0 (/ pi 2) diz)(command circle pt1 d do_c 2)(command chprop (entlast) la Defpoints )(setq pt2 (polar pt1 (* pi 0.25) do_c)(setq pt3 (polar pt1 (* pi 1.25) do

15、_c)(command line pt2 pt3 )(command chprop (entlast) la Defpoints )(setq pt2 (polar pt1 (* pi 0.75) do_c)(setq pt3 (polar pt1 (* pi 1.75) do_c)(command line pt2 pt3 )(command chprop (entlast) la Defpoints )(princ (strcat nZ= (rtos diz unit prec);*(defun chk_lay()(setq chklay (tblsearch layer Defpoint

16、s)(if (null chklay)(command layer n Defpoints c white Defpoints );=(defun c:22(/ str0 m sstr0 strlong totaln k list0 strdot dotloc firstn endn finals os pt0 wfile sline name dix diy diz pt1 pt2 unit prec chklay pt3 do_c cir)(chk_lay)(setq os (getvar osmode)(setq unit (getvar lunits) prec (getvar LUP

17、REC)(if (= unit 2)(progn (setq prec 0) (setq do_c 75)(progn (setq do_c 3)(setq wfile (open c:/public/aTs.csv r)(setq sline (read-line wfile)(setq name (inpstr sline 1)(if (= name vessel)(progn(princ nSpecify the position of vessel)(vslin)(if (= name pipe)(progn(princ nSpecify the position of pipe)(p

18、ipein)(if (= name pipesupport)(progn(princ nSpecify the height of pipesupport)(psin)(setvar osmode os)(prin1);=(defun c:222 ()(chk_lay)(setqunit (getvar lunits)(if (= unit 2)(progn (setq do_c 75)(progn (setq do_c 3)(setq pt0 (getpoint nSecpify the base point: )(setq dst (getdist nSecpify the distanc

19、e: )(setvar osmode 1024)(setq pt1 (polar pt0 (/ pi 2) dst)(command circle pt1 d do_c 2)(command chprop (entlast) la Defpoints )(setq pt2 (polar pt1 (* pi 0.25) do_c)(setq pt3 (polar pt1 (* pi 1.25) do_c)(command line pt2 pt3 )(command chprop (entlast) la Defpoints )(setq pt2 (polar pt1 (* pi 0.75) do_c)(setq pt3 (polar pt1 (* pi 1.75) do_c)(command line pt2 pt3 )(command chprop (entlast) la