[LISP程序]：直线上写文本的小程序

yyy8888

(mapcar 'setvar '("cmdecho" "highlight") '(0 0))
;(command "layer" "s" "3" "")
;(COMMAND "STYLE" "standard" "" "" "" "" "" "")
(COMMAND "TEXT" "S" "standard" \e)
(prompt "\n功能: 直线上写文本")
(setvar "OSMODE" 0)
(if (= txt_hig nil)
   (Load "txt_hig")
   (PROGN     
         (PRINC "\t文本字高为:  ")(PRINC (/ txt_hig k))(PRINC " [mm]")
   )
);if end
(setq pv nil MD "上" Kzh (/ 180 pi))

(while (and (/= (cadr pv) 13) (/= (cadr pv) 0) (/= (cadr pv) 32) (/= (car pv) 6))
(princ "\n书写位置 '/ '<")(PRINC MD)(princ ">  输入文本<已给文本为: ")
(princ ZXWB)(princ" > 或 选择直线及位置:")
(setq pv (grread))

(if (= (car pv) 2)
(if (and (/= (cadr pv) 13) (/= (cadr pv) 32))
     (if (/= (princ (strcase (chr (cadr pv)))) "/")
       (PROGN
         (setq ZXWB1 (strcat (chr (cadr pv)) (getstring (/= PV nil))))
         (setq ZXWB ZXWB1))
       (setq ZXWB ZXWB1 ZXWB1 "/")
     ) ;if
) ;if
) ;if       
(if (= ZXWB1 "/") (setq ZXWB1 ZXWB md (if (= md "上") "中" "上")))

(if (= (car pv) 3) (progn
  (setq pt (cadr pv) pt1 (osnap pt "nea"))
          (if (not pt1)
                 (setq ag (/ pi 2.) ag1 0 PT1 pt)
                   (setq ag (angle pt1 pt) ag1 (- ag (/ pi 2.)) pt pt1)
          ) ;if

(if (and ag pt ZXWB ZXWB1)
(progn
        (if (and (> ag1 (/ pi -2)) (<= ag1 (/ pi 2.)))
        (PROGN
                (setq ag2 ag1)
                (setq pt (polar pt ag (* K 1.25)))
))
        (if (and (> ag1 (/ pi 2.)) (<= ag1 pi))
        (PROGN
                (setq ag2 (- ag1 pi))
                (setq pt (polar pt ag (+ (* k 0.25) txt_hig)))
))
        (if (and (> ag1 PI) (<= ag1 (* pi 1.5)))
        (PROGN  
                (setq ag2 (- ag1 pi))
                (setq pt (polar pt ag (+ (* k 0.25) txt_hig)))
))
        (if (and (> ag1 (* pi 1.5)) (<= ag1 (* pi 2.)))
        (PROGN  
                (setq ag2 (- ag1 pi))
                (setq pt (polar pt ag (* k 1.25)))
))
        (if (<= ag1 (/ pi -2))
        (PROGN  
                (setq ag2 (- ag1))
                (setq pt (polar pt ag (+ (* k 0.25) txt_hig)))
))
        (if (= MD "上")(PROGN
                        (command "text" "C" pt txt_hig "0" ZXWB)
                        (command "rotate" "L" "" pt (* Kzh ag2))
                        ))
        (if (= MD "中")(PROGN
                        (command "text" "M" pt1 txt_hig "0" ZXWB)
                        (command "rotate" "L" "" pt1 (* Kzh ag2))
                        ))
);PROGN
) ;IF (and ag pt v)
) ;progn
) ;if (= (car pv) 3)
) ;while
(setvar "highlight" 1)
(princ)


慕容大臣

能不能详细点，如何使用。

boy_tian

不是应该先要defun一个命令的吗？怎么没找到？

tuger

而且程序不全
(Load "txt_hig")？？？？

bridgewind

确实不全！不过自己改吧！