请各位帮忙修改下此代码

王与韩1

先谢谢各位的关注，这是在论坛上找到了同行业的兄弟的代码，但是希望能改进一点，效果如图

程序如下
(defun c:cs( )
(setvar "cmdecho" 0)
(setq dlq '("16" "20" "25" "32" "40" "50"))
(setq xj '("2.5" "4" "6" "10" "16" "16"))
(setq gj '("20" "20" "20" "25" "32" "32"))
(setq 1gj '("20" "20" "20" "25" "32" "32"))
(setvar "cmdecho" 0)
(prompt "\n选择文字:")
(setq ss (ssget '((0 . "TEXT"))))
(repeat (setq i (sslength ss))
(setq en (entget(ssname ss (setq i (1- i)))))
(setq zb (cdr(assoc 10 en)));坐标
(setq tx (cdr(assoc 1 en)))
(if (setq dl (member tx dlq)) (progn
  (setq n (- (length dlq) (length dl)))
  (setq txt (strcat "BV-3*" (nth n xj) "-JDG" (nth n gj)))；SC和JDG希望能选择
  (setq newzb (mapcar '- zb '(600 0 0)))
  (setq en (subst (cons 1 txt) (assoc 1 en) en))
  (entmake (cdr(subst (cons 10 newzb) (assoc 10 en) en)))
  (setq txt1 (strcat "34" (nth n 1gj)))；“34”处为输入的断路器名
  (setq newzb1 (mapcar '- zb '(1000 100 0)))
  (setq en (subst (cons 1 txt1) (assoc 1 en) en))
  (entmake (cdr(subst (cons 10 newzb1) (assoc 10 en) en)))
))
)
(setvar "cmdecho" 1)
(princ)
)

希望添加的功能：1.提示输入套管类型，如JDG和SC（不同管型后数字不同）。2.提示输入断路器品牌（替换程序中的“34”）
输入选项后效果如下（JPG改为SC，34改为了XL)attach]8893[/attach]

ZZXXQQ

是否对每个图元都提示呢？下面是所有图元都一致的程序

2. (defun c:cs( )
   
3. (setvar "cmdecho" 0)
   
4. (setq dlq '("16" "20" "25" "32" "40" "50"))
   
5. (setq xj '("2.5" "4" "6" "10" "16" "16"))
   
6. (setq gj '("20" "20" "20" "25" "32" "32"))
   
7. (setq 1gj '("20" "20" "20" "25" "32" "32"))
   
8. (initget "JDG SC" 1)
   
9. (setq gx (getkword "\n选择管型: "))
   
10. (setq pp (if (= gx "JDG") "34" "XL"))
    
11. (prompt "\n选择文字:")
    
12. (setq ss (ssget '((0 . "TEXT"))))
    
13. (repeat (setq i (sslength ss))
    
14. (setq en (entget(ssname ss (setq i (1- i)))))
    
15. (setq zb (cdr(assoc 10 en)));坐标
    
16. (setq tx (cdr(assoc 1 en)))
    
17. (if (setq dl (member tx dlq)) (progn
    
18.   (setq n (- (length dlq) (length dl)))
    
19.   (setq txt (strcat "BV-3*" (nth n xj) gx (nth n gj)));SC和JDG希望能选择
    
20.   (setq newzb (mapcar '- zb '(600 0 0)))
    
21.   (setq en (subst (cons 1 txt) (assoc 1 en) en))
    
22.   (entmake (cdr(subst (cons 10 newzb) (assoc 10 en) en)))
    
23.   (setq txt1 (strcat pp (nth n 1gj)));“34”处为输入的断路器名
    
24.   (setq newzb1 (mapcar '- zb '(1000 100 0)))
    
25.   (setq en (subst (cons 1 txt1) (assoc 1 en) en))
    
26.   (entmake (cdr(subst (cons 10 newzb1) (assoc 10 en) en)))
    
27. ))
    
28. )
    
29. (setvar "cmdecho" 1)
    
30. (princ)
    
31. )
    

(defun c:cs( )<br /> (setvar "cmdecho" 0)<br /> (setq dlq '("16" "20" "25" "32" "40" "50"))<br /> (setq xj '("2.5" "4" "6" "10" "16" "16"))<br /> (setq gj '("20" "20" "20" "25" "32" "32"))<br /> (setq 1gj '("20" "20" "20" "25" "32" "32"))<br /> (initget "JDG SC" 1)<br /> (setq gx (getkword "\n选择管型: "))<br /> (setq pp (if (= gx "JDG") "34" "XL"))<br /> (prompt "\n选择文字:")<br /> (setq ss (ssget '((0 . "TEXT"))))<br /> (repeat (setq i (sslength ss))<br /> (setq en (entget(ssname ss (setq i (1- i)))))<br /> (setq zb (cdr(assoc 10 en)));坐标<br /> (setq tx (cdr(assoc 1 en)))<br /> (if (setq dl (member tx dlq)) (progn<br />   (setq n (- (length dlq) (length dl)))<br />   (setq txt (strcat "BV-3*" (nth n xj) gx (nth n gj)));SC和JDG希望能选择<br />   (setq newzb (mapcar '- zb '(600 0 0)))<br />   (setq en (subst (cons 1 txt) (assoc 1 en) en))<br />   (entmake (cdr(subst (cons 10 newzb) (assoc 10 en) en)))<br />   (setq txt1 (strcat pp (nth n 1gj)));“34”处为输入的断路器名<br />   (setq newzb1 (mapcar '- zb '(1000 100 0)))<br />   (setq en (subst (cons 1 txt1) (assoc 1 en) en))<br />   (entmake (cdr(subst (cons 10 newzb1) (assoc 10 en) en)))<br /> ))<br /> )<br /> (setvar "cmdecho" 1)<br /> (princ)<br /> )<br />

王与韩1

额，没错啊，刚才试了下，能用的

王与韩1

ZZXXQQ 发表于 2014-8-4 07:47
是否对每个图元都提示呢？下面是所有图元都一致的程序

"34","XL"那里也要自己输入的,不过看程序我大概会了.

• (setq dlq '("16" "20" "25" "32" "40" "50"))
  
• (setq xj '("2.5" "4" "6" "10" "16" "16"))
  
• (setq gj '("20" "20" "20" "25" "32" "32"))
  
• (setq 1gj '("20" "20" "20" "25" "32" "32"))
  中的dlq那一行怎么改成"1~16","16~20","20~25","25~32","32~40","40~50"之间的整数与下面xj,gj这些对应呢,边求程序边学习,谢谢了