Roberto Sandoval Posted July 17, 2019 Share Posted July 17, 2019 I need the following code to fillet the pline with a radius of 11 once the pline has been drawn: ;; CONDpl.LSP ;; Copyright ©2019 RS - FFS Tech ;; ;; Author: Roberto Sandoval ;; July 2019 ;; ;; Email: roberts@ffstech.com ;; ;; ;; This routine draws conduit between two given points from the user ;; and puts it on the 'cond' layer without changing the current layer (Defun CONDINFO () (princ) (prompt "\nCopyright ©2019 RS") (prompt "\n** Draw conduit **") (princ) (setq CMD (getvar "cmdecho")) (setvar "cmdecho" 0) (command "undo" "begin") (graphscr) (setq SP (getpoint "\nStart point of the conduit: ")) (setq XSP (car SP)) (setq YSP (cadr SP)) (setq EP (getpoint SP "\nEnd point of the conduit: ")) (prin1) (setq XEP (car EP)) (setq YEP (cadr EP)) (setq XMP (/ (+ XSP XEP) 2)) (setq YMP (/ (+ YSP YEP) 2)) (setq MP (list XMP YMP)) (setq OSM (getvar "osmode")) (setvar "osmode" 55) (setq old_lay (getvar "clayer")) (command "layer" "set" "Cond" "") ) (defun C:PLF () (command "_PLINE") (while (= 1 (getvar "cmdactive")) (command pause)) (command "._FILLET" "P" "R" 11 "L") (princ) ) (defun RESTORE () (command "layer" "set" old_lay "") (setvar "osmode" OSM) (redraw) (command "undo" "end") (setvar "cmdecho" CMD) (princ) ) (Defun C:CD1 () (CONDINFO) (command "Pline" SP EP "") (RESTORE) ) (Defun C:CD2 () (CONDINFO) (command "Pline" SP ".x" EP SP EP "") (RESTORE) ) (Defun C:CD3 () (CONDINFO) (command "Pline" SP ".y" SP MP ".x" MP EP EP "") (RESTORE) ) (Defun C:CD4 () (CONDINFO) (command "Pline" SP ".x" SP MP ".y" MP EP EP "") (RESTORE) ) Quote Link to comment Share on other sites More sharing options...
BIGAL Posted July 19, 2019 Share Posted July 19, 2019 Post image or dwg showing what you want. 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.