home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
CAD
/
PKEY11_1.ZIP
/
ET.LSP
< prev
next >
Wrap
Text File
|
1992-03-14
|
818b
|
27 lines
;Extend or Trim Lines
;
; ********Patrick J. McKee, author********
; ****Copyright 1992, Power Key tm****
;
;
(setq oer *error* *error* err2)
(INITGET "Extend Trim")
(setq et1(getkword "Do you want to Extend or <Trim>: "))
(if(equal et1 nil)(setq et1 "Trim"))
(setq ent(entsel "\nSelect edge : "))
(setq obj(car ent))
(setq x(getpoint "\nPick crossing line startpoint: "))
(setq y(getpoint x "\nendpoint: "))
(setq ss1(ssget "c" x y))
(setq count 0)
(if(/= ss1 nil)
(while(< count(sslength ss1))
(setq e1st(entget(ssname ss1 count))
pt1 (cdr(assoc 10 e1st))
pt2 (cdr(assoc 11 e1st))
int (inters x y pt1 pt2))
(if(equal et1 "Extend")
(command"extend" obj "" int "")
(command"trim" obj "" int ""))
(setq count (1+ count))))
(princ)