自己制作的一个生成目录的小插件，发源码

freeok · 发表于 2015-9-20 22:34:00

不错，先挣钱

海盗曹 · 发表于 2015-9-21 08:44:20

赞一下，好程序哦

死神去了 · 发表于 2015-9-21 09:59:36

幕墙同行

adc · 发表于 2015-9-21 13:01:45

; 错误: no function definition: GET_ATTVALUE

那个猎人 · 发表于 2015-9-21 13:46:08

adc 发表于 2015-9-21 13:01
; 错误: no function definition: GET_ATTVALUE

;;[功能]提取属性块指定属性值
(defun Get_AttValue(blockObj attTag / attblock attvalue)
(setq attBlock (vl-catch-all-apply '(lambda () (vlax-invoke blockObj 'GetAttributes ) )))
(if (not (vl-catch-all-error-p attBlock))
(setq attValue (cdr (assoc attTag (mapcar '(lambda (x) (cons (vla-get-TagString x)(vla-get-TextString x) ) ) attBlock )) ) )
)
attValue
)

adc · 发表于 2015-9-21 14:45:59

那个猎人发表于 2015-9-21 13:46
;;[功能]提取属性块指定属性值
(defun Get_AttValue(blockObj attTag / attblock attvalue)
(setq at ...

错误: no function definition: NTHA2B

笨笨熊007 · 发表于 2015-9-21 17:57:45

感觉bug还有啊，目录没有文字

那个猎人 · 发表于 2015-9-22 08:10:29

adc 发表于 2015-9-21 14:45
错误: no function definition: NTHA2B

(defun NthA2B(lst a b / i partlst)
(setq partLst (list) i a)
(repeat (1+ (- b a))
(if (nth i lst)
(progn
(setq partLst (append partLst (list (nth i lst))))
)
)
(setq i (1+ i))
)
partLst
)

5cllovely · 发表于 2015-9-22 12:45:27

是不是要图框做属性块啊

那个猎人 · 发表于 2015-9-22 15:48:22

5cllovely 发表于 2015-9-22 12:45
是不是要图框做属性块啊

是的,是这样的

账号		自动登录	找回密码
密码			注册

[源码] 自己制作的一个生成目录的小插件，发源码

评分