iCAx开思网

标题: 请教一些LISP命令的运用 [打印本页]

作者: zengzheng00o 时间: 2011-10-17 22:32
标题: 请教一些LISP命令的运用
有3个LISP命令。会LISP的请看。属于快捷命令。我想知道如何运用的，感谢高手们、感谢版主们的解答！！或发我邮箱zengzheng1987@126.com

该贴已经同步到 zengzheng00o的微博

作者: zengzheng00o 时间: 2011-10-18 23:39
自己懂了你们也可以加载进去啊！！

作者: zengzheng00o 时间: 2011-10-18 23:47
(DEFUN C:HZFILE(/ TXT SP TH INS WD STL LS DT)
(setvar "BLIPMODE" 0)
(SETVAR "CMDECHO" 0)
(modes '("BLIPMODE" "CMDECHO"))
(graphscr)
(SETQ TXT (OPEN (GETSTRING "\n Name of Text File(WordStar): ") "r"))
(SETQ SP (GETPOINT "\n Text String Start Point :"))
(SETQ INS (GETSTRING"\n Enter Line Spacing in Drawing Units :"))
(SETQ HT (GETSTRING "\n Enter Text Height in Drawing Units :"))
(SETQ WD (GETSTRING "\n Enter Text Width Factor :"))
(princ "Please select HZ style:")
(initget 2 "Singleline-hz Doubleline-hz")
(setq hz (getstring "\nSingleline-hz/Doubleline-hz/<standard-hz>:"))
(setq pname (getvar "dwgprefix"))
(cond ((eq hz "s")  (COMMAND "STYLE" "HZ" "txt,hztxt" HT WD "" "" ""))
   ((eq hz "d")  (COMMAND "STYLE" "HZ1" "txt,hztxt1" HT WD "" "" ""))
   ((eq hz "") (COMMAND "STYLE" "HZ0" "txt,hztxt0" HT WD "" "" ""))
   (T (princ "Unknown HZ style ! Restart HZFILE COMMAND."))
   )

(SETQ DT (READ-LINE TXT))
(SETQ LS (STRCAT "@"INS"<-90"))
(COMMAND"TEXT" SP "" DT)
(WHILE (/= DT NIL)
(SETQ DT (READ-LINE TXT))
(COMMAND"TEXT" LS "" DT)
)
(COMMAND"REDRAW")
)

作者: zengzheng00o 时间: 2011-10-18 23:49
(defun C:CTEXT ()
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(modes '("BLIPMODE" "CMDECHO"))
(graphscr)
(princ "Please select HZ style:")
(initget 2 "Singleline-hz Doubleline-hz")
(setq hz (getstring "\nSingleline-hz/Doubleline-hz/<standard-hz>:"))
(cond ((eq hz "s")  (COMMAND "STYLE" "HZ" "TXT,HZTXT" "" "0.75" "" "" ""))
      ((eq hz "d")  (COMMAND "STYLE" "HZ1" "TXT,HZTXT1" "" "0.75" "" "" ""))
      ((eq hz "") (COMMAND "STYLE" "HZ0" "TXT,HZTXT0" "" "0.75" "" "" ""))
      (T (princ "Unknown HZ style !"))
      )
(setq cst (getvar "textstyle"))
(if (= interface nul) (setq interface "P"))
(if (or (= interface "W") (= interface "w"))
      (princ "\nCurrent Interface is WBX")
      (princ "\nCurrent Interface is Py.")
)
(setq olderr *error*
      *error* myerror)
(modes '("BLIPMODE" "CMDECHO"))
(graphscr)
(initget 1 "Center Fit Middle Right Interface")
(setq pt (getpoint "\n<Start point or Center>/Fit/Middle/Right/Interface :"))
(if (/= (type pt) 'LIST)
   (if (= pt "Interface")
      (progn
            (initget  "Wbx Py")
            (setq interfaces (getkword  "\n Wbx or Py :"))
            (setq interface (substr interfaces 1 1))
            (setq pt (getpoint "\n<Start point or Center>/Fit/Middle/Right:"))
         )
   )
)
(if (/= (type pt) 'LIST)
   (setq j (substr pt 1 1))
   (setq j "L")
)

(if (/= (type pt) 'LIST)
   (if (= pt "Fit")
         (progn
            (initget 1)
            (setq ptf (getpoint "Fist text line point: "))
            (setq pt ptf)
            (initget 1)
            (setq pts (getpoint "Second text line point: "))
            (setq k 1)
         )
         (progn
            (initget 1)
            (setq pt (getpoint (strcat "\n" pt " point: ")))
         )
   )
  )
  (initget 6)
  (setq h (getdist pt (strcat "\nHeight <"
                           (rtos (getvar "TEXTSIZE"))
                              ">: "
                  )
      )
)
(if (null h) (setq h (getvar "textsize")))
(if (/= k 1)
(progn
   (if (null a$$)
      (progn
         (if (= (cdr (assoc 70 ts)) 4) ;Vertical style text
            (progn
               (setq a$$ 270)
               (PROMPT "\nRotational angle <270>: ")
            )
            (progn
               (setq a$$ 0)
               (PROMPT "\nRotational angle <0>: ")
            )
         )
      )
      (progn
         (PROMPT "\nRotational angle <")
         (princ (strcat (angtos a$$) ">: "))
      )
   )
   (setq ang (getangle pt))
   (if (null ang) (setq ang a$$))
   (setq a$$ ang)
)
)
  (if (or (= interface "P") (= interface "p")) (COMMAND "AVCAD")(COMMAND "AVCAD W"))
  (setq f (open "chstr.dat" "r"))
  (setq eoff 1)
  (setq st (read-line f))
  (cond ((and (= j "L") h)
         (while (= eoff 1)
            (COMMAND "TEXT" "s" cst pt h (rtd ang) st)
            (setq OLDx (car pt))
            (setq oldy (cadr pt))
            (setq newX (+ oldX (* (sin ANG) H (/ 1. 0.6))))
            (setq newy (- oldy (* (cos ANG) H (/ 1. 0.6))))
            (setq pt (list NEWX NEWY))
            (setq st (read-line f))
            (if (= st nil)(setq eoff 2))
         )
      )
      ((and (/= j "L") (/= j "F") h)
      (COMMAND "TEXT" "s" cst j pt h (rtd ang) st)
      )
      ((and (/= j "L") (= j "F") h)
      (COMMAND "TEXT" "s" cst j ptf pts h st)
      )
   )
(moder)
(setq *error* olderr)
(close f)
(COMMAND "text" "s" cst ^c)
(redraw)
(princ)
)

(defun C:EPT (/ olds oldss olds1 stp h txt wf st x0 y0 l n yes
            TXTA TXT1 NN AR AD CL cst)
(setq olderr *error*
      *error* myerror)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(SETQ CL (GETVAR "CLAYER"))
(setq cst (getvar "textstyle"))
(setq olds (entsel "\nSelect the string :"))
(SETQ OLDSS (CAR OLDS))
(setq olds (entget  (car  olds)))
(setq olds1 (cdr (assoc 0 olds)))
(if (= "TEXT" oldS1)
   ( progn
      (COMMAND "ERASE" (SSADD OLDSS) "")
      (COMMAND "LAYER" "S"  (CDR (ASSOC 8 OLDS)) "")
      (setq stp  (trans (cdr (assoc 10 olds)) 0 1))
      (setq h (cdr (assoc 40 olds)))
      (setq aR (cdr (assoc 50 olds)))
      (setq aD  (RTD (cdr (assoc 50 olds))))
      (setq txt (cdr (assoc 1 olds)))
      (setq wf (Cdr (assoc 41 olds)))
      (SETQ ST (CDR (ASSOC 7 OLDS)))
      (SETQ X0 (CAR STP) Y0 (CADR STP))
      (setq l (strlen txt))
      (setq n 1) (setq nn 2)
      (setq yes 1)
      (while (<= N L)
               (setq tXT1 (substr txt n 2))
               (SETQ TXTA (ASCII TXT1))
               (setq nn (cond
                        ((= TXT1 "%%") 3)
                        ((> Txta 160) 2)
                        ((< Txta 129) 1)
                        )
               )
               (setq txt1 (substr txt n nn))
               (setq n (+ n nn))
               (COMMAND "text" "S" ST stp h aD txt1)

               (IF (= NN 2)
                  (PROGN
                     (cond ((eq cst "HZ") (setq wscale 1.0625))
                           ((eq cst "HZ1")  (setq wscale 1.20))
                           ((eq cst "HZ0")  (setq wscale 1.40))
                           )
                     (SETQ X0 (+ X0 (* (cos aR)  H WF wscale)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF wscale)))
                  )
                  (PROGN
                     (SETQ JF (COND
                                 ((= TXTA 49) 0.65)
                                 ((= TXTA 46) 0.3)
                                 (T 1)
                              )
                        )
                     (setq wf1 (* JF WF))
                     (SETQ X0 (+ X0 (* (cos aR)  H WF1)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF1)))
                  )
               )
               (SETQ STP (LIST X0 Y0))

      )
   )
  )
(COMMAND "LAYER" "S" CL "")
  (COMMAND "text" "s" cst ^c)
(setq *error* olderr)
(princ)
)

作者: zengzheng00o 时间: 2011-10-18 23:54
(defun C:CTEXT ()
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(modes '("BLIPMODE" "CMDECHO"))
(graphscr)
(princ "Please select HZ style:")
(initget 2 "Singleline-hz Doubleline-hz")
(setq hz (getstring "\nSingleline-hz/Doubleline-hz/<standard-hz>:"))
(cond ((eq hz "s")  (COMMAND "STYLE" "HZ" "TXT,HZTXT" "" "0.75" "" "" ""))
      ((eq hz "d")  (COMMAND "STYLE" "HZ1" "TXT,HZTXT1" "" "0.75" "" "" ""))
      ((eq hz "") (COMMAND "STYLE" "HZ0" "TXT,HZTXT0" "" "0.75" "" "" ""))
      (T (princ "Unknown HZ style !"))
      )
(setq cst (getvar "textstyle"))
(if (= interface nul) (setq interface "P"))
(if (or (= interface "W") (= interface "w"))
      (princ "\nCurrent Interface is WBX")
      (princ "\nCurrent Interface is Py.")
)
(setq olderr *error*
      *error* myerror)
(modes '("BLIPMODE" "CMDECHO"))
(graphscr)
(initget 1 "Center Fit Middle Right Interface")
(setq pt (getpoint "\n<Start point or Center>/Fit/Middle/Right/Interface :"))
(if (/= (type pt) 'LIST)
   (if (= pt "Interface")
      (progn
            (initget  "Wbx Py")
            (setq interfaces (getkword  "\n Wbx or Py :"))
            (setq interface (substr interfaces 1 1))
            (setq pt (getpoint "\n<Start point or Center>/Fit/Middle/Right:"))
         )
   )
)
(if (/= (type pt) 'LIST)
   (setq j (substr pt 1 1))
   (setq j "L")
)

(if (/= (type pt) 'LIST)
   (if (= pt "Fit")
         (progn
            (initget 1)
            (setq ptf (getpoint "Fist text line point: "))
            (setq pt ptf)
            (initget 1)
            (setq pts (getpoint "Second text line point: "))
            (setq k 1)
         )
         (progn
            (initget 1)
            (setq pt (getpoint (strcat "\n" pt " point: ")))
         )
   )
  )
  (initget 6)
  (setq h (getdist pt (strcat "\nHeight <"
                           (rtos (getvar "TEXTSIZE"))
                              ">: "
                  )
      )
)
(if (null h) (setq h (getvar "textsize")))
(if (/= k 1)
(progn
   (if (null a$$)
      (progn
         (if (= (cdr (assoc 70 ts)) 4) ;Vertical style text
            (progn
               (setq a$$ 270)
               (PROMPT "\nRotational angle <270>: ")
            )
            (progn
               (setq a$$ 0)
               (PROMPT "\nRotational angle <0>: ")
            )
         )
      )
      (progn
         (PROMPT "\nRotational angle <")
         (princ (strcat (angtos a$$) ">: "))
      )
   )
   (setq ang (getangle pt))
   (if (null ang) (setq ang a$$))
   (setq a$$ ang)
)
)
  (if (or (= interface "P") (= interface "p")) (COMMAND "AVCAD")(COMMAND "AVCAD W"))
  (setq f (open "chstr.dat" "r"))
  (setq eoff 1)
  (setq st (read-line f))
  (cond ((and (= j "L") h)
         (while (= eoff 1)
            (COMMAND "TEXT" "s" cst pt h (rtd ang) st)
            (setq OLDx (car pt))
            (setq oldy (cadr pt))
            (setq newX (+ oldX (* (sin ANG) H (/ 1. 0.6))))
            (setq newy (- oldy (* (cos ANG) H (/ 1. 0.6))))
            (setq pt (list NEWX NEWY))
            (setq st (read-line f))
            (if (= st nil)(setq eoff 2))
         )
      )
      ((and (/= j "L") (/= j "F") h)
      (COMMAND "TEXT" "s" cst j pt h (rtd ang) st)
      )
      ((and (/= j "L") (= j "F") h)
      (COMMAND "TEXT" "s" cst j ptf pts h st)
      )
   )
(moder)
(setq *error* olderr)
(close f)
(COMMAND "text" "s" cst ^c)
(redraw)
(princ)
)

作者: zengzheng00o 时间: 2011-10-18 23:55
(defun C:EPT (/ olds oldss olds1 stp h txt wf st x0 y0 l n yes
            TXTA TXT1 NN AR AD CL cst)
(setq olderr *error*
      *error* myerror)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(SETQ CL (GETVAR "CLAYER"))
(setq cst (getvar "textstyle"))
(setq olds (entsel "\nSelect the string :"))
(SETQ OLDSS (CAR OLDS))
(setq olds (entget  (car  olds)))
(setq olds1 (cdr (assoc 0 olds)))
(if (= "TEXT" oldS1)
   ( progn
      (COMMAND "ERASE" (SSADD OLDSS) "")
      (COMMAND "LAYER" "S"  (CDR (ASSOC 8 OLDS)) "")
      (setq stp  (trans (cdr (assoc 10 olds)) 0 1))
      (setq h (cdr (assoc 40 olds)))
      (setq aR (cdr (assoc 50 olds)))
      (setq aD  (RTD (cdr (assoc 50 olds))))
      (setq txt (cdr (assoc 1 olds)))
      (setq wf (Cdr (assoc 41 olds)))
      (SETQ ST (CDR (ASSOC 7 OLDS)))
      (SETQ X0 (CAR STP) Y0 (CADR STP))
      (setq l (strlen txt))
      (setq n 1) (setq nn 2)
      (setq yes 1)
      (while (<= N L)
               (setq tXT1 (substr txt n 2))
               (SETQ TXTA (ASCII TXT1))
               (setq nn (cond
                        ((= TXT1 "%%") 3)
                        ((> Txta 160) 2)
                        ((< Txta 129) 1)
                        )
               )
               (setq txt1 (substr txt n nn))
               (setq n (+ n nn))
               (COMMAND "text" "S" ST stp h aD txt1)

               (IF (= NN 2)
                  (PROGN
                     (cond ((eq cst "HZ") (setq wscale 1.0625))
                           ((eq cst "HZ1")  (setq wscale 1.20))
                           ((eq cst "HZ0")  (setq wscale 1.40))
                           )
                     (SETQ X0 (+ X0 (* (cos aR)  H WF wscale)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF wscale)))
                  )
                  (PROGN
                     (SETQ JF (COND
                                 ((= TXTA 49) 0.65)
                                 ((= TXTA 46) 0.3)
                                 (T 1)
                              )
                        )
                     (setq wf1 (* JF WF))
                     (SETQ X0 (+ X0 (* (cos aR)  H WF1)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF1)))
                  )
               )
               (SETQ STP (LIST X0 Y0))

      )
   )
  )
(COMMAND "LAYER" "S" CL "")
  (COMMAND "text" "s" cst ^c)
(setq *error* olderr)
(princ)
)

(DEFUN C:HZFILE(/ TXT SP TH INS WD STL LS DT)
(setvar "BLIPMODE" 0)
(SETVAR "CMDECHO" 0)
(modes '("BLIPMODE" "CMDECHO"))
(graphscr)
(SETQ TXT (OPEN (GETSTRING "\n Name of Text File(WordStar): ") "r"))
(SETQ SP (GETPOINT "\n Text String Start Point :"))
(SETQ INS (GETSTRING"\n Enter Line Spacing in Drawing Units :"))
(SETQ HT (GETSTRING "\n Enter Text Height in Drawing Units :"))
(SETQ WD (GETSTRING "\n Enter Text Width Factor :"))
(princ "Please select HZ style:")
(initget 2 "Singleline-hz Doubleline-hz")
(setq hz (getstring "\nSingleline-hz/Doubleline-hz/<standard-hz>:"))
(setq pname (getvar "dwgprefix"))
(cond ((eq hz "s")  (COMMAND "STYLE" "HZ" "txt,hztxt" HT WD "" "" ""))
   ((eq hz "d")  (COMMAND "STYLE" "HZ1" "txt,hztxt1" HT WD "" "" ""))
   ((eq hz "") (COMMAND "STYLE" "HZ0" "txt,hztxt0" HT WD "" "" ""))
   (T (princ "Unknown HZ style ! Restart HZFILE COMMAND."))
   )

(SETQ DT (READ-LINE TXT))
(SETQ LS (STRCAT "@"INS"<-90"))
(COMMAND"TEXT" SP "" DT)
(WHILE (/= DT NIL)
(SETQ DT (READ-LINE TXT))
(COMMAND"TEXT" LS "" DT)
)
(COMMAND"REDRAW")
)

作者: zengzheng00o 时间: 2011-10-18 23:57
(defun C:EPT (/ olds oldss olds1 stp h txt wf st x0 y0 l n yes
            TXTA TXT1 NN AR AD CL cst)
(setq olderr *error*
      *error* myerror)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(SETQ CL (GETVAR "CLAYER"))
(setq cst (getvar "textstyle"))
(setq olds (entsel "\nSelect the string :"))
(SETQ OLDSS (CAR OLDS))
(setq olds (entget  (car  olds)))
(setq olds1 (cdr (assoc 0 olds)))
(if (= "TEXT" oldS1)
   ( progn
      (COMMAND "ERASE" (SSADD OLDSS) "")
      (COMMAND "LAYER" "S"  (CDR (ASSOC 8 OLDS)) "")
      (setq stp  (trans (cdr (assoc 10 olds)) 0 1))
      (setq h (cdr (assoc 40 olds)))
      (setq aR (cdr (assoc 50 olds)))
      (setq aD  (RTD (cdr (assoc 50 olds))))
      (setq txt (cdr (assoc 1 olds)))
      (setq wf (Cdr (assoc 41 olds)))
      (SETQ ST (CDR (ASSOC 7 OLDS)))
      (SETQ X0 (CAR STP) Y0 (CADR STP))
      (setq l (strlen txt))
      (setq n 1) (setq nn 2)
      (setq yes 1)
      (while (<= N L)
               (setq tXT1 (substr txt n 2))
               (SETQ TXTA (ASCII TXT1))
               (setq nn (cond
                        ((= TXT1 "%%") 3)
                        ((> Txta 160) 2)
                        ((< Txta 129) 1)
                        )
               )
               (setq txt1 (substr txt n nn))
               (setq n (+ n nn))
               (COMMAND "text" "S" ST stp h aD txt1)

               (IF (= NN 2)
                  (PROGN
                     (cond ((eq cst "HZ") (setq wscale 1.0625))
                           ((eq cst "HZ1")  (setq wscale 1.20))
                           ((eq cst "HZ0")  (setq wscale 1.40))
                           )
                     (SETQ X0 (+ X0 (* (cos aR)  H WF wscale)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF wscale)))
                  )
                  (PROGN
                     (SETQ JF (COND
                                 ((= TXTA 49) 0.65)
                                 ((= TXTA 46) 0.3)
                                 (T 1)
                              )
                        )
                     (setq wf1 (* JF WF))
                     (SETQ X0 (+ X0 (* (cos aR)  H WF1)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF1)))
                  )
               )
               (SETQ STP (LIST X0 Y0))

      )
   )
  )
(COMMAND "LAYER" "S" CL "")
  (COMMAND "text" "s" cst ^c)
(setq *error* olderr)
(princ)
)

(DEFUN C:HZFILE(/ TXT SP TH INS WD STL LS DT)
(setvar "BLIPMODE" 0)
(SETVAR "CMDECHO" 0)
(modes '("BLIPMODE" "CMDECHO"))
(graphscr)
(SETQ TXT (OPEN (GETSTRING "\n Name of Text File(WordStar): ") "r"))
(SETQ SP (GETPOINT "\n Text String Start Point :"))
(SETQ INS (GETSTRING"\n Enter Line Spacing in Drawing Units :"))
(SETQ HT (GETSTRING "\n Enter Text Height in Drawing Units :"))
(SETQ WD (GETSTRING "\n Enter Text Width Factor :"))
(princ "Please select HZ style:")
(initget 2 "Singleline-hz Doubleline-hz")
(setq hz (getstring "\nSingleline-hz/Doubleline-hz/<standard-hz>:"))
(setq pname (getvar "dwgprefix"))
(cond ((eq hz "s")  (COMMAND "STYLE" "HZ" "txt,hztxt" HT WD "" "" ""))
   ((eq hz "d")  (COMMAND "STYLE" "HZ1" "txt,hztxt1" HT WD "" "" ""))
   ((eq hz "") (COMMAND "STYLE" "HZ0" "txt,hztxt0" HT WD "" "" ""))
   (T (princ "Unknown HZ style ! Restart HZFILE COMMAND."))
   )

(SETQ DT (READ-LINE TXT))
(SETQ LS (STRCAT "@"INS"<-90"))
(COMMAND"TEXT" SP "" DT)
(WHILE (/= DT NIL)
(SETQ DT (READ-LINE TXT))
(COMMAND"TEXT" LS "" DT)
)
(COMMAND"REDRAW")
)

作者: zengzheng00o 时间: 2011-10-18 23:58
(defun C:EPT (/ olds oldss olds1 stp h txt wf st x0 y0 l n yes
            TXTA TXT1 NN AR AD CL cst)
(setq olderr *error*
      *error* myerror)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(SETQ CL (GETVAR "CLAYER"))
(setq cst (getvar "textstyle"))
(setq olds (entsel "\nSelect the string :"))
(SETQ OLDSS (CAR OLDS))
(setq olds (entget  (car  olds)))
(setq olds1 (cdr (assoc 0 olds)))
(if (= "TEXT" oldS1)
   ( progn
      (COMMAND "ERASE" (SSADD OLDSS) "")
      (COMMAND "LAYER" "S"  (CDR (ASSOC 8 OLDS)) "")
      (setq stp  (trans (cdr (assoc 10 olds)) 0 1))
      (setq h (cdr (assoc 40 olds)))
      (setq aR (cdr (assoc 50 olds)))
      (setq aD  (RTD (cdr (assoc 50 olds))))
      (setq txt (cdr (assoc 1 olds)))
      (setq wf (Cdr (assoc 41 olds)))
      (SETQ ST (CDR (ASSOC 7 OLDS)))
      (SETQ X0 (CAR STP) Y0 (CADR STP))
      (setq l (strlen txt))
      (setq n 1) (setq nn 2)
      (setq yes 1)
      (while (<= N L)
               (setq tXT1 (substr txt n 2))
               (SETQ TXTA (ASCII TXT1))
               (setq nn (cond
                        ((= TXT1 "%%") 3)
                        ((> Txta 160) 2)
                        ((< Txta 129) 1)
                        )
               )
               (setq txt1 (substr txt n nn))
               (setq n (+ n nn))
               (COMMAND "text" "S" ST stp h aD txt1)

               (IF (= NN 2)
                  (PROGN
                     (cond ((eq cst "HZ") (setq wscale 1.0625))
                           ((eq cst "HZ1")  (setq wscale 1.20))
                           ((eq cst "HZ0")  (setq wscale 1.40))
                           )
                     (SETQ X0 (+ X0 (* (cos aR)  H WF wscale)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF wscale)))
                  )
                  (PROGN
                     (SETQ JF (COND
                                 ((= TXTA 49) 0.65)
                                 ((= TXTA 46) 0.3)
                                 (T 1)
                              )
                        )
                     (setq wf1 (* JF WF))
                     (SETQ X0 (+ X0 (* (cos aR)  H WF1)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF1)))
                  )
               )
               (SETQ STP (LIST X0 Y0))

      )
   )
  )
(COMMAND "LAYER" "S" CL "")
  (COMMAND "text" "s" cst ^c)
(setq *error* olderr)
(princ)
)

(DEFUN C:HZFILE(/ TXT SP TH INS WD STL LS DT)
(setvar "BLIPMODE" 0)
(SETVAR "CMDECHO" 0)
(modes '("BLIPMODE" "CMDECHO"))
(graphscr)
(SETQ TXT (OPEN (GETSTRING "\n Name of Text File(WordStar): ") "r"))
(SETQ SP (GETPOINT "\n Text String Start Point :"))
(SETQ INS (GETSTRING"\n Enter Line Spacing in Drawing Units :"))
(SETQ HT (GETSTRING "\n Enter Text Height in Drawing Units :"))
(SETQ WD (GETSTRING "\n Enter Text Width Factor :"))
(princ "Please select HZ style:")
(initget 2 "Singleline-hz Doubleline-hz")
(setq hz (getstring "\nSingleline-hz/Doubleline-hz/<standard-hz>:"))
(setq pname (getvar "dwgprefix"))
(cond ((eq hz "s")  (COMMAND "STYLE" "HZ" "txt,hztxt" HT WD "" "" ""))
   ((eq hz "d")  (COMMAND "STYLE" "HZ1" "txt,hztxt1" HT WD "" "" ""))
   ((eq hz "") (COMMAND "STYLE" "HZ0" "txt,hztxt0" HT WD "" "" ""))
   (T (princ "Unknown HZ style ! Restart HZFILE COMMAND."))
   )

(SETQ DT (READ-LINE TXT))
(SETQ LS (STRCAT "@"INS"<-90"))
(COMMAND"TEXT" SP "" DT)
(WHILE (/= DT NIL)
(SETQ DT (READ-LINE TXT))
(COMMAND"TEXT" LS "" DT)
)
(COMMAND"REDRAW")
)

作者: zengzheng00o 时间: 2011-10-19 00:04
(defun C:EPT (/ olds oldss olds1 stp h txt wf st x0 y0 l n yes
            TXTA TXT1 NN AR AD CL cst)
(setq olderr *error*
      *error* myerror)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(SETQ CL (GETVAR "CLAYER"))
(setq cst (getvar "textstyle"))
(setq olds (entsel "\nSelect the string :"))
(SETQ OLDSS (CAR OLDS))
(setq olds (entget  (car  olds)))
(setq olds1 (cdr (assoc 0 olds)))
(if (= "TEXT" oldS1)
   ( progn
      (COMMAND "ERASE" (SSADD OLDSS) "")
      (COMMAND "LAYER" "S"  (CDR (ASSOC 8 OLDS)) "")
      (setq stp  (trans (cdr (assoc 10 olds)) 0 1))
      (setq h (cdr (assoc 40 olds)))
      (setq aR (cdr (assoc 50 olds)))
      (setq aD  (RTD (cdr (assoc 50 olds))))
      (setq txt (cdr (assoc 1 olds)))
      (setq wf (Cdr (assoc 41 olds)))
      (SETQ ST (CDR (ASSOC 7 OLDS)))
      (SETQ X0 (CAR STP) Y0 (CADR STP))
      (setq l (strlen txt))
      (setq n 1) (setq nn 2)
      (setq yes 1)
      (while (<= N L)
               (setq tXT1 (substr txt n 2))
               (SETQ TXTA (ASCII TXT1))
               (setq nn (cond
                        ((= TXT1 "%%") 3)
                        ((> Txta 160) 2)
                        ((< Txta 129) 1)
                        )
               )
               (setq txt1 (substr txt n nn))
               (setq n (+ n nn))
               (COMMAND "text" "S" ST stp h aD txt1)

               (IF (= NN 2)
                  (PROGN
                     (cond ((eq cst "HZ") (setq wscale 1.0625))
                           ((eq cst "HZ1")  (setq wscale 1.20))
                           ((eq cst "HZ0")  (setq wscale 1.40))
                           )
                     (SETQ X0 (+ X0 (* (cos aR)  H WF wscale)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF wscale)))
                  )
                  (PROGN
                     (SETQ JF (COND
                                 ((= TXTA 49) 0.65)
                                 ((= TXTA 46) 0.3)
                                 (T 1)
                              )
                        )
                     (setq wf1 (* JF WF))
                     (SETQ X0 (+ X0 (* (cos aR)  H WF1)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF1)))
                  )
               )
               (SETQ STP (LIST X0 Y0))

      )
   )
  )
(COMMAND "LAYER" "S" CL "")
  (COMMAND "text" "s" cst ^c)
(setq *error* olderr)
(princ)
)

(DEFUN C:HZFILE(/ TXT SP TH INS WD STL LS DT)
(setvar "BLIPMODE" 0)
(SETVAR "CMDECHO" 0)
(modes '("BLIPMODE" "CMDECHO"))
(graphscr)
(SETQ TXT (OPEN (GETSTRING "\n Name of Text File(WordStar): ") "r"))
(SETQ SP (GETPOINT "\n Text String Start Point :"))
(SETQ INS (GETSTRING"\n Enter Line Spacing in Drawing Units :"))
(SETQ HT (GETSTRING "\n Enter Text Height in Drawing Units :"))
(SETQ WD (GETSTRING "\n Enter Text Width Factor :"))
(princ "Please select HZ style:")
(initget 2 "Singleline-hz Doubleline-hz")
(setq hz (getstring "\nSingleline-hz/Doubleline-hz/<standard-hz>:"))
(setq pname (getvar "dwgprefix"))
(cond ((eq hz "s")  (COMMAND "STYLE" "HZ" "txt,hztxt" HT WD "" "" ""))
   ((eq hz "d")  (COMMAND "STYLE" "HZ1" "txt,hztxt1" HT WD "" "" ""))
   ((eq hz "") (COMMAND "STYLE" "HZ0" "txt,hztxt0" HT WD "" "" ""))
   (T (princ "Unknown HZ style ! Restart HZFILE COMMAND."))
   )

(SETQ DT (READ-LINE TXT))
(SETQ LS (STRCAT "@"INS"<-90"))
(COMMAND"TEXT" SP "" DT)
(WHILE (/= DT NIL)
(SETQ DT (READ-LINE TXT))
(COMMAND"TEXT" LS "" DT)
)
(COMMAND"REDRAW")
)

作者: zengzheng00o 时间: 2011-10-19 00:05

zengzheng00o 发表于 2011-10-18 23:47
(DEFUN C:HZFILE(/ TXT SP TH INS WD STL LS DT)
(setvar "BLIPMODE" 0)
(SETVAR "CMDECHO" 0)

(defun C:EPT (/ olds oldss olds1 stp h txt wf st x0 y0 l n yes
            TXTA TXT1 NN AR AD CL cst)
(setq olderr *error*
      *error* myerror)
(setvar "BLIPMODE" 0)
(setvar "CMDECHO" 0)
(SETQ CL (GETVAR "CLAYER"))
(setq cst (getvar "textstyle"))
(setq olds (entsel "\nSelect the string :"))
(SETQ OLDSS (CAR OLDS))
(setq olds (entget  (car  olds)))
(setq olds1 (cdr (assoc 0 olds)))
(if (= "TEXT" oldS1)
   ( progn
      (COMMAND "ERASE" (SSADD OLDSS) "")
      (COMMAND "LAYER" "S"  (CDR (ASSOC 8 OLDS)) "")
      (setq stp  (trans (cdr (assoc 10 olds)) 0 1))
      (setq h (cdr (assoc 40 olds)))
      (setq aR (cdr (assoc 50 olds)))
      (setq aD  (RTD (cdr (assoc 50 olds))))
      (setq txt (cdr (assoc 1 olds)))
      (setq wf (Cdr (assoc 41 olds)))
      (SETQ ST (CDR (ASSOC 7 OLDS)))
      (SETQ X0 (CAR STP) Y0 (CADR STP))
      (setq l (strlen txt))
      (setq n 1) (setq nn 2)
      (setq yes 1)
      (while (<= N L)
               (setq tXT1 (substr txt n 2))
               (SETQ TXTA (ASCII TXT1))
               (setq nn (cond
                        ((= TXT1 "%%") 3)
                        ((> Txta 160) 2)
                        ((< Txta 129) 1)
                        )
               )
               (setq txt1 (substr txt n nn))
               (setq n (+ n nn))
               (COMMAND "text" "S" ST stp h aD txt1)

               (IF (= NN 2)
                  (PROGN
                     (cond ((eq cst "HZ") (setq wscale 1.0625))
                           ((eq cst "HZ1")  (setq wscale 1.20))
                           ((eq cst "HZ0")  (setq wscale 1.40))
                           )
                     (SETQ X0 (+ X0 (* (cos aR)  H WF wscale)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF wscale)))
                  )
                  (PROGN
                     (SETQ JF (COND
                                 ((= TXTA 49) 0.65)
                                 ((= TXTA 46) 0.3)
                                 (T 1)
                              )
                        )
                     (setq wf1 (* JF WF))
                     (SETQ X0 (+ X0 (* (cos aR)  H WF1)))
                     (SETQ y0 (+ Y0 (* (sin aR)  H WF1)))
                  )
               )
               (SETQ STP (LIST X0 Y0))

      )
   )
  )
(COMMAND "LAYER" "S" CL "")
  (COMMAND "text" "s" cst ^c)
(setq *error* olderr)
(princ)
)

(DEFUN C:HZFILE(/ TXT SP TH INS WD STL LS DT)
(setvar "BLIPMODE" 0)
(SETVAR "CMDECHO" 0)
(modes '("BLIPMODE" "CMDECHO"))
(graphscr)
(SETQ TXT (OPEN (GETSTRING "\n Name of Text File(WordStar): ") "r"))
(SETQ SP (GETPOINT "\n Text String Start Point :"))
(SETQ INS (GETSTRING"\n Enter Line Spacing in Drawing Units :"))
(SETQ HT (GETSTRING "\n Enter Text Height in Drawing Units :"))
(SETQ WD (GETSTRING "\n Enter Text Width Factor :"))
(princ "Please select HZ style:")
(initget 2 "Singleline-hz Doubleline-hz")
(setq hz (getstring "\nSingleline-hz/Doubleline-hz/<standard-hz>:"))
(setq pname (getvar "dwgprefix"))
(cond ((eq hz "s")  (COMMAND "STYLE" "HZ" "txt,hztxt" HT WD "" "" ""))
   ((eq hz "d")  (COMMAND "STYLE" "HZ1" "txt,hztxt1" HT WD "" "" ""))
   ((eq hz "") (COMMAND "STYLE" "HZ0" "txt,hztxt0" HT WD "" "" ""))
   (T (princ "Unknown HZ style ! Restart HZFILE COMMAND."))
   )

(SETQ DT (READ-LINE TXT))
(SETQ LS (STRCAT "@"INS"<-90"))
(COMMAND"TEXT" SP "" DT)
(WHILE (/= DT NIL)
(SETQ DT (READ-LINE TXT))
(COMMAND"TEXT" LS "" DT)
)
(COMMAND"REDRAW")
)

作者: zhangchengyi 时间: 2011-10-24 14:35
高手在那里？

作者: zengzheng00o 时间: 2011-10-25 22:42
不是由于LISP是比较老旧的语言，这个语言据我知是92年的富士康编写的，上面其实就CTEXT与EPT命令我不知道。其他是网速卡。重复了。若有人知道，我会把其他的命令全部带上说明整理出来，全是我自己摸索的。主动标注，自动换层等等。（这样的命令小，不同于外挂，很好用）比如我直接W1输入1层的线，W3是3层。

作者: 蓝海一号 时间: 2012-3-21 01:08
研究一下先

作者: wenjie2008 时间: 2012-11-11 12:46
看看！！！！！！！！！！！！！！

作者: huaguwu 时间: 2014-10-27 11:34
看不懂

作者: Roycol 时间: 2014-12-1 17:33
顶一下.....

作者: Roycol 时间: 2014-12-1 17:34
顶一下.....

欢迎光临 iCAx开思网 (https://www.icax.org/)