急急急！！请高手帮我修改一个粗糙度的程序，谢谢！

ptfjr2003

(defun c:rough(/ v1 v2 p0 p1 p10 p2 p3 h h1 s a1 alf alf1))
(setq v1 (getvar"cmdecho"))
(setq v2 (getvar"blipmode"))
(setvar"cmdecho"0)
(setq p0 (getpoint"插入点："))
(setq p10 (osnap p0"\n粗糙度数值的字高〈3.5〉:"))
(if (not h) (setq h 3.5)
(setq h1(* h 1.61658))
(if p10)
(progn
(setq alf1 (angle p10 p0))
(setq p0 p10)
(setq alf(- alf(* 0.5 pi)))
)
(progn
(setq alf(getangle p0"\n旋转角〈0〉："))
(if (not alf) (setq alf 0.0))
)
)
(setq al (+ alf (/ pi3)))
(setq p1 (polar p0 a1 (* 2 h1)))
(setq p2 (polar p0 a1 h1)
(setq a1 (+ alf(/ pi 1.5)))
(setq p3 (polar p9 a1 h1))
(setq a1 (+ alf (* 0.5 pi)))
(setq p4 (polar p0 a1 (* 1.4 h1)))
(setq s(getstring"\n输入表面粗糙度的值〈6.3〉："))
(if (= 0 (strlen s)) (setq s"6.3"))
(setq alf (/ (* alf 180) pi))
(setq alf (cond ((and (> alf 90) (<= alf 270)) (- alf 180))
((> alf 270) (- alf 360))
((= alf - 90)90)
(t alf)
)
)
(setvar"blipmode" 0)
(if (=s "0")
(progn
(setq p4(polar p0 a1 (* 0.93333 h)))
(command "line" p1 p0 p3"")
(command "circle" p4 (* 0.46666 h))
)
(progn
(command "line" p2 p3 p0 p1"")
(if (>(strlen s) 3)
(setq p4(polar p4 (+ a1 (* 0.5 pi)) (* 0.4 h)))
)
(command "text" "m" p4 h alf s)
)
)
(setvar "cmdecho" v1)
(setvar "blipmode" v2)
(princ)
)

jordan

楼主，程序调试修改通过。在ACAD2002中能正常运行。。但请在使用中注意以下几个问题:


1         在程序要求输入数值，例如字高3.5，有以下两种方法可以得到p10点的位置。。第一种是直接输入数值，第二种是在屏幕中指定p10的位置，，也即是决定了字高的大小，


2、在确定用户是否要求是绘制无加工符号时，我使用了字母"o"来确认用户输入，，你以前的程序是用“0”所以会没有得到你想要的结果，原因是0本身是一个数值，而不是字符，所以会出错。。


好了。。余下的问题看程序吧。。我都在必要的地方加了注释。。如果还有什么问题欢迎给我留言。 好了。累了。。睡去了。。


程序可以执行的功能有绘制任意角度的粗糙度符号（要手动确定旋转角的度数）2绘制任意角度的不加工符号。。文本高度无限大。好了。是不是你想的功能都实现了。。你下载后去试一试就知道了。。反正我现在用没问题了。呵呵。你还犯了一个很低级的错误，那就是你在程序最开始定义时最后一个括号应该放在最后。。好了。。。。888。。希望你在这里能快乐开心。这就是我们最大的开心了。。：）