請問如何讓lisp中的選集透過座標重新排序呢?

由 **a6666262000** 2019-11-08, 17:41

以下是小弟正嘗試寫出來的新標註型態但因框選的時候選擇集內的排序沒辦法固定
導致最終cplo cple plo ple 4點會因為圖面修改而變動設為區域變數也沒辦法改善
例:
圖塊排列為 a b c d

如將圖塊移動為 a b d c
則設定得始末點cplo cple plo ple 會跟著 a d 位移造成佈線不正常

(defun LM:getdynprops (blk)
(mapcar '(lambda (x)
(cons (vla-get-propertyname x) (vlax-get x 'value))
)
(vlax-invoke blk 'getdynamicblockproperties)
)
)
(defun c:dpi (/)
(setq s 0)
(prompt "請框選同排管段且管為BLOCK單選成選集會異常")
(setq group (ssget '((0 . "insert"))))
(setq n (sslength group))
(while (< s n)
(setq name (ssname group s))
(setq dlist (LM:getdynprops (vlax-ename->vla-object name)))
(setq a (strcat "%%C " (rtos (cdr (assoc "A" dlist))) "A "))
(if (= s 0)
(setq dim a)
(setq dim (strcat dim a))
)
(setq ddi (cdr (assoc "直徑1" dlist)))
(if (= s 0)
(setq mind ddi)
(setq mind (min mind ddi))
)
(setq o (/ ddi 4))
(setq cp (cdr (assoc 10 (entget name))))
(setq cple (polar (polar cp 0 (* 3 o)) (* pi 0.5) (/ mind 4)))
(setq cplo (polar (polar cp pi (* 3 o)) (* pi 0.5) (/ mind 4)))
(command "line" cplo cple "")
(if (= s 0)
(progn (setq ple cple) (setq plo cplo))
)
(setq s (+ s 1))
)
(initget "L R")
(SETQ Q (GETKWORD "選擇方向OR"))
(command "line" cplo (getpoint) "")
(command "line" cple (getpoint) "")
(command "line" plo (getpoint) "")
(command "line" ple (getpoint) "")
)