lisp程式

Andyhon

(defun c:ll3()  
     (setq dp (open "seminest.dat" "w")
     (command "osnap" "off")
     (setq pt1 (getpoint "\n第一點位置 : "))
     (setq pt2 (getcorner pt1 "\n第二點位置 : "))
     (command "dxfout" "kk7" "v" "r12" "e" "w" pt1 pt2 "" "")   
     (command "r13kk7")
     (command "r13k2")
     (command "osnap" "cen,nea,end,mid,per,int,ins")
     (setq p1 (getpoint "\n選擇右上角位置 : "))
     (setq WIA  (getstring "\n請輸入編號: "))
     (setq WIB  (getstring "\n請輸入工程編號: "))
     (setq p1x (car p1) p1y (cadr p1) )
     (command "semitran")
     (command "semitr2a")
     (command "cssort1")
;|     
     (command "G70CLAW")
     (setq gg (open "dpal.txt" "a"))
     (setq lin1 (strcat "(X" (rtos p1x 2 1) "Y" (rtos p1y 2 1)WIA "-" WIB ")" ))
     (princ lin1 gg) (write-line " " gg)
     (close gg)
|;     
     (command "G70CLAW")
     (setq lin1 (strcat "(X" (rtos p1x 2 1) "Y" (rtos p1y 2 1) WIA "-" WIB ")" ))
     
     (setq gg (open "dpal.txt" "r"))
     (while (setq str (read-line gg))
       (setq strss (cons str strss))
     )  
     (close gg)
     
     (setq gg (open "dpal.txt" "w"))
     (princ lin1 gg) (write-line " " gg)
     (foreach str  (reverse strss)
       (write-line str gg)
     )
     (close gg)

     (command "E8")
)

程式碼不是自己寫的嗎?
單只改後段沒能看懂?

jack11280

看不懂這是什麼