请高手解决程序运行环境问题:测试CAD2010能运行,cad2007咋不能运行
(defun c:rec (/ pt1 pt2 pt3 kd gd )(setvar "cmdecho" 0)(if (not kd)(setq kd 30.00))(if (not gd)(setq gd kd))
(setq pt1 (getpoint "\n @输入矩形任一角點 :"));(initget 128 "z d ")
(setq pt3 (getcorner pt1 "\n @输入另一角點_(回车输_长度、高度 ):"))
(progn
(if(/= pt3 nil)(progn (command "_.rectang" pt1 pt3 "change"(entlast)"""p""c""6""")(exit)))
)
(initget 128 "s w ")
(setq kd (getkword"\n _@输入【矩形____ 长度】[
200x300(s)/
300x400(w)/:"))
(cond
((or(= kd "w")(= kd "W"))(progn(c:rec3 )(exit)))
((or(= kd "s")(= kd "S"))(progn(c:rec2 )(exit)))
((or(= kd nil)(= kd null))(progn
(setq kd(cond ((dist (strcat "\n _@ 输入矩形【长度】_ <"(rtos kd2 2)">: ")))(kd)))
(setq gd (cond ((udist (strcat "\n _@ 输入矩形【高度】_ <"(rtos gd 2 2)">: ")))(gd)))
(setq pt2 (polar pt1 0 kd) pt3 (polar pt2 (/ pi 2) gd))(command "_.rectang" pt1 pt3 "change"(entlast)"""p""c""6""")(exit))))
(princ))
测试CAD2010能运行,cad2007咋不能运行
dist udistc:rec3c:rec2这些都是未知函数
页:
[1]