epin_insert.lsp

plc设计编程软件

;*****************************************************;
;* This is "epin_zst.lsp" program 		     *;
;* Complete compiled in 12/20/98                     *;
;* Last change in 1/28/99    ZX Mold Ltd  XY Liao    *;
;*****************************************************;

;******************** Main function start ************************;
(defun epin_zst( / sel_ent)
  (setvar "osmode" 0)
  (setq sel_ent (ssadd))
  (command "insert" "epin.dwg" cenpt d "" "")
  (setq sel_ent (ssadd (entlast) sel_ent))
;-----------------------------------------------------
;Dim specification and item number
;-----------------------------------------------------
  (if (not (tblsearch "style" "lxy2"))
    (command "-style" "lxy2" "txt" "" 0.6 "" "" "" "")
    (setvar "textstyle" "lxy2")
  )
  (setq textpt (polar cenpt (/ pi 4) (+ (/ d 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
;-----------------------------------------------------
  (mblk (strcat "AC_LXY_BLK" (itoa (getvar "useri2"))) cenpt sel_ent)
  (setq xd (strcat 	rep " " 			;item number
			"Z" " " 			;view flag
			epin_type " " 			;dim diameter
			epin_len " " 			;dim length
			if_h_v " " 			;hidden flag
			typ " " 			;type flag
			mb )) 				;meter or inch flag
  (setq xd (list (list -3 (list "epin" (cons 1000 xd)))))
  (mxdata  (entlast) xd)
  (setvar "useri2" (+ 1 (getvar "useri2")))
  (setvar "osmode" os_old)
)
;*************************************** End of function ****************************************;