[编程交流] 修剪Lisp程序

(defun C:CHOP (/ rad2deg txt2edit chopword entname entdata dotpairtxt dotpairht ht dotpairang rotang longtxt wordlen longtxtlen counter teststr)
  (setvar "CMDECHO" 0)
  (setq Rad2Deg (/ 360 pi 2))
  (setq Txt2Edit (ssget))
  (setq ChopWord (getstring "\nChop after what word?: "))
  (setq EntName (ssname Txt2Edit 0))
  (setq EntData (entget EntName))
  (setq DotPairTxt (assoc (quote 1.0) EntData))
  (setq DotPairHt (assoc (quote 40.0) EntData))
  (setq Ht (cdr DotPairHt))
  (setq DotPairAng (assoc (quote 50.0) EntData))
  (setq RotAng (cdr DotPairAng))
  (setq RotAng (* RotAng Rad2Deg))
  (setq LongTxt (cdr DotPairTxt))
  (setq WordLen (strlen ChopWord))
  (setq LongTxtLen (strlen LongTxt))
  (FINDWORD)
)
(defun FINDWORD ()
  (setq Counter 1)
  (setq TestStr (substr LongTxt Counter WordLen))
  (while (not (equal TestStr ChopWord))
     (progn
        (setq Counter (+ 1 Counter))
        (setq TestStr (substr LongTxt Counter WordLen))
     )
  )
  (FINISHED)
)
(defun FINISHED (/ beforlen befortxt aftstart afttxt aftpt)
  (setq BeforLen (+ Counter WordLen))
  (setq BeforTxt (substr LongTxt 1 BeforLen))
  (setq AftStart (+ 1 BeforLen))
  (setq AftTxt (substr LongTxt AftStart))
  (command "CHANGE" "prev" "" "" "" "" "" "" BeforTxt)
  (setq AftPt (getpoint "\nStarting point of remaining text:"))
  (command "TEXT" AftPt Ht RotAng AftTxt)
  (setvar "CMDECHO" 1)
)
(prompt "\nCommand: CHOP - Break a text string\n") 

(DEFUN C:Bkwr (/ PT PT1 PT2 PT3 A1)
 (modes '("CMDECHO" "osmode" "orthomode"))
 (PROMPT "\n \nBreak @ Intersection")
 (INITGET 1)
 (SETVAR "OSMODE" 32)
 (COMMAND "SNAP" "OFF")
 (setq dsc (getvar "dimscale"))
 (SETQ PT1 (GETPOINT "\n\n Pick intersection to be broken: "))
 (SETVAR "OSMODE" 0)
 (INITGET 33)
 (SETVAR "OSMODE" 512)
 (SETQ PT (GETPOINT PT1 "\n Pick Line to be broken: "))
 (IF (= BRKW NIL)
   (SETQ BRKW 0.0625)   ;set wire gap here. Gap is double the value set
 )
 (SETQ A1  (ANGLE PT1 PT)
PT2 (POLAR PT1 A1 (* dsc BRKW))
PT3 (POLAR PT1 (+ A1 PI) (* dsc BRKW))
 )
 (COMMAND ".BREAK" PT "F" PT2 PT3)
 (moder)
)