求修改个lsp

gooday

求大神修改个lsp，提取文字和坐标增加提取角度。提取出来的文字内容增加一个文字旋转角度的值。
;
命令：plwbsc
(defun c:plwbsc()
(princ "\n选择所需输出的文本TEXT:")
(setq ss (ssget ));;选取坐标点
(setq n (sslength ss ));计算坐标点数量
(setq ff (open (getfiled "文件保存为" "f:/" "xls" 1) "w"));保存路径
(setq i 0)
(repeat n
(setq spt (ssname ss i ))
(setq ept (entget spt))
(if (= (cdr (assoc 0 ept)) "TEXT")
(progn
(setq lxyz (cdr (assoc 10  ept)))
(setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符
(setq sy (rtos (nth 0 lxyz)))
(setq sz (cdr (assoc 1 ept)))
(setq i1 (+ i 1));计算点序号
(setq sn (rtos i1 2 0));将序号实数转换成字符
(setq sxyz (strcat sn",,"  sy ","  sx  ","  sz))
(write-line sxyz ff)
)
)
(setq i (+ i 1))
);repeat
)
(prompt "* << 命令:plwbsc >> *输出格式（点号,, Y，X，Z）**")
(prin1)

生命

表示看不懂啊

ssyfeng

修改了一个，不知道是不是你需要的。

2. (defun c:plwbsc(/ angle ept ff i i1 lxyz n sn spt ss sx sxyz sy sz)
   
3.   (princ "\n选择所需输出的文本TEXT:")
   
4.   (setq ss (ssget ));;选取坐标点
   
5.   (setq n (sslength ss ));计算坐标点数量
   
6.   (setq ff (open (getfiled "文件保存为" "f:/" "xls" 1) "w"));保存路径
   
7.   (setq i 0)
   
8.   (repeat n
   
9.     (setq spt (ssname ss i ))
   
10.     (setq ept (entget spt))
    
11.     (if (= (cdr (assoc 0 ept)) "TEXT")
    
12.       (progn
    
13.         (setq lxyz (cdr (assoc 10  ept)))
    
14.         (setq angle (rtos (* (/ (cdr (assoc 50 ept)) pi ) 180) 2 3))
    
15.         (setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符
    
16.         (setq sy (rtos (nth 0 lxyz)))
    
17.         (setq sz (cdr (assoc 1 ept)))
    
18.         (setq i1 (+ i 1));计算点序号
    
19.         (setq sn (rtos i1 2 0));将序号实数转换成字符
    
20.         (setq sxyz (strcat sn",,"  sy ","  sx  ","  sz "," angle))
    
21.         (write-line sxyz ff)
    
22.       )
    
23.     )
    
24.     (setq i (+ i 1))
    
25.   );repeat
    
26.   (close ff)
    
27. )
    
28. (prompt "* << 命令:plwbsc >> *输出格式（点号,, Y，X，Z , angle）**")
    
29. (prin1)

(defun c:plwbsc(/ angle ept ff i i1 lxyz n sn spt ss sx sxyz sy sz)<br />   (princ "\n选择所需输出的文本TEXT:")<br />   (setq ss (ssget ));;选取坐标点<br />   (setq n (sslength ss ));计算坐标点数量<br />   (setq ff (open (getfiled "文件保存为" "f:/" "xls" 1) "w"));保存路径<br />   (setq i 0)<br />   (repeat n<br />     (setq spt (ssname ss i ))<br />     (setq ept (entget spt))<br />     (if (= (cdr (assoc 0 ept)) "TEXT")<br />       (progn<br />         (setq lxyz (cdr (assoc 10  ept)))<br />         (setq angle (rtos (* (/ (cdr (assoc 50 ept)) pi ) 180) 2 3))<br />         (setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符<br />         (setq sy (rtos (nth 0 lxyz)))<br />         (setq sz (cdr (assoc 1 ept)))<br />         (setq i1 (+ i 1));计算点序号<br />         (setq sn (rtos i1 2 0));将序号实数转换成字符<br />         (setq sxyz (strcat sn",,"  sy ","  sx  ","  sz "," angle))<br />         (write-line sxyz ff)<br />       )<br />     )<br />     (setq i (+ i 1))<br />   );repeat<br />   (close ff)<br /> )<br /> (prompt "* << 命令:plwbsc >> *输出格式（点号,, Y，X，Z , angle）**")<br /> (prin1)

gooday

ssyfeng 发表于 2018-10-24 13:32
修改了一个，不知道是不是你需要的。

谢谢，就是我要的。厉害

paulpipi

就是我要的。厉害