[求助]为什么这个程序有时候行有时候不行呢？

smartstar

;;按指定距离打断直线
(defun c:BRR (/ sc pt1 apt2)
   (setq xa 10)
   (princ "\n打断距离 <")
   (princ xa)
   (princ ">")
   (setq sc (getdist))
   (setq pt3 (cadr (entsel)))
   (setq pt (getpoint "\n请输入打断基点: "))
   (command "circle" pt xa)
   (command "trim" "l" "" pt "")
   (command "erase" "p" "")
   (princ)
)

linhui12

在CAD2006下测试没发现问题

ZZXXQQ

在程序开头加上(setvar "OSMODE" 0)。

yucpp

这个程序我运行了几次，都没有成功打断？ 怎么回事？

smartstar

ZZXXQQ发表于2009-6-16 19:35:00在程序开头加上(setvar \"OSMODE\" 0)。

楼主还是不行啊！

ZZXXQQ

这样试试：

3. (defun c:BRR (/ pt)
4. (setq xa 10)
5. (setq sc (getdist (strcat "\n打断距离 <" (rtos xa 2) ">")))
6. (setq xa (if sc sc xa))
7. (if (setq pt (osnap (getpoint "\n请输入打断基点: ") "NEAR")) (progn
8.   (command "circle" "near" pt "d" xa)
9.   (command "trim" "l" "" "near" pt "")
10.   (command "erase" "p" "")
11. ))
12. (princ)
13. )

(defun c:BRR (/ pt) (setq xa 10) (setq sc (getdist (strcat "\n打断距离 <" (rtos xa 2) ">"))) (setq xa (if sc sc xa)) (if (setq pt (osnap (getpoint "\n请输入打断基点: ") "NEAR")) (progn   (command "circle" "near" pt "d" xa)   (command "trim" "l" "" "near" pt "")   (command "erase" "p" "") )) (princ) )