请教各位 最后弧长差值 无法算出 请教是哪出问题了?(已解决)
本帖最后由 lincctw_ccl 于 2011-10-11 12:02 编辑请教各位 最后弧长差值 无法算出 请教是哪出问题了?谢谢!!
(DEFUNC:tt ()(setvar "osmode"0)(setvar "orthomode"1);;正交模式开关(setvar "blipmode"0);;标记点开关(setvar "cmdecho"0)(setq sel (entsel "\n选取R角 :"))(setq ang(cdr(assoc 51(entget(carsel)))))(setq arcang(ndtr ang))(command "lengthen"sel "");;取得弧长(setq lena (getvar "perimeter"))(setq lena (strcat(rtoslena 2 4)))(setq arca (strcat(rtosarcang 2 4)))(princ (strcat "\n弧长=" lena ))(princ (strcat "\n夹角=" arca ))(setq arc- (getreal "\n角度调整值:")) (command "lengthen""de" "a" arc- sel "")(setq selb (ENTLAST)) (command "lengthen"selb "") (setq lenb (getvar "perimeter"))(setq lenb (strcat(rtoslenb 2 4)))(princ (strcat "\n调整后的弧长=" lenb ))(setq leg+ (- lena lenb))(princ (strcat "\n弧长差异值=" leg+ )) (setvar "cmdecho" 1)(setvar "osmode"0)(princ))
;弧度转为角度(defun ndtr (ang )(/ (* ang 180) pi))
本帖最后由 byghbcx 于 2011-10-11 10:38 编辑
哪里抄的程序，lena 、lenb都转成字符了，后面还当实数来运行
弧的夹角要用50、51后面的起始角、终止角来运算才能得到。
byghbcx 发表于 2011-10-11 10:35 static/image/common/back.gif
哪里抄的程序，lena 、lenb都转成字符了，后面还当实数来运行
该程序为东拼西凑而来!
谢谢指出问题点
错误多，下面是改过的。
(defun C:tt ()
(setvar "osmode"0)
(setvar "orthomode"1);;正交模式开关
(setvar "blipmode"0);;标记点开关
(setvar "cmdecho"0)
(setq sel (entsel "\n选取R角 :"))
(setq ang (cdr(assoc 51 (entget(car sel)))))
(setq arcang (ndtr ang))
(command "lengthen" sel "");;取得弧长
(setq lena (getvar "perimeter"))
(setq lena (strcat (rtos lena 2 4)))
(setq arca (strcat (rtos arcang 2 4)))
(princ (strcat "\n弧长=" lena))
(princ (strcat "\n夹角=" arca ))
(setq arc- (getreal "\n角度调整值:"))
(command "lengthen" "de" "a" arc- sel "")
(setq selb (entlast))
(command "lengthen" selb "")
(setq lenb (getvar "perimeter"))
(setq lenb (strcat(rtos lenb 2 4)))
(princ (strcat "\n调整后的弧长=" lenb))
(setq leg+ (rtos (- (read lena) (read lenb)) 2 4))
(princ (strcat "\n弧长差异值=" leg+))
(setvar "cmdecho" 1)
(setvar "osmode"0)
(princ)
)
;弧度转为角度
(defun ndtr (ang) (/ (* ang 180) pi))
谢谢 byghbcx及 版主的指点!
我的问题已获得解决!!
页:
[1]