[文章]：又认识了几个函数

eachy

1 Bhatch  (bhatch poiont) 生成填充，如果存在闭合区域，返回Hatch实体

2 lisped  (lisped string)


在acad200xdoc.lsp中定义的函数, 自动加载
;;; ===== Single-line MText editor =====
(defun LispEd (contents / fname dcl state)
  (if (not (setq fname (getvar "program")))
     (setq fname "acad")
  )
  (strcat fname ".dcl")
  (setq dcl (load_dialog fname))
  (if (not (new_dialog "LispEd" dcl)) (exit))
  (set_tile "contents" contents)
  (mode_tile "contents" 2)
  (action_tile "contents" "(setq contents $value)")
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "mtexted" "(done_dialog 2)" )
  (setq state (start_dialog))
  (unload_dialog dcl)
  (cond
    ((= state 1) contents)
    ((= state 2) -1)
    (t 0)
  )
)

3 pragma 未知

4 report   Visual LISP 尚不支持: (REPORT)

5 snvalid  Checks the symbol table name for valid characters (CAD2005)

6 VERIFY_ARXAPP_LOADED (VERIFY_ARXAPP_LOADED arxfilename)

在acad200xdoc.lsp中定义的函数, 自动加载
;; Loads the indicated ARX app if it isn't already loaded
;; returns nil if no load was necessary, else returns the
;; app name if a load occurred.
(defun verify_arxapp_loaded (app)
  (if (not (loadedp app (arx)))
      (arxload app f)
  )
)

7 xstrcase = strcase ?

8 bherrs


9 acad_truecolordlg  (acad_truecolordlg 1) [only R16]


10 acad_truecolorcli  (acad_truecolorcli 1) [only R16]



Expresstools 中的几个函数


1 BNS_GET_ATT  获取块属性列表

2 BNS_GROUPS_SEL

3 BNS_GROUPS_UNSEL

4 BNS_MOD_ATT (bns_mod_att Blockref attlist) 修改属性值

5 BNS_SS_MOD

6 BNS_VP_ON_SCREEN