TXT

rppoint

By Dawn Flores,2014-01-23 23:49
13 views 0
(defun c:rppoint() (setq allface(ssget "x")) (setq rpointlist '()) (setq firstface(ssname allface 0)) (setq first_data(entget firstface)) (setq firstp(cdr(assoc 10 first_data))) (setq rpointlist(cons firstp rpointlist)) (setq n 0 k 0 kk 0 rn 0) (repeat (sslength allface) (setq oneface(ssname allface n)) (setq face_data(entget oneface)) (repeat 4 ..
null
null

Report this document

For any questions or suggestions please email
cust-service@docsford.com