stevesfr Posted August 22, 2014 Share Posted August 22, 2014 I modified it to work with Splines only , try from HERE and let me know . Tharwat, can you please post the earlier version which allowed selection of circles, rectangles, and closed plines ? I intended to save the earlier version, but then you revised to splines selection only. Thanks, Steve Quote Link to comment Share on other sites More sharing options...
Tharwat Posted August 22, 2014 Share Posted August 22, 2014 Tharwat, can you please post the earlier version which allowed selection of circles, rectangles, and closed plines ? I intended to save the earlier version, but then you revised to splines selection only. Thanks, Steve Sure , just replace the following from the routine . (setq ss (ssget "_:L" '((-4 . "<OR") (0 . "CIRCLE,ELLIPSE") (-4 . "<AND") (0 . "LWPOLYLINE") (-4 . "&=") (70 . 1) (-4 . "AND>") (-4 . "OR>") ) ) ) Quote Link to comment Share on other sites More sharing options...
stevesfr Posted August 22, 2014 Share Posted August 22, 2014 Sure , just replace the following from the routine . (setq ss (ssget "_:L" '((-4 . "<OR") (0 . "CIRCLE,ELLIPSE") (-4 . "<AND") (0 . "LWPOLYLINE") (-4 . "&=") (70 . 1) (-4 . "AND>") (-4 . "OR>") ) ) ) Tharwat, thank you much, Steve............... works perfect now Quote Link to comment Share on other sites More sharing options...
Tharwat Posted August 22, 2014 Share Posted August 22, 2014 Tharwat, thank you much, Steve............... works perfect now You are welcome Steve , I am happy that you got it working as expected . Quote Link to comment Share on other sites More sharing options...
Barry_47 Posted August 25, 2014 Author Share Posted August 25, 2014 why cant i see my vport. or del my v port ? wht to do? pls help anyone Quote Link to comment Share on other sites More sharing options...
Tharwat Posted August 25, 2014 Share Posted August 25, 2014 why cant i see my vport. or del my v port ? wht to do? pls help anyone Barry , when you have a new question that is not related to your or any other thread in the forum , just start a new thread which would allow all users to see and to be a reference to forum for later on search . Anyway , just run the AUDIT command with Yes option and the viewport should be recovered . Quote Link to comment Share on other sites More sharing options...
Barry_47 Posted September 11, 2014 Author Share Posted September 11, 2014 i have to write new thread. pls show me the way Quote Link to comment Share on other sites More sharing options...
Tharwat Posted September 11, 2014 Share Posted September 11, 2014 i have to write new thread. pls show me the way just run the AUDIT command with Yes option and the viewport should be recovered . Which part that you don't understand from my quoted reply here ? Anyway ; Open that drawing then type audit at the command line and hit enter then choose yes when you being asked . That's it . Quote Link to comment Share on other sites More sharing options...
ReMark Posted September 11, 2014 Share Posted September 11, 2014 why cant i see my vport. or del my v port ? wht to do? pls help anyone Can't see vport? The viewport could be on a layer that is off or frozen. Can't delete a vport? The viewport could be on the Defpoints layer and layer "0" is frozen. Quote Link to comment Share on other sites More sharing options...
ReMark Posted September 11, 2014 Share Posted September 11, 2014 i have to write new thread. pls show me the way Find the appropriate forum (example: AutoCAD Beginners' Area) then click on the big green button that reads +Post New Thread. You can't miss it. Quote Link to comment Share on other sites More sharing options...
Barry_47 Posted September 12, 2014 Author Share Posted September 12, 2014 Dear Tharwat, Some days before you solved my problem with lisp. SOLID Hatch with its boundry colour. is it possible with in program, in solid hatch done by lisp. will delete its boundry after completion of its action. so if i select all. it will not solid hatch again on done solid hatch. so i will get more memory while doing action of solid hatch.if hatches are dence my autocad get hanged or i get fatal error. Quote Link to comment Share on other sites More sharing options...
Tharwat Posted September 12, 2014 Share Posted September 12, 2014 (edited) Dear Tharwat,Some days before you solved my problem with lisp. SOLID Hatch with its boundry colour. is it possible with in program, in solid hatch done by lisp. will delete its boundry after completion of its action. so if i select all. it will not solid hatch again on done solid hatch. so i will get more memory while doing action of solid hatch.if hatches are dence my autocad get hanged or i get fatal error. Try this UNTESTED modified codes . (defun c:Test (/ *error* v l ss doc) ;; Tharwat 17. Sep. 2014 ; (defun *error* (x) (if v (mapcar 'setvar '(HPNAME CMDECHO) v) ) (if (wcmatch (strcase x) "*BREAK*,*CANCEL*,*EXIT*") (princ (strcat "\n** Error: " x " **")) ) ) (setq l (entlast) v (mapcar 'getvar '(HPNAME CMDECHO)) ) (if (setq ss (ssget "_:L" '((0 . "SPLINE")))) (progn (mapcar 'setvar '(HPNAME CMDECHO) '("SOLID" 0)) (vla-startUndomark (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))) ((lambda (i / sn c o) (while (setq sn (ssname ss (setq i (1+ i)))) (command "_.-hatch" "S" sn "" "") (if (not (eq l (setq o (entlast)))) (if (setq c (assoc 62 (entget sn))) (entmod (append (entget o) (list (cons 62 (cdr c))))) (entmod (append (entget o) '((62 . 256)))) ) ) (entdel sn) (setq l o) ) ) -1 ) (vla-Endundomark doc) ) ) (*error* nil) )(vl-load-com) Edited September 17, 2014 by Tharwat Quote Link to comment Share on other sites More sharing options...
Barry_47 Posted September 17, 2014 Author Share Posted September 17, 2014 dear tharwat i tried this. its not working as i ask. it work but changes my solid hatch colour to current layer. i want my solid hatch colour should not change. if it works it is most benificial for me to avoid fatal error too Quote Link to comment Share on other sites More sharing options...
ReMark Posted September 17, 2014 Share Posted September 17, 2014 If you are seeing memory errors than your problem is related more to your system specs than it is to the density of the hatch patterns used. Quote Link to comment Share on other sites More sharing options...
Tharwat Posted September 17, 2014 Share Posted September 17, 2014 dear tharwat i tried this. its not working as i ask. it work but changes my solid hatch colour to current layer. i want my solid hatch colour should not change. if it works it is most benificial for me to avoid fatal error too I modified the codes above in post No# 32 . Quote Link to comment Share on other sites More sharing options...
Barry_47 Posted September 22, 2014 Author Share Posted September 22, 2014 dear tharwat in post 3948 you made my work easy by greating lisp to close my boundry with solid hatch with its colour. but from today if i tried it is stop working and says object not found. and it stops working . pls help me in to it. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.