TXT

rppoint

By Dawn Flores,2014-01-23 23:49
10 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 ..

(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

     (setq p(cdr(assoc (+ 10 k) face_data)))

     (setq kk 0)(setq spn 0)

     (repeat (length rpointlist)

     (setq basep(nth kk rpointlist))

     (setq pbasepdistance(distance p basep))

     (if(and(<= 0 pbasepdistance)(> 5 pbasepdistance))

     (progn

     ;(princ "\nT")

     ;(princ p)(princ "distance")(princ basep)(princ "=")(princ

    pbasepdistance)

     ;(princ "\n")(princ rpointlist)

     (setq p basep)

     (setq rp(cons (+ 10 k) p))

     (setq face_data(subst rp (assoc (+ 10 k) face_data) face_data))

     (entmod face_data)

     (if(and(< 0 pbasepdistance)(> 5 pbasepdistance))

     (progn

     (princ "\n?ÕÈÚºÏÁËÒ??öµã??ÏÖ??ÈÚºÏÁË")(princ (setq rn(+ rn

    1)))(princ "?öµã??"))

     )

     (setq spn(+ spn 1))

     ;(princ "\n")(princ rpointlist)(princ "\n")

     )

     ;(progn

     ;(princ "\nF")

     ;(princ p)(princ "distance")(princ basep)(princ "=")(princ

    pbasepdistance)

     ;(princ "\n")(princ rpointlist)

     ;(princ "\n")(princ rpointlist)(princ "\n")

     ;)

     )

     (setq kk(+ 1 kk))

     )

     (if (= spn 0)(setq rpointlist(cons p rpointlist)))

     (setq k(+ k 1))

     )

     (setq k 0)

     (princ "\nÕýÔÚÈÚµÚ")(princ n)(princ "?öÃæ??ÇëÄÍÐĵÈ?ý")

     (setq n(+ n 1))

     )

     (princ "\n??Ï?Äã??µãÈÚºÏÍê?Ï??")

     )

Report this document

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