aaaa.lsp

来自「plc设计编程软件」· LSP 代码 · 共 30 行

(defun aaaa()
  (setq fn (open (findfile "MoldBase.lib") "r"))
  (setq MoldSysSpec (read (strcat MoldSysNum MoldSpecNum)))
  (setq aa MoldSysSpec)
  (setq MoldBaseData (read (read-line fn)))
  (while (and (/= MoldSysSpec (car MoldBaseData)) MoldBaseData)
    (if (setq TempData (read-line fn))
    (setq MoldBaseData (read TempData))
     (setq MoldBaseData nil)
    )
  )
  (close fn)
  (if (not MoldBaseData)
    (setq err_msg "Invalid!")
   (progn
    (setq MoldBaseData (cadr MoldBaseData))
      (setq TempData (assoc 'PT MoldBaseData))
     (setq cpX  (car  (nth 1 TempData))
	    cpY  (cadr (nth 1 TempData))
	    tpX  (car  (nth 2 TempData))
	   tpY  (cadr (nth 2 TempData))
	    sbX1 (car  (nth 3 TempData))
	    sbX2 cpx
	    sbY  (cadr (nth 3 TempData))
	   epX  (car  (nth 4 TempData))
	    epY  (cadr (nth 4 TempData))
      )
  )
 )
)