如果是直线
- (setq ent (entsel "请选择直线:"))
- (setq ename (car (ent))
- (setq edata (entget ename))
- (setq startpoint (cdr (assoc 10 edata)));;;直线起点
- (setq endpoint (cdr (assoc 11 edata)));;;直线终点
如果是块
- (setq ent (entsel "请选择块:"))
- (setq ename (car ent))
- (setq edata (entget ename))
- (setq insertpoint (cdr (assoc 10 edata)));;;块的插入点
以上只是简单说明。如果你不选择,或者不按要求选择,程序会出错,所以还是需要楼主自己理解后加以改进。 |