[心得] AutoLISP --- 聚合線反轉方向
因為AutoCAD沒有反轉聚合線的指令,故為經典Lisp新手的入門習題,以下是我的解答：
===============================================================
;_Reverse a polyline extreme simply, written by Suny 2009.06.01
(DEFUN c:revpl(/ ent head rvpl aLs aIt nls n cp np n40 n41 n42)
(SETQ ent(ENTGET(CAR(ENTSEL"Pick a polyline to reverse:")))
head(REVERSE(MEMBER(ASSOC 39 ent)(REVERSE ent)))
rvpl '() aLs '() n 0 )
(FOREACH aIt (MEMBER(ASSOC 10 ent)ent)
(SETQ aLs(APPEND aLs(LIST aIt))n(1+ n))
(IF(=(REM n 4)0)(SETQ rvpl(APPEND rvpl(list aLs))aLs'())))
(SETQ rvpl(REVERSE rvpl)
rvpl(append rvpl(list(CONS(CAR(LAST rvpl))(cdar rvpl))))
nls'() n 0 )
(WHILE(<(1+ n)(LENGTH rvpl))
(SETQ cp(NTH n rvpl)
np(NTH(1+ n)rvpl)
n40(CONS 40( CDR(ASSOC 41 np)) )
n41(CONS 41( CDR(ASSOC 40 np)) )
n42(CONS 42(-(CDR(ASSOC 42 np))))
nls(APPEND nls(LIST(CONS(CAR cp)(list n40 n41 n42))))
n(1+ n)) )
(ENTMOD(APPEND head(APPLY'APPEND nls)))(PRINC) );_eo revpl
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.169.202.80
推
06/04 10:17, , 1F
06/04 10:17, 1F
→
06/04 22:44, , 2F
06/04 22:44, 2F
Cad_Cae 近期熱門文章
PTT數位生活區 即時熱門文章
11
12