马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
[sell=2] - (defun c:XDTB_BLKAno( / na ss)
- (xdrx_prompt "\n选取制作匿名块的实体<退出>:")
- (if (setq ss (ssget))
- (progn
- (setq na (xdrx_block_make ss (xd::geom:get9pt ss 5) t))
- (setq na (xdrx_getpropertyvalue na "blocktablerecord"))
- (xdrx_prompt "\n选择的实体成功的聚合到块" (car na) "中.")
- )
- )
- (princ)
- )
[/sell]
|