拾取块1拾取块2插入块1距离块2
代码get insert pt of block1,get insert point of block 2,dist=pt2-pt1,new insert pt3=pt2+dist in x,y coords insert block 1 pt3 scale等
这里有很多关于entsel的例子,在公共lisp或我将使用VL中获取插入点或其他块信息。
- (vl-load-com)
- (setq doc (vla-get-activedocument (vlax-get-acad-object)))
- (setq obj (entsel "pick block"))
- (setq ent (vlax-ename->vla-object (car obj)))
- (setq pt (vlax-get ent 'InsertionPoint ))
- (setq blname (vlax-get ent 'Name))
- ; repeat as required
|