samifox Posted April 22, 2014 Share Posted April 22, 2014 hi im trying to create a wipeout beneate a hatch, i cant figure out what im doing wrong? (defun C:TEST(/ ent) (setq ent (entget(car(entsel)))) (command "HATCHGENERATEBOUNDARY" (cdr (assoc -1 ent)) "") (command "WIPEOUT" "p" "" (entlast) "" "y" "") (command "DRAWORDER" (entlast) "u" "" (cdr (assoc -1 ent))"") ) thanks Shay Quote Link to comment Share on other sites More sharing options...
GP_ Posted April 22, 2014 Share Posted April 22, 2014 Try: (defun C:TEST(/ ent) (setq ent (entget(car(entsel)))) (command "HATCHGENERATEBOUNDARY" (cdr (assoc -1 ent)) "") (command "WIPEOUT" "p" "y") (command "DRAWORDER" (entlast) "" "u" (cdr (assoc -1 ent)) "" ) ) Quote Link to comment Share on other sites More sharing options...
hmsilva Posted April 22, 2014 Share Posted April 22, 2014 Another (defun C:TEST (/ sel) (setq sel (entsel)) (command "_.HATCHGENERATEBOUNDARY" sel "") (if (= (getvar 'PICKFIRST) 1) (command "_.WIPEOUT" "p" "y") (command "_.WIPEOUT" "p" (entlast) "y") ) (command "_.DRAWORDER" (entlast) "" "_u" sel "") (princ) ) HTH Henrique Quote Link to comment Share on other sites More sharing options...
Tharwat Posted April 22, 2014 Share Posted April 22, 2014 (if (and (setq s (car (entsel "\n Select hatch :"))) (eq (cdr (assoc 0 (entget s))) "HATCH") ) (...... Quote Link to comment Share on other sites More sharing options...
samifox Posted April 26, 2014 Author Share Posted April 26, 2014 Thank you all Quote Link to comment Share on other sites More sharing options...
Tharwat Posted April 26, 2014 Share Posted April 26, 2014 Thank you all To come late better than never Quote Link to comment Share on other sites More sharing options...
samifox Posted April 27, 2014 Author Share Posted April 27, 2014 hi _.HATCHGENERATEBOUNDARY is unknow command in acad 2010, is there any eqivalent? Quote Link to comment Share on other sites More sharing options...
Tharwat Posted April 27, 2014 Share Posted April 27, 2014 hi _.HATCHGENERATEBOUNDARY is unknow command in acad 2010, is there any eqivalent? Maybe -> -hatchedit Quote Link to comment Share on other sites More sharing options...
samifox Posted April 27, 2014 Author Share Posted April 27, 2014 (command "-hatchedit" sel "" "b" "" "p" "" "n" "") give a very minimal options to select from (there is "create boundry") when i access this command from acad, but from lisp is not there, wierd Quote Link to comment Share on other sites More sharing options...
Tharwat Posted April 27, 2014 Share Posted April 27, 2014 Remove the "" after the variable sel Quote Link to comment Share on other sites More sharing options...
samifox Posted April 27, 2014 Author Share Posted April 27, 2014 Remove the "" after the variable sel Thanks you very much for the quick respons Tharwat Quote Link to comment Share on other sites More sharing options...
Tharwat Posted April 27, 2014 Share Posted April 27, 2014 Thanks you very much for the quick respons Tharwat You're welcome anytime 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.