参照LM:ACDOC把其它的都写了

Free-Lancer

讨论帖
http://bbs.xdcad.net/thread-669945-1-1.html

app.fas 定义函数

常量
*INFINITY*
_2PI
_3PI
_PI2
_PI4

简化函数
dump
e2o
fy:creat
fy:handle
fy:id
fy:id32
fy:idstr
fy:vapply
fy:vcatche
fy:vget
fy:vput
invoke
invokem
o2e

程序结构
fy:error
fy:begin
fy:end
fy:setv
fy:unsetv

集合定义
fy:acapp
fy:docs
fy:accmcolor
fy:layerstatemanager
fy:securityparams
fy:menugroups
fy:menubar
fy:preferences
当前文档集合
fy:acdoc
fy:acms
fy:acps
fy:acspace
fy:acblocks
fy:acdicts
fy:acdimstyles
fy:acgroups
fy:aclayers
fy:aclayouts
fy:acltypes
fy:acplotconfigs
fy:acpreferences
fy:acregapps
fy:acssets
fy:actextstyles
fy:acucss
fy:acviews
fy:acviewports
fy:acutil

ObjectDBX
fy:odbx

选择集
fy:clearcset
fy:cset
fy:cset->objs
fy:pickss
fy:ventsel
fy:entself
fy:getptss

Undo
fy:startundo
fy:endundo

数据转换
list->variantarray
lisp-value

ObjectID 和 Handle
fy:id2obj
fy:handle2obj

属性获取和修改
fy:get
fy:put

属性刷
fy:mat

字体定义
fy:setfont

窗口缩放
fy:zoomw
fy:zoomp

fy:pixeltodrawing
fy:screenbox
fy:isptoutscreen

1. (defun LM:acdoc    nil
   
2.   (eval    (list 'defun
   
3.           'LM:acdoc
   
4.           'nil
   
5.           (vla-get-activedocument (vlax-get-acad-object))
   
6.     )
   
7.   )
   
8.   (LM:acdoc)
   
9. )

(defun LM:acdoc    nil<br />   (eval    (list 'defun<br />           'LM:acdoc<br />           'nil<br />           (vla-get-activedocument (vlax-get-acad-object))<br />     )<br />   )<br />   (LM:acdoc)<br /> )

游客，如果您要查看本帖隐藏内容请回复

SmartStar

le mac 的作品？

Free-Lancer

SmartStar 发表于 2013-10-27 15:41
le mac 的作品？

跟大师学习，写程序的时候要经常一层层的翻ActiveX帮助，干脆把最上层的都写出来，只需要查后面的 Methods 和 Properties，也省码些代码

819534890

看看隐藏些什么

xshrimp

谢谢分享.

123523058

不错的东西

q3_2006

睡前看下，LM。。。大师呀

Free-Lancer

一个图层锁定解锁例子

1. (defun c:tt (/ ll)
   
2.   (fy:clearcset)
   
3.   (fy:startundo)
   
4.   (princ "\n空选全部解锁....")
   
5.   (if (ssget)
   
6.     (progn
   
7.       (vlax-for obj (fy:cset)
   
8.        (if (not (vl-position (vla-get-layer obj) ll))
   
9.          (setq ll (cons (vla-get-layer obj) ll))
   
10.        )
    
11.       )
    
12.       (mapcar '(lambda (x)
    
13.          (vla-put-lock (vla-item (fy:aclayers) x) :vlax-true)
    
14.            )
    
15.           ll
    
16.       )
    
17.     )
    
18.     (vlax-for obj (fy:aclayers)
    
19.       (vla-put-lock obj :vlax-false)
    
20.     )
    
21.   )
    
22.   (fy:endundo)
    
23.   (princ)
    
24. )

(defun c:tt (/ ll)<br />   (fy:clearcset)<br />   (fy:startundo)<br />   (princ "\n空选全部解锁....")<br />   (if (ssget)<br />     (progn<br />       (vlax-for obj (fy:cset)<br />        (if (not (vl-position (vla-get-layer obj) ll))<br />          (setq ll (cons (vla-get-layer obj) ll))<br />        )<br />       )<br />       (mapcar '(lambda (x)<br />          (vla-put-lock (vla-item (fy:aclayers) x) :vlax-true)<br />            )<br />           ll<br />       )<br />     )<br />     (vlax-for obj (fy:aclayers)<br />       (vla-put-lock obj :vlax-false)<br />     )<br />   )<br />   (fy:endundo)<br />   (princ)<br /> )

dnbcgrass

看看，学习学习！:lol

ll_j

怎么现在都喜欢讨回复了？

sicky111

回复必须的。

Free-Lancer

ll_j 发表于 2013-10-28 07:48
怎么现在都喜欢讨回复了？

长老，来了就打声招呼吗，其实更喜欢用 setpropertyvalue getpropertyvalue 了，这些偶尔用用:)

ll_j

Free-Lancer 发表于 2013-10-28 08:03
长老，来了就打声招呼吗，其实更喜欢用 setpropertyvalue getpropertyvalue 了，这些偶尔用用

说实在的，到现在也没有参透LM大师的真正用意，不会VLisp，也就不敢乱说，总觉得是不是有什么玄机，否则不管从书写还是记忆，这样的格式都不能算方便。
正常写就是setq一句话的事情，这样的格式倒是多了很多累赘，而且还占用了一个函数名空间。
LM大师有一个好处，在程序中不使用本程序未定义的用户函数，这种函数在每个使用到的程序中都会复制一遍，一行是复制，一段也是复制，大概也就习惯了。^_^

/db_自贡黄明儒_

感谢分享，回复学习大师的东西

liuyj

我也一直没明白他为什么这么写