328302216 发表于 2013-7-8 14:12
支持一下
谢谢回复! 发现好多人光下载,不回帖!
没意思。- ;;;利用getpoint做个GRREAD函数 尝试。
- ;;;怎么得不到AA的值呢??
- (DEFUN YY-GRREAD ( / AA BB DOC)
- (SETVAR "nomutt" 1)
- (setq doc (vlax-get (vlax-get-acad-object) "activedocument"))
- (INITGET 128)
- (SETQ BB "(SETQ AA (GETPOINT)) @ ")
- (setq ab(vla-sendcommand doc BB))
- (SETVAR "nomutt" 0)
- ;(SETVAR "lastpoint" AA)
- AA
- )
|