帮我修正下这个LSP为视频样子

twtysoi

(defun c:BZ (/ test0 test tmp int pt ss name pts p1 p9 pt1 pt2 ang ptlst h)
        (list '("cmdecho" 0 "osmode" 0) 0 nil)
        (setq TEST0 t)
        (while TEST0
                (princ "\n点取多段线直线边[取消(U)]: ")
                (setq TEST t)
                (while TEST
                        (setq TMP (grread t 4 2))
                        (cond
                                ;;按下键盘键或者击鼠标右键
                                ((or (= (car TMP) 2) (= (car TMP) 25))
                                        (setq INT (cadr TMP))
                                        (cond
                                                ;;回车,空格或者击鼠标右键，则退出
                                                ((or (= INT 13) (= INT 32) (= (car TMP) 25))
                                                        (setq TEST NIL
                                                                TEST0        NIL
                                                        )
                                                )
                                                ;;U选项
                                                ((or (= (ascii "u") INT) (= (ascii "U") INT))
                                                        (command "undo" "b")
                                                        (setq test nil)
                                                )
                                        )
                                )
                                ;;击左键
                                ((= (car TMP) 3)
                                        (setq pt (cadr TMP))
                                        (if (setq ss (ssget pt '((0 . "LWPOLYLINE"))))
                                                (progn
                                                        (setq name (ssname ss 0))
                                                        (if (tao-get-pl-entsel-type name pt)
                                                                (progn
                                                                        (setq
                                                                                pts  (tao-get-ss-9pt name 19)
                                                                                p1   (nth 1 pts)
                                                                                p9   (nth 9 pts)
                                                                                pts(Tao-mindist-sort(trans pt 1 0)(tao-get-pl-entsel-pt name pt))
                                                                                pt1(trans(car pts)0 1)
                                                                                pt2(trans(cadr pts)0 1)
                                                                                ang(angle pt1 pt2)
                                                                                ptlst(Tao-get-viewextents)
                                                                                h(/(getvar "viewsize")35)
                                                                        )
                                                                        (command "undo" "m")
                                                                        (tao-zoom-w p1 p9)
                                                                        (tao-zoom-s 0.8)
                                                                        (setq ss (ssget "c" (trans p1 0 1) (trans p9 0 1)))
                                                                        (command "rotate" ss "" pt1 (- 0 (rtd ang)))
                                                                        (setq pts  (tao-get-ss-9pt name 19))
                                                                        (tao-zoom-w (trans(car ptlst)1 0)(trans(cadr ptlst)1 0))
                                                                        (grvecs (list
                                                                                                                3
                                                                                                                (POLAR pt1 3.9270 h)
                                                                                                                (POLAR pt1 0.7854 h)
                                                                                                                3
                                                                                                                (POLAR pt1 2.356 h)
                                                                                                                (POLAR pt1 5.498 h)
                                                                                                                2
                                                                                                                pt1
                                                                                                                (POLAR pt1 ang (+(distance pt1 pt2)(* 2 h)))
                                                                                                        )
                                                                        )
                                                                        (setq test nil)
                                                                )
                                                        )
                                                )
                                                (setq test nil)
                                        )
                                )
                        )
                )
        )
       
)[sell=10][/sell]

aisong220

HLCAD

对于奇葩的求助，只能掠过

rw1118

看看。。，，，路过

yoyoho

谢谢楼主分享!!!!!!