Tools/代码/LSP/GB512/lisptool/改高程点.lsp

(defun c:2000()
   ;*************************CREATE WORK STATUS***************************
    (setq sblip (getvar "blipmode"))
    (setq scmde (getvar "cmdecho"))
    (setvar "blipmode" 0)
    (setvar "cmdecho" 0)
    (setq lay (getstring "输入高程点位层码:"))
    (setq txtlay (getstring "输入高程点注记层码:"))
    ; (command "style" "standard" "新宋体" "" "1" "" "" "")      
           (setq hc1 (ssget "x" (list (cons 0 "text") (cons 8 lay))))
         (command "erase" hc1 "")
       (setq hc11 (ssget "x" (LIST 
    (cons -4 "<AND")
     (cons 8 lay) 
     (cons -4 "<OR") (CONS 0 "POINT") (CONS 0 "insert") (cons -4 "OR>")
    (cons -4 "AND>")
     )))
 (command "layer" "m" txtlay "color" 3 "" "")
   
         (setq n 0)
         (setq num (sslength hc11))
         

(while (< n num)
                       (setq hc2 (ssname hc11 n))
                       (SETQ HC3H (CADDDR (ASSOC 10 (ENTGET HC2))))
                          (SETQ HC3L (CDR (ASSOC 8 (ENTGET HC2))))
                             (SETQ HC3T (RTOS HC3H 2 2 ))
                              (SETQ HC3X (CADR (ASSOC 10 (ENTGET HC2))))
                              (SETQ HC3Y (CADDR (ASSOC 10 (ENTGET HC2))))
                              (SETQ HC3z (nth 2 (CDR (ASSOC 10 (ENTGET HC2)))))
                              (SETQ HCPT (LIST (+ HC3X 2.2) (- HC3Y 3) hc3z))
                              (COMMAND "TEXT" HCPT "5" "0" hc3t)
   
         
         (setq n(+ 1 n))     
         )


)
(princ) 
 
 (princ "\n2000")