캐드 분류
이 리습 해독해주실분있나요?
컨텐츠 정보
- 179 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
리습을 제가 원하는 방식으로 변경해보고 싶은데 봐도봐도 모르겠어요
리습내용은 이러합니다.
;;——————–=={ Text Count }==———————-;;
;; ;;
;; Counts the number of occurrences of each string in a ;;
;; selection and produces a report in an ACAD Table object ;;
;;————————————————————;;
;; Author: Lee Mac, Copyright ?2011 – http://www.lee-mac.com ;;
;;————————————————————;;
;; Version 1.0 – 07.11.2010 ;;
;; First Release. ;;
;;————————————————————;;
;; Version 1.1 – 05.08.2011 ;;
;; Added Dimensions Override Text & MLeaders ;;
;; Updated 'AddTable' to account for Annotative Text Styles. ;;
;;————————————————————;;
(defun c:tct
( /
*error*
_StartUndo
_EndUndo
_Assoc++
_SumAttributes
_GetTextString
_ApplyFooToSelSet
acdoc
acspc
alist
data
pt
)
(vl-load-com)
;;————————————————————;;
(defun *error* ( msg )
(if acdoc (_EndUndo acdoc))
(if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
(princ (strcat "n** Error: " msg " **"))
)
(princ)
)
;;————————————————————;;
(defun _StartUndo ( doc ) (_EndUndo doc)
(vla-StartUndoMark doc)
)
;;————————————————————;;
(defun _EndUndo ( doc )
(if (= 8 (logand 8 (getvar 'UNDOCTL)))
(vla-EndUndoMark doc)
)
)
;;————————————————————;;
(defun _Assoc++ ( key alist )
(
(lambda ( pair )
(if pair
(subst (list key (1+ (cadr pair))) pair alist)
(cons (list key 1) alist)
)
)
(assoc key alist)
)
)
;;————————————————————;;
(defun _SumAttributes ( entity alist )
(while
(not
(eq "SEQEND"
(cdr
(assoc 0
(entget
(setq entity (entnext entity))
)
)
)
)
)
(setq alist (_Assoc++ (_GetTextString entity) alist))
)
)
;;————————————————————;;
(defun _GetTextString ( entity )
(
(lambda ( string )
(mapcar
(function
(lambda ( pair )
(if (member (car pair) '(1 3))
(setq string (strcat string (cdr pair)))
)
)
)
(entget entity)
)
string
)
""
)
)
;;————————————————————;;
(defun _ApplyFooToSelSet ( foo ss / i )
(if ss (repeat (setq i (sslength ss)) (foo (ssname ss (setq i (1- i))))))
)
;;————————————————————;;
(setq acdoc (vla-get-activedocument (vlax-get-acad-object))
acspc (vlax-get-property acdoc (if (= 1 (getvar 'CVPORT)) 'Paperspace 'Modelspace))
)
(cond
( (= 4 (logand 4 (cdr (assoc 70 (tblsearch "LAYER" (getvar 'CLAYER))))))
(princ "nCurrent Layer Locked.")
)
( (not (vlax-method-applicable-p acspc 'AddTable))
(princ "nTable Object not Available in this version.")
)
( (and
(setq data
(_ApplyFooToSelSet
(lambda ( entity / typ )
(setq alist
(cond
( (eq "INSERT" (setq typ (cdr (assoc 0 (entget entity)))))
(_SumAttributes entity alist)
)
( (eq "MULTILEADER" typ)
(_Assoc++ (cdr (assoc 304 (entget entity))) alist)
)
( (wcmatch typ "*DIMENSION")
(_Assoc++ (cdr (assoc 1 (entget entity))) alist)
)
( (_Assoc++ (_GetTextString entity) alist) )
)
)
)
(ssget
'(
(-4 . "
(0 . "TEXT,MTEXT,MULTILEADER")
(-4 . "
(0 . "INSERT")
(66 . 1)
(-4 . "AND>")
(-4 . "
(0 . "*DIMENSION")
(1 . "*?*")
(-4 . "AND>")
(-4 . "OR>")
)
)
)
)
(setq pt (getpoint "nSpecify Point for Table: "))
)
(_StartUndo acdoc)
(LM:AddTable acspc (trans pt 1 0) "String Count"
(cons (list "String" "Instances")
(vl-sort
(mapcar
(function
(lambda ( x ) (list (car x) (itoa (cadr x))))
)
data
)
(function (lambda ( a b ) (< (car a) (car b))))
)
)
)
(_EndUndo acdoc)
)
)
(princ)
)
;;———————=={ Add Table }==———————-;;
;; ;;
;; Creates a VLA Table Object at the specified point, ;;
;; populated with title and data ;;
;;————————————————————;;
;; Author: Lee Mac, Copyright ?2011 – http://www.lee-mac.com ;;
;;————————————————————;;
;; Arguments: ;;
;; space – VLA Block Object ;;
;; pt – Insertion Point for Table ;;
;; title – Table title ;;
;; data – List of data to populate the table ;;
;;————————————————————;;
;; Returns: VLA Table Object ;;
;;————————————————————;;
(defun LM:AddTable ( space pt title data / _isAnnotative textheight style )
(defun _isAnnotative ( style / object annotx )
(and
(setq object (tblobjname "STYLE" style))
(setq annotx (cadr (assoc -3 (entget object '("AcadAnnotative")))))
(= 1 (cdr (assoc 1070 (reverse annotx))))
)
)
(
(lambda ( table ) (vla-put-StyleName table (getvar 'CTABLESTYLE)) (vla-SetText table 0 0 title)
(
(lambda ( row )
(mapcar
(function
(lambda ( rowitem ) (setq row (1+ row))
(
(lambda ( column )
(mapcar
(function
(lambda ( item )
(vla-SetText table row (setq column (1+ column)) item)
)
)
rowitem
)
)
-1
)
)
)
data
)
)
0
)
table
)
(
(lambda ( textheight )
(vla-AddTable space (vlax-3D-point pt) (1+ (length data)) (length (car data)) textheight
(* 0.8 textheight
(apply 'max
(cons (/ (strlen title) (length (car data)))
(mapcar 'strlen (apply 'append data))
)
)
)
)
)
(* 2.
(/
(setq textheight
(vla-gettextheight
(setq style
(vla-item
(vla-item
(vla-get-dictionaries (vla-get-document space)) "ACAD_TABLESTYLE"
)
(getvar 'CTABLESTYLE)
)
)
acdatarow
)
)
(if (_isAnnotative (vla-gettextstyle style acdatarow))
(cond ( (getvar 'CANNOSCALEVALUE) ) ( 1.0 ))
1.0
)
)
)
)
)
)
;;————————————————————;;
;; End of File ;;
;;————————————————————;;
관련자료
댓글 2
상큼메론90님의 댓글
.gif)
영국인 Lee Mac 씨 리습이네요~ 이분은 리습 언어의 최고수 입니다.
질문 내용이—> 리습을 제가 원하는 방식으로 변경해보고 싶은데 봐도봐도 모르겠어요
리습내용은 이러합니다.
해독을 부탁하셨는데, 위 리습은 해독 수준이 아니라, 강의 수준입니다.
무엇을 원하는 방식으로 변경하고 싶은지 모르겠으나, 리맥씨의 리습을 원하는 방식으로 변경하자면, 최소 5년 정도는 열심히 꼬박 리습을 배워야 할 거 같은데요~~~ (물론 아주 간단한 다른 리습들은 1년 정도면 배우면, 약간의 수정 편집이 가능하긴 합니다만.)
리맥씨 리습은, 차라리 다른 고수분들께, 변경하고자 하는 것을 부탁하는게 더 좋을것 같다는 생각이 듭니다.
.
