Batuhan Anyığ Posted February 2, 2023 Posted February 2, 2023 (defun c:017-gridline (); ********* (setq ss (ssget) say (sslength ss)) (setq c 0) (setq dizix '() diziy '()) (repeat say (setq ssobj (ssname ss c)) (setq pt1 (cdr (assoc 10 (entget ssobj)))) (setq pt2 (cdr (assoc 11 (entget ssobj)))) (if (= (car pt1) (car pt2)) (setq dizix (cons (car pt1) dizix)) ) (if (= (cadr pt1) (cadr pt2)) (setq diziy (cons (cadr pt1) diziy)) ) (setq c (1+ c)) ) (vl-sort dizix '>) (vl-sort diziy '>) (princ " >> X koordinatlari :") (princ dizix) (princ " >> Y koordinatlari :") (princ diziy) ) Quote
Steven P Posted February 2, 2023 Posted February 2, 2023 OK, thanks, did you have a problem that you needed solving with this code? Quote
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.