希望大家能帮忙解答，急需这个程序，谢谢

佣兵

下面这个程序为什么能够加载，在执行中总说函数错误，不能画出圆哪？ ; ; ; this is user's autolisp program for drawing znnotation number.
; ; ; copyright reserved, not modification without permission by user. (defun c:yxy()
(setq p1(getpoint"\n 请指定标志线的起点:")
p2(getpoint"\n 请指定标注线第二点:")
)
(setvar "osmode" (logior (getvar "osmode") 16384)); 关辅捉
(command "circle" "p1" "1" )
(command "line" p1 p2 "@5<0" "")
(setq p3 (osnap p2 "midp"))
(command "text" "j" "bc" p3 5 0 )
(setvar "osmode" (logand (getvar "osmode") 49151));开辅捉
(princ)
)

佣兵

大家可以给点意见吗？谢谢

xjjy

;this is user's autolisp program for drawing znnotation number.
; copyright reserved, not modification without permission by user. (defun c:yxy()
(setq p1(getpoint"\n 请指定标志线的起点:")
p2(getpoint"\n 请指定标注线第二点:")
)
(setvar "osmode" (logior (getvar "osmode") 16384)); 关辅捉
(command "circle" p1 "1" ) ;错在这一行！
(command "line" p1 p2 "@5<0" "")
(setq p3 (osnap p2 "midp"))
(command "text" "j" "bc" p3 5 0 )
(setvar "osmode" (logand (getvar "osmode") 49151));开辅捉
(princ)
)

佣兵

l楼上的兄弟可以说明一下怎么改吗？

xyp1964

(command "circle" "p1" "1" )改为(command "circle" p1 "1" )
估计是要标注说明，应该先写字，然后判断字的长度，在其下离开一定的距离画线，再指到引出之处，画线和加原点。还要考虑出图比例，否则半径为1的圆，1:100出图时只能用放大镜看了！

佣兵

还要考虑出图比例，否则半径为1的圆，1:100出图时只能用放大镜看了！


谢谢楼上兄的提醒，一定注意