[求助]请教高手们个小问题

佣兵

请教高手们个小问题：实心圆如何做？是用图案填充吗？，以下是小弟的拙作，零件序号标注想将其中的圆做成实心圆，请大家修改！ ; ; ; 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)
)

xyp1964

用圆环做： (defun c:test()
(setvar "DONUTID"0)
(setq no1 (ureal 1 "" "半径" no1))
(setvar "DONUTOD"no1)
(command "donut" "" "")
)
(defun ureal (bit kwd msg def / inp)
(if def
(setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
bit (* 2 (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
)
(initget bit kwd)
(setq inp (getreal msg))
(if inp inp def)
)

佣兵

先谢谢楼上的兄弟，可是如何加入到我的程序哪？我试了几次，划线没问题，可一到同心圆那里就出错！同心圆可不可以以直接作出，而不用定义圆心，以程序的第一给定点为圆心。还请解惑。

xyp1964

再试试： (defun c:test () (setvar"ORTHOMODE"0);;取消正交，或按F8键
(setq p1 (getpoint "\n 请指定标志线的起点:")
p2 (getpoint p1 "\n 请指定标注线第二点:")
)
(setvar "osmode" 0)
(command "donut" "0" "1" p1 "")
(command "line" p1 p2 "@5<0" "")
(setq p3 (osnap p2 "midp"))
(command "text" "j" "bc" p3 5 0)
(setvar "osmode" 39)
(princ)
)

佣兵

这下可以了！谢谢斑竹，可是p1和p2的连线成了一条垂直线，可不可以是斜线哪？

佣兵

解决了，将p2 (getpoint p1 "\n 请指定标注线第二点:")中的p1去掉就可以了，谢谢斑竹的帮助

xyp1964

佣兵发表于2004-10-28 23:29:00解决了，将p2 (getpoint p1 \"\n 请指定标注线第二点:\")中的p1去掉就可以了，谢谢斑竹的帮助

去掉就不好了，点了第一点，有根橡皮筋可以看到上一点的位置。 不想成垂直或水平线，只要按一下F8键！