[LISP函数]：请高手们帮忙改一下这个LISP。

saint12

请高手们帮忙改一下这个LISP。希望能改成可以批量处理给予等高线高度的LISP。最好能编多一步，使它可以自己选定给完等高线高度后的颜色。

(DEFUN C:texz()
        (setvar "cmdecho" 0)
        
        (setq ss0 (ssget))
        (setq length1 (sslength ss0))
   (if (= 2 length1)
       (PROGN
            (setq ssen1 (ssname ss0 0))
            (setq ssen2 (ssname ss0 1))
            (setq en1 (entget ssen1))
               (if (/= (cdr (assoc 0 en1)) "TEXT")
                 (PROGN
                  (SETQ SSEN3 SSEN1)
                  (SETQ SSEN1 SSEN2)
                  (SETQ SSEN2 SSEN3)
                 )
                )

             (setq en1 (entget ssen1))
             (setq number4 (cdr (assoc 1 en1)))
             (setq number5 (atof number4))
             (COMMAND "CHANGE" SSEN2 "" "P" "E" NUMBER5 "C" "1" "")
             (COMMAND "CHANGE" SSEN1 "" "p" "C" "1" "")
        )
    (PRINC "^_^，你选多物体了" )   
   )
(princ)  
)

没有给予等高线高度前的样子。

这个命令是这样用的，假如有一条等高线你要给予这条等高线一个高度，只要在这条等高线的线上写上一个数字，然后使用这个命令就可以给予一条等高线高度的了。

eachy

最初由 saint12 发布
[B]请高手们帮忙改一下这个LISP。希望能改成可以批量处理给予等高线高度的LISP。最好能编多一步，使它可以自己选定给完等高线高度后的颜色。

(DEFUN C:texz()
        (setvar "cmdecho" 0)
        
        (se... [/B]

你说的情况批量有困难，当然如果初期文字和线是有关联的好办，而两者没有什么联系，仅靠程序来判断可能多数情况下不适用。

还有一种情况也是批量，你可以看看XD工具箱的附高，指定起始和结束的线，根据增量来附高度，不过那个程序不是改 “E”只是附加了数据，通过修改可以满足这种附Z要求