菜鸟初学写程序，请帮忙修改！谢谢

jiang82040

这个程序是我初学会写的，请各位大虾帮忙修改一下，现在存在的问题是，用DXF代码获取字的角度和高度时不对，重写的字角度与基准的字不一样！ ;;;等高线高程连续计算重写程序
;;;角度转化
(defun rtd(a)
(* 180 (/ a pi))
)
(defun dtr(a)
(* a (/ pi 180.0)
)
)
;;;主程序
(defun cXBGCX(/ oldcmd SS TL zg JD JS jj p pt1 )
(setq oldcmd(getvar "cmdecho"))
(SETvar "CMDECHO" 0)
(PRINC "\n选择已标注好的初始高程:")
(SETQ SS (SSGET '((0 . "MTEXT"))))
(SETQ TL (CDR (ASSOC 1 (ENTGET (SSNAME SS 0)))))
(SETQ zg (CDR (ASSOC 40 (ENTGET (SSNAME SS 0)))))
(SETQ jd (CDR (ASSOC 50 (ENTGET (SSNAME SS 0)))))
(setq JS(distof TL 2))

(setq p(getreal "\n设置步距[上+，下-]<2>:"))
(if (= p nil)
(setq p 2)
)
(setq pt1(getpoint "\n输入重写点："))
(setq jj(+ JS p))
(setq JD(rtos jj 2 3))
(command "text" "j" "m" pt1 zg jd JD)
(while pt1
(setq pt1(getpoint "\n输入重写点："))
(if (= pt1 nil)
(ddd)
(progn
(setq jj(+ jj p))
(setq JD(rtos jj 2 3))
(command "text" "j" "m" pt1 zg jd JD)

(SETvar "CMDECHO" oldcmd)

)
)
)
)
(defun ddd(/ str)
(setq str "高程标注完成，请检查!")
(prompt str)
(SETvar "CMDECHO" oldcmd)
(princ)
)

meflying

注意：LISP语言对大小写不敏感，，，jd和JD是一样的另，你的过程比较紊乱，给你稍微优化了一下：

2. ;;;等高线高程连续计算重写程序
3. ;;;角度转化
4. ;;;主程序
5. (defun c:LXBGCX(/ oldcmd SS TL zg jd JDT JS jj p pt1 ent)
6.    (setq oldcmd(getvar "cmdecho"))
7.    (SETvar "CMDECHO" 0)
8.    (PRINC "\n选择已标注好的初始高程:")
9.    (SETQ SS (SSGET '((0 . "MTEXT"))) ent (ssname ss 0))
10.    (SETQ TL (CDR (ASSOC 1 (entget ent))))
11.    (SETQ zg (CDR (ASSOC 40 (entget ent))))
12.    (SETQ jd (CDR (ASSOC 50 (entget ent))))
13.    (setq jj(distof TL 2))
14.    (setq p(getreal "\n设置步距[上+，下-]<2>:"))
15.    (if (= p nil) (setq p 2))
16.    (while (setq pt1 (getpoint "\n输入重写点："))
17.        (setq jj(+ jj p))
18.        (setq JDT (rtos jj 2 3))
19.        (command "text" "j" "m" pt1 zg jd JDT)
20.    )
21.    (princ "\n高程标注完成，请检查!")
22.    (SETvar "CMDECHO" oldcmd)
23. )

;;;等高线高程连续计算重写程序 ;;;角度转化 ;;;主程序 (defun c:LXBGCX(/ oldcmd SS TL zg jd JDT JS jj p pt1 ent)    (setq oldcmd(getvar "cmdecho"))    (SETvar "CMDECHO" 0)    (PRINC "\n选择已标注好的初始高程:")    (SETQ SS (SSGET '((0 . "MTEXT"))) ent (ssname ss 0))    (SETQ TL (CDR (ASSOC 1 (entget ent))))    (SETQ zg (CDR (ASSOC 40 (entget ent))))    (SETQ jd (CDR (ASSOC 50 (entget ent))))    (setq jj(distof TL 2))    (setq p(getreal "\n设置步距[上+，下-]<2>:"))    (if (= p nil) (setq p 2))    (while (setq pt1 (getpoint "\n输入重写点："))        (setq jj(+ jj p))        (setq JDT (rtos jj 2 3))        (command "text" "j" "m" pt1 zg jd JDT)    )    (princ "\n高程标注完成，请检查!")    (SETvar "CMDECHO" oldcmd) )

jiang82040

谢谢飞哥，太谢谢了！

jiang82040

请问飞哥，如何获得文本字体高度和倾角！我上面的那个程序中字高和角度好相不起作用啊！有劳你了！