[求助]：新手,请各位老兄帮忙看看,谢谢!

bolixin

我想把"BianHao"标在Pline线的中上方100处应该怎修改?
如果pline是斜线应该怎样调整文字角度?
(defun c:as()
  (setq pt1 (getpoint "\n-起点: "))
  (setq pt2 (getpoint pt1 "\n-终点: "))
  (command "pline" pt1 pt2 "")
  (setq Max_X (MAX (nth 0 pt1) (nth 0 pt2)))
  (setq Min_X (MIN (nth 0 pt1) (nth 0 pt2)))
  (setq cha_X (/ (- Max_X Min_X) 2))
  (setq Xzuobiao (+ Min_X cha_X))
  (setq Max_Y (MAX (nth 1 pt1) (nth 1 pt2)))
  (setq Min_Y (MIN (nth 1 pt1) (nth 1 pt2)))
  (setq cha_Y (/ (- Max_Y Min_Y) 2))
  (setq Yzuobiao (+ Min_Y cha_Y))
  (setq zuobiao (strcat (rtos Xzuobiao 2 0) "," (rtos Yzuobiao 2 0) ",0"))
  (command "text" zuobiao "500" "0" "BianHao")
)

ljpnb

2. 
   
3. (defun c:test ()
   
4.   (setq pt1 (getpoint "\n-起点: "))
   
5.   (setq pt2 (getpoint pt1 "\n-终点: "))
   
6.   (command "pline" pt1 pt2 "")
   
7.   (setq zuobiao (mapcar '(lambda (a b) (/ (+ a b) 2)) pt1 pt2))
   
8.   (setq ang(* (/ (angle pt1 pt2) pi) 180))
   
9.   (command "text" zuobiao  "500" ang "BianHao")
   
10. )
    

<br /> (defun c:test ()<br />   (setq pt1 (getpoint "\n-起点: "))<br />   (setq pt2 (getpoint pt1 "\n-终点: "))<br />   (command "pline" pt1 pt2 "")<br />   (setq zuobiao (mapcar '(lambda (a b) (/ (+ a b) 2)) pt1 pt2))<br />   (setq ang(* (/ (angle pt1 pt2) pi) 180))<br />   (command "text" zuobiao  "500" ang "BianHao")<br /> )<br />

bolixin

非常感谢楼上的，我在2002里测试，画斜线时符合要求，但画水平及垂直线时文字位置不定，有时在线的左端，有时在线的右端，不知怎么会事？

xyp1964

[php]
(load "xyp_lib");加载通用函数
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
通用函数下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

(defun c:test ()
  (cmdla0)
  (jzhz)
  (setq txt (ustr 1 "\n字符串" txt nil))
  (while (not (setq pts (getpoint "\n起点 : "))))
  (while (setq pte (getpoint pts "\n下一点<退出> : "))
    (setq dist (abs (distance pts pte)))
    (grvecs (list 1 pts pte))
    (setq pt-txt (pt-right pts pte 300))
    (command "text" "j" "mc" pt-txt (* sc 300.0) ang txt)
    (command "line" pts pte "")
    (setq pts pte)
  )
  (redraw)
  (cmdla1)
)
(princ)[/php]