返回显示的图层（剔除冻结或者隐藏的图层）
本帖最后由 jpg102329 于 2017-8-21 08:13 编辑;15:54 2017/8/9
【管理员】大海<tryhi@sina.cn> 15:54:14
;;返回显示的图层（剔除冻结或者隐藏的图层）
(setq onlayer(mapcar 'car(vl-remove-if '(lambda(x) (or (<(caddr x)0)(> (logand (cadr x) 1)0))) (try-Layer-Info))))
;15:54 2017/8/9
【观音】【jpg102329]猪(297419412) 15:50:46
;;识别这个LSP的路径
;;使用方法: 程序开头 (load-lujing)
(setq dcl_file(strcat lujing "tuku.dcl"))))
(defun load-lujing()
(setq lujing (vl-registry-read
(strcat "HKEY_CURRENT_USER\\"
(vlax-product-key)
"\\Profiles\\"
(vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))))
"\\Dialogs\\Appload")
"MainDialog"
)))
<以上内容出自《大海语录》不代表本人观点>
欢迎加入通信管线设计技术交流群655280537，通信管线规划设计技术、资源交流群，CAD底图交换、付费教程免费获取、交流经验、互相学习，共同进步！
页:
[1]