ep_pos.lsp

plc设计编程软件

(defun eppos (/		    inspt	  screw_set	ent_count
	      i		    ent_nam	  all_mxb_ent	screw_count
	      epin_count    apn_count	  all_count	old_set
	      old_set_nstd  all_mxb_ent
	     )
					;------------------------------------------
					;shut off command echo and set undo mark
					;------------------------------------------
  (setvar "cmdecho" 0)
  (command "undo" "m")
  (setq os_old (getvar "osmode"))					;------------------------------------------
					;save current system var
					;------------------------------------------
					;(setq os_old (getvar "osmode"))
  (setq la_old (getvar "clayer"))
					;------------------------------------------
					;set user system var
					;------------------------------------------
  (if (not (tblsearch "layer" "pinID"))
    (command "_.layer"	 "_new"	     "pinID"	 "_color"
	     "red"	 "pinID"     "_ltype"	 "continuous"
	     "mxb"	 ""
	    )
    (command "_.layer" "thaw" "pinID" "on" "mxb" "unlock" "mxb"	"")
  )
  (setvar "clayer" "pinID")
  (if (not (tblsearch "layer" "EJID"))
    (command "_.layer"	 "_new"	     "EJID"	 "_color"
	     "red"	 "ejID"	     "_ltype"	 "continuous"
	     "mxb"	 ""
	    )
    (command "_.layer" "thaw" "ejID" "on" "mxb"	"unlock" "mxb" "")
  )
  (setvar "clayer" "ejID")
  (ini_useri2)

					;------------------------------------------
					;delete old bill table
					;------------------------------------------
  (if (not (tblsearch "appid" "mxb_epid"))
    (regapp "mxb_epid")
  )
  (if (not (tblsearch "appid" "epid"))
    (regapp "epid")
  )
  (setq old_set (ssget "X" '((0 . "INSERT") (2 . "ep_pos"))))
  (if old_set
    (command "erase" old_set "")
  )

  (setq old_set (ssget "X" '((0 . "INSERT") (8 . "ejid"))))
  (if old_set
    (command "erase" old_set "")

  )
  (command "purge" "b" "ac_xyq_blk*" "n")

  					;------------------------------------------
					;get bill table insert point
					;------------------------------------------
  					;------------------------------------------
					;Initializing
				;------------------------------------------
  (cso_tran)
  (setvar "osmode" 0)
  (princ
    "\nAnalyzing entity... \nBegin to create Epin bill table, please wait..."
  )
  (if (not (tblsearch "appid" "mxb_epid"))
    (regapp "mxb_sepid")
  )
  (setq	all_mxb_ent
	 nil
	epin_count 0
	all_count 0
	pin_count 0
  )
  ;(setq inshdpt inspt)
  ;