1. 首页
  2. 行业
  3. 电信
  4. CADlisp程序

CADlisp程序

上传者: 2019-05-19 18:00:09上传 RAR文件 500kb 热度 49次
超级详细(defun*error*(st)(if(and(/=st"Functioncancelled")(/=st"quit/exitabort"))(princ(strcat"错误:"st)))(setq*error*old_err)(princ))(defunsort(l/ltltemvmaxvminl1l2l3lt0ltem0ltem1l30vmax0vmin0l10l20)(setqltem(mapcar'carl)
用户评论