[LISP程序]：这个程序错在那

ynjzlzd

请版主看下面的程序

;;;程序tel用于在直线中插入文字

(defun c:tel(/ ss s ang_ln ang_ln_tp ang_tx ang_mov os_mode tx_size tmp pt_ln_sta pt_ln_end pt_tx pt_tx_tp wid_br pt_bk_a pt_bk_b ln_find)

;;选择直线
(prompt "Please select a line!!!")
(setq ss (ssget '((0 . "LINE"))))
(if (/= ss nil)
        (progn
                (setq s (ssname ss 0))

;;计算直线的角度
                (setq pt_ln_sta (cdr (assoc 10 (entget s))))
                (setq pt_ln_end (cdr (assoc 11 (entget s))))
                (setq ang_ln (angle pt_ln_sta pt_ln_end))
                (setq ang_tx ang_ln)
                (if (and (> ang_ln (angtof "100")) (<= ang_ln (angtof "180")))
                         (setq ang_tx (+ ang_ln (angtof "180")))
                         (if (and (> ang_ln (angtof "180")) (<= ang_ln (angtof "280")))
                                (setq ang_tx (- ang_ln (angtof "180")))
                           )
                );endif                             
                (setq ang_mov (+ ang_ln (angtof "90")))

;;初始化比例、字高
                (if (= high_tel nil)
                        (progn
                                (setq sca_ft nil)
                                (load "high_tel")
                        )
                );endif
                (setq tx_size (getvar "textsize"))

;;确定文字值
                (if (= tx_val_il nil) (setq tx_val_il "F"))
                (setq tmp (strcat "Please input the symbol to be insert:<" tx_val_il ">"))
                (prompt tmp)
                (setq tmp (getstring))
                (if (/= tmp "") (setq tx_val_il tmp))

;;计算直线打断宽度
                (setvar "textsize" high_tel)
                (command "text" "j" "m" "0,0" "" "" tx_val_il)
                (setq wid_br (textbox (list (assoc 1 (entget (entlast))))))
                (setq pt_bk_a (car wid_br) pt_bk_b (cadr wid_br))
                (setq wid_br (/ (- (car pt_bk_b) (car pt_bk_a)) 2))
                (setq wid_br (+ wid_br (* 0.8 sca_ft)))
                (setvar "textsize" tx_size)
                (command "erase" (entlast) "")

;;指定文字近似插入点
                (setq os_mode (getvar "osmode"))
                (setvar "osmode" 0)
                (setq pt_tx_tp (getpoint "\nPlease choose the text position!!!"))

;;循环开始
                (while (/= pt_tx_tp nil)
                        (progn
;计算文字插入点（精确）
                                (setq pt_tx (polar pt_tx_tp ang_mov 10))
                                (setq pt_tx (inters pt_ln_sta
                                                    pt_ln_end
                                                    pt_tx_tp
                                                    pt_tx
                                                    nil
                                             )
                                );endsetq

;根据插入点选直线
                                (setq ss (ssget "c" pt_tx pt_tx '((0 . "LINE"))))
                                (if (/= ss nil)
                                        (progn
                                                (setq pt_bk_b (sslength ss))
                                                (setq pt_bk_a 0)
                                                (setq ln_find 0)
                                                (while (and (= ln_find 0) (< pt_bk_a pt_bk_b))
                                                        (progn
                                                                (setq s (ssname ss pt_bk_a))
                                                                (setq ang_ln_tp (angle (cdr (assoc 10 (entget s)))
                                                                                       (cdr (assoc 11 (entget s)))
                                                                              );endangle
                                                                );endsetq
                                                                (setq pt_bk_a (1+ pt_bk_a))
                                                                (if (= (angtos ang_ln_tp) (angtos ang_ln));;直线找到
                                                                        (progn
                                                                                (setq ln_find 1)
;写
                                                                                (setvar "textsize" high_tel)
                                                                                (command "text" "j" "m" pt_tx "" (angtos ang_tx) tx_val_il)
                                                                                (setvar "textsize" tx_size)
;确定直线打断点
                                                                                (setq pt_bk_a (polar pt_tx ang_ln wid_br))
                                                                                (setq pt_bk_b (polar pt_tx (+ Pi ang_ln) wid_br))
;打断直线
                                                                                (command "break" s pt_bk_a pt_bk_b)
                                                                        );endprogn
                                                                );endif
                                                        );endprogn
                                                );endwhile
                                        );endprogn
                                );endif
;指定文字近似插入点
                                (setq pt_tx_tp (getpoint "\nPlease choose the next position!!!"))
;重复
                        );endprogn
                );endwhile
                (setvar "osmode" os_mode)
        );endprogn
);endif

;;结束
(princ)
)

加载后,
_appload 已成功加载 290136_tel.lsp。
命令: tel
Please select a line!!!
选择对象: 找到 1 个
选择对象:  错误 : LOAD 失败: "high_tel"

xyp1964

2. [FONT=courier new];;;程序tel用于在直线中插入文字
   
3. (defun c:tel ()
   
4.   (prompt "Please select a line!!!")
   
5.   (setq ss (ssget '((0 . "LINE"))))
   
6.   (if (/= ss nil)
   
7.     (progn
   
8.       ;;计算直线的角度
   
9.       (setq s              (ssname ss 0)
   
10.             pt_ln_sta (cdr (assoc 10 (entget s)))
    
11.             pt_ln_end (cdr (assoc 11 (entget s)))
    
12.             ang_ln    (angle pt_ln_sta pt_ln_end)
    
13.             ang_tx    ang_ln
    
14.       )
    
15.       (if (and (> ang_ln (angtof "100")) (<= ang_ln (angtof "180")))
    
16.         (setq ang_tx (+ ang_ln (angtof "180")))
    
17.         (if (and (> ang_ln (angtof "180")) (<= ang_ln (angtof "280")))
    
18.           (setq ang_tx (- ang_ln (angtof "180")))
    
19.         )
    
20.       )
    
21.       ;;初始化比例、字高
    
22.       (setq ang_mov (+ ang_ln (angtof "90")))
    
23.       (if (= high_tel nil)
    
24.         (progn
    
25.           (setq sca_ft 1)
    
26.           (setq high_tel 300)
    
27.         )
    
28.         (setq sca_ft 1)
    
29.       )
    
30.       (setq tx_size (getvar "textsize"))
    
31.       ;;确定文字值
    
32.       (if (= tx_val_il nil)
    
33.         (setq tx_val_il "F")
    
34.       )
    
35.       (prompt (strcat "Please input the symbol to be insert:<"
    
36.                       tx_val_il
    
37.                       ">"
    
38.               )
    
39.       )
    
40.       (setq tmp (getstring "\n输入字符: "))
    
41.       (if (/= tmp "")
    
42.         (setq tx_val_il tmp)
    
43.       )
    
44.       ;;计算直线打断宽度
    
45.       (setvar "textsize" high_tel)
    
46.       (command "text" "j" "m" "0,0" "" "" tx_val_il)
    
47.       (setq wid_br  (textbox (list (assoc 1 (entget (entlast)))))
    
48.             pt_bk_a (car wid_br)
    
49.             pt_bk_b (cadr wid_br)
    
50.             wid_br  (/ (- (car pt_bk_b) (car pt_bk_a)) 2)
    
51.             wid_br  (+ wid_br (* 0.8 sca_ft))
    
52.       )
    
53.       (setvar "textsize" tx_size)
    
54.       (command "erase" (entlast) "")
    
55.       ;;指定文字近似插入点
    
56.       (setq os_mode (getvar "osmode"))
    
57.       (setvar "osmode" 0)
    
58.       (setq pt_tx_tp (getpoint "\nPlease choose the text position!!!"))
    
59.       ;;循环开始
    
60.       (while (/= pt_tx_tp nil)                ;计算文字插入点（精确）
    
61.         (setq pt_tx (polar pt_tx_tp ang_mov 10)
    
62.               pt_tx (inters pt_ln_sta pt_ln_end pt_tx_tp pt_tx nil)
    
63.               ss    (ssget "c" pt_tx pt_tx '((0 . "LINE")))
    
64.         )
    
65.         (if (/= ss nil)
    
66.           (progn
    
67.             (setq pt_bk_b (sslength ss)
    
68.                   pt_bk_a 0
    
69.                   ln_find 0
    
70.             )
    
71.             (while (and (= ln_find 0) (< pt_bk_a pt_bk_b))
    
72.               (setq s              (ssname ss pt_bk_a)
    
73.                     ang_ln_tp (angle (cdr (assoc 10 (entget s)))
    
74.                                      (cdr (assoc 11 (entget s)))
    
75.                               )
    
76.                     pt_bk_a   (1+ pt_bk_a)
    
77.               )
    
78.               (if (= (angtos ang_ln_tp) (angtos ang_ln)) ;直线找到
    
79.                 (progn
    
80.                   (setq ln_find 1)
    
81.                   (setvar "textsize" high_tel) ;写
    
82.                   (command "text" "j" "m" pt_tx "" (angtos ang_tx) tx_val_il)
    
83.                   (setvar "textsize" tx_size)
    
84.                   (setq        pt_bk_a        (polar pt_tx ang_ln wid_br)
    
85.                         pt_bk_b        (polar pt_tx (+ Pi ang_ln) wid_br)
    
86.                   )                        ;确定直线打断点
    
87.                   (command "break" s pt_bk_a pt_bk_b) ;打断直线
    
88.                 )
    
89.               )
    
90.             )
    
91.           )
    
92.         )
    
93.         (setq pt_tx_tp (getpoint "\nPlease choose the next position!!!"))
    
94.       )
    
95.       (setvar "osmode" os_mode)
    
96.     )
    
97.   )
    
98.   (princ)
    
99. )[/FONT]

[FONT=courier new];;;程序tel用于在直线中插入文字<br /> (defun c:tel ()<br />   (prompt "Please select a line!!!")<br />   (setq ss (ssget '((0 . "LINE"))))<br />   (if (/= ss nil)<br />     (progn<br />       ;;计算直线的角度<br />       (setq s              (ssname ss 0)<br />             pt_ln_sta (cdr (assoc 10 (entget s)))<br />             pt_ln_end (cdr (assoc 11 (entget s)))<br />             ang_ln    (angle pt_ln_sta pt_ln_end)<br />             ang_tx    ang_ln<br />       )<br />       (if (and (> ang_ln (angtof "100")) (<= ang_ln (angtof "180")))<br />         (setq ang_tx (+ ang_ln (angtof "180")))<br />         (if (and (> ang_ln (angtof "180")) (<= ang_ln (angtof "280")))<br />           (setq ang_tx (- ang_ln (angtof "180")))<br />         )<br />       )<br />       ;;初始化比例、字高<br />       (setq ang_mov (+ ang_ln (angtof "90")))<br />       (if (= high_tel nil)<br />         (progn<br />           (setq sca_ft 1)<br />           (setq high_tel 300)<br />         )<br />         (setq sca_ft 1)<br />       )<br />       (setq tx_size (getvar "textsize"))<br />       ;;确定文字值<br />       (if (= tx_val_il nil)<br />         (setq tx_val_il "F")<br />       )<br />       (prompt (strcat "Please input the symbol to be insert:<"<br />                       tx_val_il<br />                       ">"<br />               )<br />       )<br />       (setq tmp (getstring "\n输入字符: "))<br />       (if (/= tmp "")<br />         (setq tx_val_il tmp)<br />       )<br />       ;;计算直线打断宽度<br />       (setvar "textsize" high_tel)<br />       (command "text" "j" "m" "0,0" "" "" tx_val_il)<br />       (setq wid_br  (textbox (list (assoc 1 (entget (entlast)))))<br />             pt_bk_a (car wid_br)<br />             pt_bk_b (cadr wid_br)<br />             wid_br  (/ (- (car pt_bk_b) (car pt_bk_a)) 2)<br />             wid_br  (+ wid_br (* 0.8 sca_ft))<br />       )<br />       (setvar "textsize" tx_size)<br />       (command "erase" (entlast) "")<br />       ;;指定文字近似插入点<br />       (setq os_mode (getvar "osmode"))<br />       (setvar "osmode" 0)<br />       (setq pt_tx_tp (getpoint "\nPlease choose the text position!!!"))<br />       ;;循环开始<br />       (while (/= pt_tx_tp nil)                ;计算文字插入点（精确）<br />         (setq pt_tx (polar pt_tx_tp ang_mov 10)<br />               pt_tx (inters pt_ln_sta pt_ln_end pt_tx_tp pt_tx nil)<br />               ss    (ssget "c" pt_tx pt_tx '((0 . "LINE")))<br />         )<br />         (if (/= ss nil)<br />           (progn<br />             (setq pt_bk_b (sslength ss)<br />                   pt_bk_a 0<br />                   ln_find 0<br />             )<br />             (while (and (= ln_find 0) (< pt_bk_a pt_bk_b))<br />               (setq s              (ssname ss pt_bk_a)<br />                     ang_ln_tp (angle (cdr (assoc 10 (entget s)))<br />                                      (cdr (assoc 11 (entget s)))<br />                               )<br />                     pt_bk_a   (1+ pt_bk_a)<br />               )<br />               (if (= (angtos ang_ln_tp) (angtos ang_ln)) ;直线找到<br />                 (progn<br />                   (setq ln_find 1)<br />                   (setvar "textsize" high_tel) ;写<br />                   (command "text" "j" "m" pt_tx "" (angtos ang_tx) tx_val_il)<br />                   (setvar "textsize" tx_size)<br />                   (setq        pt_bk_a        (polar pt_tx ang_ln wid_br)<br />                         pt_bk_b        (polar pt_tx (+ Pi ang_ln) wid_br)<br />                   )                        ;确定直线打断点<br />                   (command "break" s pt_bk_a pt_bk_b) ;打断直线<br />                 )<br />               )<br />             )<br />           )<br />         )<br />         (setq pt_tx_tp (getpoint "\nPlease choose the next position!!!"))<br />       )<br />       (setvar "osmode" os_mode)<br />     )<br />   )<br />   (princ)<br /> )[/FONT]

ynjzlzd

XYP你好,程序可用了.但就是输入字符后,选择插入点时,原来的对象捕捉点怎么都消失了.

xiaoyue663

XYP的程序我一执行怎么出现"DXF 组不正确: nil"这么个提示啊