AutoCAD顧問
還沒有註冊嗎...即日起免費註冊,所有最完整的AutoCAD討論、教學及資源都在論壇裡喔~
請問如何讓lisp中的選集透過座標重新排序呢? Oooo-110 請問如何讓lisp中的選集透過座標重新排序呢? Oo-2-110 請問如何讓lisp中的選集透過座標重新排序呢? Ia15010 請問如何讓lisp中的選集透過座標重新排序呢? Ziao1510 請問如何讓lisp中的選集透過座標重新排序呢? BPl3tjj 請問如何讓lisp中的選集透過座標重新排序呢? Uos15010 請問如何讓lisp中的選集透過座標重新排序呢? Uos15011

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

向下

請問如何讓lisp中的選集透過座標重新排序呢? Empty 請問如何讓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) "")
)
a6666262000
a6666262000
一般會員
一般會員

文章總數 : 4
年齡 : 27
來自 : 台南
職業 : 機械,空間套圖
愛好 : 電影、電玩、
個性 : 喜好研究
使用年資 : 10
使用版本 : 2014-2018
經驗值 : 39
威望值 : 6
注冊日期 : 2019-11-07
男 雙魚座 猴

回頂端 向下

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

發表 由 a6666262000 于 2019-11-08, 17:43

最後四項為(command)是我測試點位移用的無須理會
a6666262000
a6666262000
一般會員
一般會員

文章總數 : 4
年齡 : 27
來自 : 台南
職業 : 機械,空間套圖
愛好 : 電影、電玩、
個性 : 喜好研究
使用年資 : 10
使用版本 : 2014-2018
經驗值 : 39
威望值 : 6
注冊日期 : 2019-11-07
男 雙魚座 猴

回頂端 向下

回頂端


 
這個論壇的權限:
無法 在這個版面回復文章
請問如何讓lisp中的選集透過座標重新排序呢? Uos15011 請問如何讓lisp中的選集透過座標重新排序呢? Uos15010 請問如何讓lisp中的選集透過座標重新排序呢? BPl3tjj 請問如何讓lisp中的選集透過座標重新排序呢? Ziao1510 請問如何讓lisp中的選集透過座標重新排序呢? Ia15010 請問如何讓lisp中的選集透過座標重新排序呢? Oo-2-110 請問如何讓lisp中的選集透過座標重新排序呢? Oooo-110