我简化了 统一网名 网友的代码,你看看行不行。
- (defun c:11(/ dxname p0 p1 p2 p3)
- (if (setq dxname (entsel "\n选择五角星:"))
- (progn
- (setq p1 (getreal "\n向右距离:"))
- (setq p2 (getreal "\n向上距离:"))
- (setq p0 (osnap (cadr dxname) "nea"))
- (setq p3 (list (+ (car p0) p1) (+ (cadr p0) p2)))
- (command "copy" dxname "" p0 p3)
- )
- )
- (princ))
|