moldspgz.lsp

plc设计编程软件

;************************************************;
;* This is "MoldSpgZst.lsp" program 		*;
;* Complete compiled in 02/24/99                *;
;* Last change in 02/24/99    			*;
;* ZX Mold Ltd  XY Liao    			*;
;************************************************;

;******************** Main function start ************************;
(defun MoldSpgZst(cenpt od spring_type spring_len if_h_v / sel_ent)
  (if (= "1" if_h_v)
    (progn
      (command "linetype" "s" "hidden" "")
      (setvar "cecolor" "yellow")
    )
  )
  (setq sel_ent (ssadd))
  (command "insert" "spring.dwg" cenpt od "" "")
  (setq sel_ent (ssadd (entlast) sel_ent))
;-----------------------------------------------------
;Dim specification and item number
;-----------------------------------------------------
  (progn
    (setvar "celtype" "bylayer")
    (setvar "cecolor" "bylayer")
  )
  (if (not (tblsearch "style" "lxy2"))
    (command "-style" "lxy2" "txt" "" 0.6 "" "" "" "")
    (setvar "textstyle" "lxy2")
  )
  (setq textpt (polar cenpt (/ pi 4) (+ (/ od 2) 2.5)))
  (command "text" "j" "mc" textpt 2.5 0 rep)
  (setq sel_ent (ssadd (entlast) sel_ent))
  (setvar "textstyle" st_old)
;-----------------------------------------------------
;Make screw block and add extend data in it
;-----------------------------------------------------
  (if (not (tblsearch "appid" "spring"))
    (regapp "spring")
  )
  (mblk (strcat "AC_LXY_BLK" (itoa (getvar "useri2"))) cenpt sel_ent)
  (setq xd (strcat 	rep " " 			;item number
			"Z" " " 			;view flag
			spring_type " " 			;dim diameter
			spring_len " " 			;dim length
			if_h_v " " 			;hidden flag
			"0" " " 			;type flag
			mb )) 				;meter or inch flag
  (setq xd (list (list -3 (list "spring" (cons 1000 xd)))))
  (mxdata  (entlast) xd)
  (setvar "useri2" (+ 1 (getvar "useri2")))
)
;*************************************** End of function ****************************************;