[求助]测量二线夹角程序,要在命令行提示度/分/秒的.

pfd8667 · 发表于 2004-9-26 16:07:00

我不会编程,多个网站也没找到,请求高手帮忙编一个[测量二线夹角程序,要在命令行提示度/分/秒的].谢谢!

wmz · 发表于 2004-9-26 18:08:00

(defun c:ljj(/ p1 p2 p3 jd0 jd)
   (setq p1 (getpoint "\n取左边一点:"))
   (setq p2 (getpoint "\n取顶点:"))
   (setq p3 (getpoint "\n取右边一点:"))
   (setq jd0 (- (angle p2 p1) (angle p2 p3)))
(if (= aa2 59.95)(progn
   (setq a1 (+ a1 1) aa2 0.00)
   ))
   (setq a2 (fix aa2))
   (if (>= aa1 60.0)
   (progn
     (setq aa0 (+ aa0 1) a1 0)
   )
   )
   (setq bb1 (itoa a1))
   (if (= a1 0)(setq bb1 "00"))
   (setq bb2 (rtos aa2 2 1))
   (if (= a2 0)(setq bb2 "00"))
   (setq fwj1 (strcat (itoa aa0) "度" bb1 "分" bb2 "秒"))
)

pfd8667 · 发表于 2004-9-26 20:05:00

wmz 您好:
太感谢你了,我试了一下,太好了,比用CAD中的角度标注还精确,再次表示谢意!

alin · 发表于 2004-9-26 20:44:00

复制代码
那只是设置问题。

pfd8667 · 发表于 2004-9-26 21:40:00

版主说的看法我不认为是这回事.因为在CAD二个设置我都设置了度/分/秒,但用角度标注未能反映秒,2楼的就行,是我见的测量夹角最满意的,但在命令行提示角度重复了,我不懂编程,能否请 wmz帮在修改一下,那就太完美无缺.

cqnj023 · 发表于 2004-9-26 22:00:00

角度标注的精度应当修改当前标注样式才能体现。在命令行提示重复只需在最后加上一句(princ)，变为

copy


(defun c:ljj(/ p1 p2 p3 jd0 jd)
     (setq p1 (getpoint "\n取左边一点:"))
     (setq p2 (getpoint "\n取顶点:"))
     (setq p3 (getpoint "\n取右边一点:"))
     (setq jd0 (- (angle p2 p1) (angle p2 p3)))   (if (= aa2 59.95)(progn
           (setq a1 (+ a1 1) aa2 0.00)
       ))
                     (setq a2 (fix aa2))
       (if (>= aa1 60.0)           (progn
                 (setq aa0 (+ aa0 1) a1 0)
           )       )
                     (setq bb1 (itoa a1))
                     (if (= a1 0)(setq bb1 "00"))
                     (setq bb2 (rtos aa2 2 1))
                     (if (= a2 0)(setq bb2 "00"))
                     (setq fwj1 (strcat (itoa aa0) "度" bb1 "分" bb2 "秒")))