求解请问这个字符串连接，并text写出出错在哪里

x_s_s_1 · 发表于 2011-3-7 04:28:46

本帖最后由 x_s_s_1 于 2011-3-7 04:36 编辑

你"command"中空格用的不是地方

(defun c:slop
(/ h1 p0 p1 p2 p3 wide1 angle1 angle2 p4 p5 p6 text1 text2)
(setvar "cmdecho" 0);;;关闭命令响应
(setvar "osmode" 0);建议关掉
(setq angle1 (getreal "\n请指定坡面倾角 : "))
(setq h1 (getreal "\n请输入基坑深度 : "))
(setq p0 (GETPOINT "\n请指定插入点 : "))
(setq angle2 (* (/ angle1 180) pi))
(setq p1 (polar p0 0 1000))
(setq p2 (polar p1 angle2 (/ h1 (sin angle2))))
(setq p3 (polar p2 0 1000))
(setq p4 (polar p3 0 1000))
(setq p5 (polar p1 angle2 (/ (/ h1 2) (sin angle2))))
(setq p6 (polar p5 pi 100))
(setq text1 (rtos (tan angle2) 2 1))
(setq text2 (strcat "1:" text1 "放坡"))
(command "text" p6 250 angle1 text2)
(COMMAND "PLINE" p0 p1 p2 P3 "")
(COMMAND ".offset" 80 (entlast) p4 "")
(princ);静默退出
) ;_ 结束defun
;;;============================================================
;;;自定义补充　三角函数　　　　　　　　　　　　　　　　　　　　
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
;;;　说　明：Alisp只提供了: sin cos atan　三个三角函数;　
;;;　　　　　本文件扩展函数: asin acos tan　　　　　　　　
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
;;;============================================================
;;;=======第１个.反正弦函数====================================
;;; 参　数：a---正弦值，类型为数值。　　　　　　　　　　　　　
;;; 返回值：返回角度值，单位为弧度。　　　　　　　　　　　　　
(defun asin (a)
(if (and
(= (numberp a) T)
(<= (abs a) 1.0)
) ;_ 结束and
(if (= a 1.0)
(* pi 0.5)
(atan (/ a
(sqrt (- 1 (* a a)))
) ;_ 结束/
) ;_ 结束atan
) ;_ 结束if
nil
) ;_ 结束if
) ;结束defun
;;;============================================================
;;;=======第２个.反余弦函数====================================
;;; 参　数：a---余弦值，类型为数值。　　　　　　　　　　　　　
;;; 返回值：返回角度值，单位为弧度。　　　　　　　　　　　　　
(defun acos (a)
(if (and (= (numberp a) T)
(<= (abs a) 1.0)
) ;_ 结束and
(if (= a 0.0)
(* pi 0.5)
(atan (/ (sqrt (- 1 (* a a)))
a
) ;_ 结束/
) ;_ 结束atan
) ;_ 结束if
nil
) ;_ 结束if
) ;结束defun
;;;============================================================
;;;=======第３个.正切函数======================================
;;; 参　数：a---角度值，单位为弧度。　　　　　　　　　　　　　
;;; 返回值：返回正切值。　　　　　　　　　　　　　　　　　　　
(defun tan (a)
(if (= (numberp a) T)
(/ (sin a) (cos a))
nil
) ;_ 结束if
) ;结束defun
;;;============================================================

