[编程交流] 多行文字与文字问题

 
(defun c:COPYPART (/ ObjC ObjP1 ObjP2 ObjA TxtV Nw1Txt
      Nw2txt)
 (setq CREcho (getvar "CMDECHO"))
 (setq CRSnap (getvar "OSMODE"))
 (setq CRortho (getvar "ORTHOMODE"))
;;-------------Error handler---------------
 (setq *error*    ;;;resets sysvar incase of
    (lambda (msg)   ;;;an error, esc, exit, cancel
      (setvar "cmdecho" CRcecho)
      (setvar "OSMODE" CRSnap)
      (setvar "ORTHOMODE" CROrtho)
      (princ msg)
      (princ)))
;;------------------------------------------------
 (setvar "ORTHOMODE" 1)
 (if (< CRSnap 16384)
     (setvar "OSMODE" (+ CRSnap 16384)))
 (setq ObjC (entsel "\nSelect object to copy down: "))
 (setq ObjP1 (list (car (cadr Objc)) (cadr (cadr Objc))))
 (setq ObjA (getangle "\nSpecify direction of copy: " Objp1))
 (cond ( (= ObjA 0) (setq ObjP2 (list (+ (car ObjP1) 30)(cadr ObjP1))))
( (= Obja (/ pi 2)) (setq ObjP2 (list (car ObjP1) (+ (cadr ObjP1) 5.25))))
( (= Obja pi)(setq ObjP2 (list (- (car ObjP1) 30)(cadr ObjP1))))
( (= Obja (* 3 (/ pi 2)))(setq ObjP2 (list (car ObjP1) (- (cadr ObjP1) 5.25)))))
 (vl-cmdf "_.copy" ObjC "" ObjP1 Objp2)
 (setq TxtV (entget(entlast)))
 (setq Nw1Txt (subst (cons 1 "###-###") (assoc 1 TxtV) TxtV))
 (entmod Nw1Txt)
 (entupd TxtV)
 (setq NewTxt (strcase (getstring "\nEnter New text value: ")))
 (setq Nw2Txt (subst (cons 1 NewTxt) (assoc 1 TxtV) TxtV))
 (entmod Nw2Txt)
 (setvar "CMDECHO" CREcho)
 (setvar "OSMODE" CREnap)
 (setvar "ORTHOMODE" CROrtho)
 (princ)
 )

2