VisualLisp若干Acet函数学习

;;;acet-sysvar-set
;;;函数的功能：设置系统变量的值，返回一个表，表的各元素为该系统变量用acet-sysvar-set函数历次修改前保存的原值，最后一个元素表示最后一次修改前该系统变量的值
;;;语法:(acet-sysvar-set '("sysvar" value "sysvar" value ...))
;;;eg:
(acet-sysvar-set (list "cmdecho" 0))

;;;acet-sysvar-restore
;;;函数的功能：系统变量还原
;;;语法:(acet-sysvar-restore)

;;;acet-ss-redraw
;;;函数的功能：类似于redraw，但redraw的参数为图元名，acet-ss-redraw的参数为选择集
(acet-ss-redraw ss 1);显示
(acet-ss-redraw ss 2);隐藏
(acet-ss-redraw ss 3);亮显
(acet-ss-redraw ss 4);不亮显

;;;acet-ucs-get
;;;函数的功能：获得当前UCS
;;;语法:(acet-ucs-get nil)
;;;返回值为一个表，表中的三个元素为三个点，第一个点为原点，第二个点为X轴正半轴上到原点距离为1的点，第三个点为Y轴正半轴上到原点距离为1的点

;;;acet-ss-new
;;;语法:(setq ss (acet-ss-new (car (entsel))))
;;;返回值为一个选择集，该选择集中的图元为该文档图形数据库中自参数图元（不含）之后的图元
;;;(defun acet-ss-new(ename /)...);Create new SelectionSet with Ent
;;;ACET-SS-NEW    --> ACETUTIL.FAS   Creates selection set from starting ent

(acet-table-name-list "layer")
;;;返回一个表，表中各元素为字符串，字符串的内容为本图中的图层名
(acet-table-name-list "ltype")
(acet-table-name-list "style")
(acet-table-name-list "dimstyle")
(acet-table-name-list "block")
;;;亦然

(acet-currentviewport-ename)
;;;如果当前选项卡为模型，返回nil
;;;如果当前选项卡为布局，返回当前视口的图元名

(acet-viewport-frozen-layer-list (acet-currentviewport-ename))
;;;返回一个表，表中各元素为字符串，字符串的内容为当前视口中的已被冻结的图层名

;;;比对两个字符串是否相同
(acet-str-equal "c" "c")
(acet-str-equal "a" "b")

;;;类似于C#的格式占位符
(acet-str-format "\n%1 layers have been isolated. Layer %2 is current." (itoa (length LAYLST)) LAY)

;;;acet-ss-filter
;;;选择集过滤
;;;(defun acet-ss-filter(filterDataLst /)                  ;;Filter Selection Set
;;;把选择集中图层为defpoints的对象过滤掉
(setq ss (ssget))
(setq lst (list (list '((-4 . "<NOT") (8 . "DEFPOINTS") (-4 . "NOT>")) "\n1 " "\n%1 ")))
(setq ss_n (car (acet-ss-filter (list ss lst nil))))
;;;对指定组码过滤
(defun ssfilter(ss nGroupCode groupCodeValue)
    (setq lst (list (list (list '(-4 . "<NOT") (cons nGroupCode groupCodeValue) '(-4 . "NOT>" )) "\n1 " "\n%1 ")))
    (car (acet-ss-filter (list ss lst nil)))
)
;;;还是以　把选择集中图层为defpoints的对象过滤掉　为例
(defun c:test()
    (setq ss (ssget))
    (setq ss_n (ssfilter ss 8 "DEFPOINTS"))
)