(defun c:slop 
       (/ h1 p0 p1 p2 p3 wide1 angle1 angle2 p4 p5 p6 text1 text2) 
  (setvar "cmdecho" 0);;;关闭命令响应 
  (setvar "osmode" 0);建议关掉 
  (setq angle1 (getreal "\n请指定坡面倾角 : ")) 
  (setq h1 (getreal "\n请输入基坑深度 : ")) 
  (setq p0 (GETPOINT "\n请指定插入点 : ")) 
  (setq angle2 (* (/ angle1 180) pi)) 
  (setq p1 (polar p0 0 1000)) 
  (setq p2 (polar p1 angle2 (/ h1 (sin angle2)))) 
  (setq p3 (polar p2 0 1000)) 
  (setq p4 (polar p3 0 1000)) 
  (setq p5 (polar p1 angle2 (/ (/ h1 2) (sin angle2)))) 
  (setq p6 (polar p5 pi 100)) 
  (setq text1 (rtos (tan angle2) 2 1)) 
  (setq text2 (strcat "1:" text1 "放坡")) 
  (command "text" p6 250 angle1 text2) 
  (COMMAND "PLINE" p0 p1 p2 P3 "") 
  (COMMAND ".offset" 80 (entlast) p4 "") 
  (princ);静默退出 
) ;_ 结束defun 
 
;;;============================================================ 
;;;自定义补充　三角函数　　　　　　　　　　　　　　　　　　　　 
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
;;;　说　明：Alisp只提供了: sin cos atan　三个三角函数;　 
;;;　　　　　本文件扩展函数: asin acos tan　 　　　　　　　 
;;;　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 
;;;============================================================ 
;;;=======第１个.反正弦函数==================================== 
;;; 参　数：a---正弦值，类型为数值。　　　　　　　　　　　　　 
;;; 返回值：返回角度值，单位为弧度。　　　　　　　　　　　　　 
(defun asin (a) 
  (if (and 
        (= (numberp a) T) 
        (<= (abs a) 1.0) 
      ) ;_ 结束and 
    (if        (= a 1.0) 
      (* pi 0.5) 
      (atan (/ a 
               (sqrt (- 1 (* a a))) 
            ) ;_ 结束/ 
      ) ;_ 结束atan 
    ) ;_ 结束if 
    nil 
  ) ;_ 结束if 
)                                        ;结束defun 
;;;============================================================ 
;;;=======第２个.反余弦函数==================================== 
;;; 参　数：a---余弦值，类型为数值。　　　　　　　　　　　　　 
;;; 返回值：返回角度值，单位为弧度。　　　　　　　　　　　　　 
(defun acos (a) 
  (if (and (= (numberp a) T) 
           (<= (abs a) 1.0) 
      ) ;_ 结束and 
    (if        (= a 0.0) 
      (* pi 0.5) 
      (atan (/ (sqrt (- 1 (* a a))) 
               a 
            ) ;_ 结束/ 
      ) ;_ 结束atan 
    ) ;_ 结束if 
    nil 
  ) ;_ 结束if 
)                                        ;结束defun 
;;;============================================================ 
;;;=======第３个.正切函数====================================== 
;;; 参　数：a---角度值，单位为弧度。　　　　　　　　　　　　　 
;;; 返回值：返回正切值。　　　　　　　　　　　　　　　　　　　 
(defun tan (a) 
  (if (= (numberp a) T) 
    (/ (sin a) (cos a)) 
    nil 
  ) ;_ 结束if 
)                                        ;结束defun 
;;;============================================================

daiguafan · 发表于 2011-3-7 08:31:28

回复 x_s_s_1 的帖子

谢谢，再请教个问题，使用offset以后，又该如何捕捉到新pline线的顶点呢

x_s_s_1 · 发表于 2011-3-7 08:38:46

本帖最后由 x_s_s_1 于 2011-3-7 08:39 编辑

(setq pn1 (polar p0 (/ pi 2) 80))或(setq pn1 (polar p3 (/ pi 2) 80))

daiguafan · 发表于 2011-3-7 12:20:13

回复 x_s_s_1 的帖子

谢谢了，做成了，呵呵

daiguafan · 发表于 2011-3-7 15:44:04

回复 x_s_s_1 的帖子

还请教个问题，我写的文字有事会在直线下方，有时候贴着直线，请问文字定位有什么好办法没有

账号		自动登录	找回密码
密码			注册

[基础] 求解 请问这个字符串连接，并text写出出错在哪里

[基础] 求解请问这个字符串连接，并text写出出错在哪里