按顺序编号并插入

MCarmoGomes · 发表于 2022-7-6 10:20:55

大家好，
修改此例程以搜索所有打开的图形中的前缀，而不是仅搜索当前图形，是否可以在正确的方向上获得一些帮助或推动？
我一直在尝试以下代码。

（defun c：示例（/OpenDwgs eachDwg）
（setq OpenDwgs（vla get documents（vlax get acad object）））
（每个HDWG OpenDWG的vlax
（普林斯“Count”）
（普林斯）
) ;_ 结束vlax for
) ;_ 结束defun

阅读相关帖子我相信这只会有效地计算打开的图纸，而不会使它们在全选中处于活动状态。
感谢您的帮助。
当做
约翰

fixo · 发表于 2022-7-6 10:22:45

MCarmoGomes · 发表于 2022-7-6 10:25:57

Yes, it's what i want.
Thank you very much again

Johnc · 发表于 2022-7-6 10:31:24

Hello everyone,
I really like this lisp code and use it all the time for our ventilation parts , I just wondered if one of you clever people could help me tweak it alittle.
After selecting the Prefix I would like the code to search the drawing for all blocks called “ID” check the prefix selected “for ensample A” and find the last tag value used for example A12” and prompt the user to use the next value “A13” or enter there own number to start from
I currently have to do this manually
This is what I have so far
(if (ssget "x" '((2 . "ID")))
(progn
(setq ent (ssname (ssget "x" '((2 . "ID"))) 0))

(while (not (eq '"REV" (cdr (assoc 2 (setq attlst (entget ent))))))
(setq ent (entnext ent))
)

(if (= 1 (setq rev# (+ 1 (ascii (cdr (assoc 1 attlst))))))
(setq rev# 65)
)
My block is "ID" and theattribute tag name is "REV"

fixo · 发表于 2022-7-6 10:33:06

See if this works for you

[code](defun getlastattrib (blockname tagname prefix / atstr lng num osset revlist) (or (vl-load-com)) (setq lng (1+ (strlen prefix))num nil) (if (setq osset (ssget "X" (list (cons 0 "INSERT") (cons 2 blockname) (cons 66 1))) ) (progn (foreach blkobj (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex osset))))(foreach att (vlax-invoke blkobj 'getattributes) (if (eq (vlax-get att 'tagstring) tagname) (setq atstr (vlax-get att 'textstring))))(if (wcmatch atstr (strcat prefix "*")) (setq revlist (cons (substr atstr lng) revlist)))) ) ) (setq num (car (vl-sort revlist (function (lambda (a b) (> (atof a) (atof b))))))) num );Call this function inside the main programm like this:(setq lastnum (getlastattrib "ID" "REV" "A"));

Johnc · 发表于 2022-7-6 10:36:39

That’s great!
Works fine
Much better than I was expecting really like the window message
Thanks again
John

fixo · 发表于 2022-7-6 10:39:19

You're welcome
Cheers

Johnc · 发表于 2022-7-6 10:43:06

Hi all,
Would it be possible to have a little help or nudge in the right direction amending this routine to search all open drawings for the prefix rather than only the current drawing?
I’ve been experimenting with the following code.

(defun c:sample ( / OpenDwgs eachDwg)
(setq OpenDwgs (vla-get-documents (vlax-get-acad-object)))
(vlax-for eachDwg OpenDwgs
(princ "Count")
(princ)
) ;_ end vlax-for
) ;_ end defun

Reading associated posts I believe this will only effectively count the open drawings not make them active for the select all.
Any help gratefully received.
Regards
John

[编程交流] 按顺序编号并插入

发表回复

精选推荐