;|file:feconfig.lsp
foolengineer 的配置文件
|;

;=====================================================
(setq         ;;;变量设置开始;;;
;=====================================================
  
  ;配置文件加载标志,切不可更改
  FE_CONFIG T
  ;全局比例
  FE_SCALE 100.0
  ;是否显示错误信息
  FE_ERROR_MSG_ON T

  ;打印机1
  FE_PRINTER1   "\\\\SJY-002\\KONICA MINOLTA 162"
  ;打印机2   
  FE_PRINTER2   nil
  ;打印机3 
  FE_PRINTER3   nil

  ;=FE01=修改线宽功能使用的默认线宽
  FEGVAR_LINEWIDTH (* 0.5 FE_SCALE)

  ;=FE03=钢筋编号使用TSSD的钢筋编号属性块"ts_reino"
  FEGVAR_TSSD_REINO 1

  ;DWG文件目录
  FEPATH_DWG "./DWG/"

  ;=板钢筋镜像图层设置=
  ;钢筋图层,FERMI
   FESLAB_REINLAYER "*REIN*,*钢筋*"
  ;钢筋标注图层,FERMI
   FESLAB_SUBLAYER "*TEXT*,*NUM*,*钢筋*,*REIN*"
  ;钢筋镜像位置1=钢筋母线，2=钢筋端点连线,FRRMI
   FERMI_MIRRPOS 1
  ;板支座钢筋图层,FERTR
   FESLAB_UPREINLAYER "支座钢筋,FLOOR_UP_REIN"

;=====================================================
)             ;;;变量设置结束;;;
;=====================================================

;=====================================================
               ;;;程序扩展;;;
;=====================================================
;(load "myplot.lsp")
;(load "attribedit.LSP")
;(load "WBBJTJ.vlx")
;(arxload "FEDimDbClickTextEdit2005.arx")
(defun c:sst( / ss) (setq ss (ssget '((0 . "TEXT")))) (command "pselect" ss ""))
(defun c:ssd( / ss) (setq ss (ssget '((0 . "DIMENSION")))) (command "pselect" ss ""))
(defun c:dxf()(entget (car (entsel)) '("*")))

