[求助]：请教发帖时让lisp源代码的的缩进保持原样..

xshrimp

请教发帖时让lisp源代码的的缩进保存..
;;替换框选的所有块,其余的块不变。

2. 
   
3. (defun C:blkrp ( / ss BlkName blkname2 ents i)
   
4.   (setvar "osmode" 0)
   
5.   (princ "\n请选择作为源块的图块:")
   
6.   ;(setq ss (ssget (list (cons 0 "INSERT"))))
   
7.   (setq sssname "INSERT")
   
8.   (setq ss (sselect sssname))  
   
9.   (setq BlkName (cdr (assoc 2 (entget (car ss)))))  
   
10.   (princ "\n请选择将替换的图块:")
    
11.   (setq ss1 (ssget (list (cons 0 "INSERT"))))
    
12.   (setq blkname2 (cdr (assoc 2 (entget (ssname ss1 0)))))
    
13.   (if ss1
    
14.     (progn
    
15.       (setq i 0)
    
16.       (repeat (sslength ss1)
    
17.         (setq ents (entget (ssname ss1 i)))
    
18.         (setq ents (subst (cons 2 BlkName) (assoc 2 ents) ents))
    
19.         (entmod ents)
    
20.         (setq i (1+ i))
    
21.       );end repeat
    
22.     );end progn
    
23.   );end if
    
24.   (princ)
    
25. ) ;end defun
    
26. (defun Sselect (sssname)
    
27.   (setq m 1)
    
28.   (while m      
    
29.       (setq ss1 (entsel))      
    
30.       (cond
    
31.       ((not ss1)
    
32.                       (prompt "\n错误:你什么都没有选择!")
    
33.                       )
    
34.       ;加此段可强制选择sssname的物体.选择别的物体没用.
    
35.       ((/= sssname (cdr (assoc 0  (entget (car ss1)))))
    
36.                 (prompt "\n错误:你选择的物体不匹配")
    
37.                        )
    
38.       (t (prompt "\n...OK_...") (setq m nil))
    
39.      );cond
    
40.   );while m
    
41.   ss1
    
42. );end defun
    

<br /> (defun C:blkrp ( / ss BlkName blkname2 ents i)<br />   (setvar "osmode" 0)<br />   (princ "\n请选择作为源块的图块:")<br />   ;(setq ss (ssget (list (cons 0 "INSERT"))))<br />   (setq sssname "INSERT")<br />   (setq ss (sselect sssname))  <br />   (setq BlkName (cdr (assoc 2 (entget (car ss)))))  <br />   (princ "\n请选择将替换的图块:")<br />   (setq ss1 (ssget (list (cons 0 "INSERT")))) <br />   (setq blkname2 (cdr (assoc 2 (entget (ssname ss1 0))))) <br />   (if ss1<br />     (progn<br />       (setq i 0)<br />       (repeat (sslength ss1)<br />         (setq ents (entget (ssname ss1 i))) <br />         (setq ents (subst (cons 2 BlkName) (assoc 2 ents) ents))<br />         (entmod ents)<br />         (setq i (1+ i))<br />       );end repeat<br />     );end progn<br />   );end if<br />   (princ)<br /> ) ;end defun<br /> (defun Sselect (sssname) <br />   (setq m 1)<br />   (while m      <br />       (setq ss1 (entsel))      <br />       (cond<br />       ((not ss1) <br />                       (prompt "\n错误:你什么都没有选择!")<br />                       )<br />       ;加此段可强制选择sssname的物体.选择别的物体没用.<br />       ((/= sssname (cdr (assoc 0  (entget (car ss1)))))<br />                 (prompt "\n错误:你选择的物体不匹配")<br />                        )<br />       (t (prompt "\n...OK_...") (setq m nil))<br />      );cond<br />   );while m <br />   ss1<br /> );end defun<br />

[php](defun C:blkrp (/ ss BlkName blkname2 ents i)
  (setvar "osmode" 0)
  (princ "\n请选择作为源块的图块:")
  (setq        sssname        "INSERT"
        ss        (sselect sssname)
        BlkName        (cdr (assoc 2 (entget (car ss))))
  )
  (princ "\n请选择将替换的图块:")
  (setq        ss1         (ssget (list (cons 0 "INSERT")))
        blkname2 (cdr (assoc 2 (entget (ssname ss1 0))))
  )
  (if ss1
    (progn
      (setq i 0)
      (repeat (sslength ss1)
        (setq ents (entget (ssname ss1 i))
              ents (subst (cons 2 BlkName) (assoc 2 ents) ents)
        )
        (entmod ents)
        (setq i (1+ i))
      )
    )
  )
  (princ)
)
(defun Sselect (sssname)
  (setq m 1)
  (while m
    (setq ss1 (entsel))
    (cond
      ((not ss1)
       (prompt "\n错误:你什么都没有选择!")
      )
      ;;加此段可强制选择sssname的物体.选择别的物体没用.
      ((/= sssname (cdr (assoc 0 (entget (car ss1)))))
       (prompt "\n错误:你选择的物体不匹配")
      )
      (t (prompt "\n...OK_...") (setq m nil))
    )
  )
  ss1
)[/php]
这样的lsp很难看
如何能这样,就好多了.
如图

eachy

如图。熟悉后可以手动输入，代码之前为 [Code] 结束时 加 / ，成对出现，就如 Html 文件的控制符。

我给你编辑了下，你自己再编辑自己的帖子看看多了什么。

xshrimp

谢谢,eachy版主.可以专门建立一个主题,如何发帖的帮助?以帮助那些不会没贴的新人.