4 steps

[sergiu_ciuhnenco]

For a good programmer, it's not gonna be a problem :

1)to compare numbers of text between 2 blocks , if it's different numbers to stop the opperation (show allert ), if is equal to go for the next step ,I want to check the numbers because ,the software which make it, sometimes make it different, but the equality is very important, in final I have to summ each number from As1 with his oposite from As3 and duble sum.

2)explode the WMF files , it's work as well as for blocks , I tried with one lisp for block(successful), I'll write it down

3)rotate all text horizontal like a make it in "explode example"

4) final step , I want select the text and trasnfort it in attributes, and transform attributes in block As1 ( one block) AS3 (other block)

I want it blocks because after that I export it to excell and allready there I will make the formula (As1+As3)*2 , and I will import it back (Attout, Attin)

compare.rar

Edited January 9, 2015 by sergiu_ciuhnenco

[sergiu_ciuhnenco]

Is this possible ???

If yes , help me please !!!

[sergiu_ciuhnenco]

For a good programmer, it's not gonna be a problem :

1)to compare numbers of text between 2 blocks , if it's different numbers to stop the opperation (show allert ), if is equal to go for the next step ,I want to check the numbers because ,the software which make it, sometimes make it different, but the equality is very important, in final I have to summ each number from As1 with his oposite from As3 and duble sum.

2)explode the WMF files , it's work as well as for blocks , I tried with one lisp for block(successful), I'll write it down

3)rotate all text horizontal like a make it in "explode example"

4) final step , I want select the text and trasnfort it in attributes, and transform attributes in block As1 ( one block) AS3 (other block)

I want it blocks because after that I export it to excell and allready there I will make the formula (As1+As3)*2 , and I will import it back (Attout, Attin)

compare.rar

Edited January 9, 2015 by sergiu_ciuhnenco

[sergiu_ciuhnenco]

(defun C:ACISPrep (/ AllBlocks SolOnly )
(setvar "qaflags" 1)
(setq AllBlocks (ssget "X" (list (cons 0 "INSERT"))))
(while (/= AllBlocks nil)
 (progn
  (command "_.explode"  AllBlocks "")
  (setq AllBlocks (ssget "X" (list (cons 0 "INSERT"))))
 );progn
);while
(setq SolOnly (ssget "X" '((0 . "3DSOLID"))))
(command  "_.erase" "all" "R" SolOnly "")
(setvar "qaflags" 0)
(princ)
);end ACISPrep

 

 

This is the Explode lisp .May be will help you

Edited January 9, 2015 by sergiu_ciuhnenco

[SLW210]

Please read the Code Posting Guidelines and edit your post to include the Code in Code Tags.

[SLW210]

I have merged your two threads, please refrain from making multiple posts on the same topic.

[sergiu_ciuhnenco]

Ok. I apologize for any inconvenience !

[sergiu_ciuhnenco]

I write second and third step :

(defun c:xxx(/ bSet *error* )
 (setvar "qaflags" 1)
 (while(setq bSet(ssget "_X" '((0 . "INSERT"))))
   (command "_.explode" bSet "")
   ); end while
 (repeat 3(command "-purge" "all" "" "n"))
 (setvar "qaflags" 0)
(princ)
(vl-load-com);Load Activex Support
   (defun *error* (s)
    (if adoc (vla-endundomark adoc))
 (if (not (member s '("Function cancelled" "quit / exit abort")))
     (princ (strcat "\n---->Error:" s))
 )
 (princ)
)
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
(vla-startundomark adoc)
(if
    (and
     (setq sset (ssget "X" '((0 . "TEXT,MTEXT"))))
  (setq value 0)
 )
 (progn
     (if (< value 0)
      (*error* "Negative Values Not Allowed")
   (progn
       (repeat (setq i (sslength sset))
        (setq en (vlax-ename->vla-object (ssname sset (setq i (1- i)))))
     (if (vlax-write-enabled-p en)
         (vlax-put-property en 'Rotation (DTR value))
     )
    )
   )
  )
 )
)
(vla-endundomark adoc)
(princ))
;;Sub function for Convert Degree to Radians;;
(defun DTR (a)
    (* pi (/ a 180.0))
)

 

can somebody help me with first and fourth

this lisp is work fine