各位dx帮我看一下，到底问题出在哪里？

gmtyt

此程序的目的：在一个圆内做一个半径为此圆半径一半的同心圆，然后在旧圆上画一个十字：

(defun c:dll();命令名称：动力轮（dll）
(setq en (entsel "选一个圆："))
(setq en_data (entget(car en)))
(setq bj (cdr(assoc 40 en_data)))
(setq yx (cdr(assoc 10 en_data)))

(setq d2 (polar yx pi bj))         ;180度
(setq d1 (polar yx 0 bj))          ;0度
(setq d3 (polar yx (/ pi 2) bj))   ;90度
(setq d4 (polar yx (* pi 1.5) bj)) ;270度

(command "circle" yx (/ bj 2))
(command "line" d1 d2 "")

(command "line" d3 d4 "")

(prin1)

)

下面是程序的错误提示：

命令: dll
选一个圆：circle 指定圆的圆心或 [三点(3P)/两点(2P)/相切、相切、半径(T)]:
指定圆的半径或 [直径(D)] <230.8967>: 230.8967085695875
命令: line 指定第一点:
指定下一点或 [放弃(U)]: 已在 (759.7174, 600.6935, 0.0000) 创建零长度直线
指定下一点或 [放弃(U)]:
命令: line 指定第一点:
指定下一点或 [放弃(U)]: 已在 (759.7174, 600.6935, 0.0000) 创建零长度直线
指定下一点或 [放弃(U)]:
命令:

这是怎么一回事啊，请指点一下

liu22737

我用cad2004

ZZXXQQ

估计是特征点捕捉打开了。试一下改过的程序：

3. (defun c:dll();命令名称：动力轮（dll）
5. (defun c:dll();命令名称：动力轮（dll）
6. (SETQ OLDOS (GETVAR "OSMODE"))
7. (SETVAR "OSMODE" 0)
8. (setq en (entsel "选一个圆："))
9. (setq en_data (entget(car en)))
10. (setq bj (cdr(assoc 40 en_data)))
11. (setq yx (cdr(assoc 10 en_data)))
12. (setq d2 (polar yx pi bj))         ;180度
13. (setq d1 (polar yx 0 bj))          ;0度
14. (setq d3 (polar yx (/ pi 2) bj))   ;90度
15. (setq d4 (polar yx (* pi 1.5) bj)) ;270度
16. (command "circle" yx (/ bj 2))
17. (command "line" d1 d2 "")
18. (command "line" d3 d4 "")
19. (SETVAR "OSMODE" OLDOS)
20. (prin1)
21. )

(defun c:dll();命令名称：动力轮（dll） (defun c:dll();命令名称：动力轮（dll） (SETQ OLDOS (GETVAR "OSMODE")) (SETVAR "OSMODE" 0) (setq en (entsel "选一个圆：")) (setq en_data (entget(car en))) (setq bj (cdr(assoc 40 en_data))) (setq yx (cdr(assoc 10 en_data))) (setq d2 (polar yx pi bj))         ;180度 (setq d1 (polar yx 0 bj))          ;0度 (setq d3 (polar yx (/ pi 2) bj))   ;90度 (setq d4 (polar yx (* pi 1.5) bj)) ;270度 (command "circle" yx (/ bj 2)) (command "line" d1 d2 "") (command "line" d3 d4 "") (SETVAR "OSMODE" OLDOS) (prin1) )

gmtyt

正是“对象捕捉”开着的原因，多谢ZZXXQQ了