我正在创建一个例程,它将选择一条线,插入一个符号,然后断开,然后断开这条线(我所有的工作都完成了)。但是,我想添加一个功能,即在两次尝试后,没有选择任何线,将使用上次尝试的点。关于如何在不添加额外用户getpoint提示的情况下轻松获取这一点,有什么建议吗?
这是我用来选线的程序的一部分
- (while (and (not linent) (< countr 2))
- (setq linent (entsel "\nPick Line for Block Insertion Point: "))
- (if linent
- (progn
- (setq ed (entget (car linent)))
- (setq edd (dxf 0 ed))
- (if (and (/= edd "LINE") (/= edd "POLYLINE"))
- (setq linent nill)
- )
- ) ;progn
- ) ;if
- (setq countr (1+ countr))
- (if (not linent)
- (prompt "\nYou must select a LINE as Insertion Point ! ")
- )
- ) ;while
|