delta Posted March 10, 2015 Share Posted March 10, 2015 I am having a bit of trouble here with this. Is there a lisp guru out there who can help me. I hope I have explained my problem clearly enough Insertit.lsp.pdf Quote Link to comment Share on other sites More sharing options...
jonathann3891 Posted March 10, 2015 Share Posted March 10, 2015 (edited) I'm farily new to writing lisp, but I'll give you my opinion. You can add multiple commands to a lisp, giving you the options you want. I would add a seperate command for each FFL you were referring to. Insertit.lsp ;;------------------------------------------------------------;; ;; 152ffl ;; ;;------------------------------------------------------------;; (defun c:152ffl () (on_hold) ) (defun on_hold () (sp_inset) (if(/= tm_ssget nil) (command "_.erase" tm_ssget "") ) (command "_.ucs" "") (setvar "cecolor" "8") (if(tblsearch "BLOCK" "DwgBOMBlockTableRecord3")(command "_.insert" "152FFL" (list (* -10 real_scale) (* 12.5 real_scale)) real_scale real_scale 0)) (sp_outset) ) ;;------------------------------------------------------------;; ;; 185ffl ;; ;;------------------------------------------------------------;; (defun c:185ffl () (on_hold) ) (defun on_hold () (sp_inset) (if(/= tm_ssget nil) (command "_.erase" tm_ssget "") ) (command "_.ucs" "") (setvar "cecolor" "8") (if(tblsearch "BLOCK" "DwgBOMBlockTableRecord3")(command "_.insert" "185FFL" (list (* -10 real_scale) (* 12.5 real_scale)) real_scale real_scale 0)) (sp_outset) ) ;;------------------------------------------------------------;; ;; 200ffl ;; ;;------------------------------------------------------------;; (defun c:200ffl () (on_hold) ) (defun on_hold () (sp_inset) (if(/= tm_ssget nil) (command "_.erase" tm_ssget "") ) (command "_.ucs" "") (setvar "cecolor" "8") (if(tblsearch "BLOCK" "DwgBOMBlockTableRecord3")(command "_.insert" "200FFL" (list (* -10 real_scale) (* 12.5 real_scale)) real_scale real_scale 0)) (sp_outset) ) Edited March 10, 2015 by jonathann3891 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.