本帖最后由 kozmosovia 于 2024-11-13 15:02 编辑
第六行(getpoint "\n图块插入点:")改成 (getpoint "\n图块插入点:") "1" pause
或者先插入再旋转- (DEFUN C:dtys ()
- (SETVAR "CMDECHO" 0)
- (SETVAR "OSMODE" 0) ;关闭捕捉
- (COMMAND "_INSERT"
- "D:\\钢管图块.dwg"
- (getpoint "\n图块插入点:")
- )
- (while (> (getvar "CMDACTIVE") 0) (command ""))
- (command "_.Rotate" (entlast) "" (cdr (assoc 10 (entget (entlast)))) pause)
- (command "_.explode" (entlast))
- (princ) ;静默退出
- )
|