请大家帮忙解决一下，谢了

佣兵

以下是我初步的一个lisp，想在这之前画一个以标志线起点为圆心，1为半径的圆，然后再画下面的直线，请大家帮一下忙。 ; ; ; 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 请指定标注线第二点:")
)
(command "line" p1 p2 "@5<0" "")
(setq p3 (osnap p2 "midp"))
(command "text" "j" "bc" p3 5 )
(princ)
) 另外，为什么这个程序标出的数字，有时是倾斜的，有时确是正的。怎么改善一下，还望大家不吝赐教

BDYCAD

我认为是未关辅捉造成的小小错误, 加上这句试试. (setvar "osmode" (logior (getvar "osmode") 16384)); 关辅捉 (defun c:yxy()
(setq p1(getpoint"\n 请指定标志线的起点:")
p2(getpoint"\n 请指定标注线第二点:")
) (setvar "osmode" (logior (getvar "osmode") 16384)); 关辅捉
(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)
)

citykunan

刚开始，总是会忘了这一点。

佣兵

谢谢斑竹和高手的提醒，那么在这之前先做以标志线起点为圆心，1为半径的实心圆，然后再接画直线、标注的步骤，语句应该如何写哪、


抱歉，我是个新新手，只是刚接触lisp，这样的低级问题，还希望能提示一下，谢谢。


我应该看些什么书，对我这个阶段的lisp学习有帮助哪？

佣兵

在这一句上 command "text" "j" "bc" p3 5 0                         有时候p3 5 0        可以提示输入数字，有时候标注数字就直接标为0了

佣兵

将文字样式设为0，就是正的，设为5，宽度比例设为0 .7就是倾斜的，如何在将文字样式设为5，宽度比例设为0 .7时，数字还能是正的哪？

meflying

本身就是正的啊,把角度设为非0才是斜的啊

无痕

不明白，跟字有什么关系，人家是要在起点画圆圈

佣兵

无痕兄可以给点建议吗？谢谢

佣兵

我将程序加了条(command "circle" "p1" "1" )还是不能画圆，不知是为什么？下面是程序 ; ; ; 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 请指定标注线第二点:")
)
(command "circle" "p1" "1" )
(command "line" p1 p2 "@5<0" "")
(setq p3 (osnap p2 "midp"))
(command "text" "j" "bc" p3 5 0 ) (princ)
)