能做自动化绘图的插件不
太抽象的很难说会不会的，最好具体点，你能提供什么样的输入数据，要求怎么样的成图效果，电脑毕竟不是人，人觉得很简单的可能电脑觉得很难，人觉得很难的可能电脑觉得很简单，没具体环境不好说的。 本帖最后由 ntwison 于 2020-8-19 02:21 编辑
楼主的要求写的很实在啊 昨天刚接到的新任务，要求改写论坛上别人分享的常用填充命令，加上在任意时候退出命令都恢复到命令开始前图层的功能，源文件是lisp，大概能看懂，理论上只要加上异常处理，恢复命令开始前状态就OK了，可惜lisp我不会，只能勉强根据语义判断功能，好在功能并不复杂，就用vba重写了一个，尽量还原了原程序的功能，并添加了退出命令时恢复现场的功能，并稍微改动了一下选择方式，原命令是以数字作为关键字选择不同的填充样式，我这里改成了字符串形式，感觉这样可能更好记一点，实际效果如下，请发布任务人看一下是不是想要的效果，是否有其他需要改进的地方，时间不早，我先睡了，有问题明天白天再联系。 sgwsssxm 发表于 2020-8-15 23:25
太抽象的很难说会不会的，最好具体点，你能提供什么样的输入数据，要求怎么样的成图效果，电脑毕竟不是人 ...
就是那种一键生成全套施工图图纸，不需要人画的那种 qmqyqj 发表于 2020-8-17 08:56
就是那种一键生成全套施工图图纸，不需要人画的那种
有啊,就是你们领导现在用的那种. 哪个行业的？能按规定格式提供生成图纸所需的全部必要电子版数据吗？自动一键生成全套施工图图纸也许可行，但设计还是要人来做的，需要提供的必要数据肯定一个不能少，程序只能尽量减少工作人员不必要的重复劳动，并不能替代人，话说回来，如果程序真能达到那么高的智能程度，可以全凭自己完成全部工作，不需要额外的人为介入，那这样的程序直接卖给相关行业的公司领导比较好，反正是一键生成，没必要专门招聘一个点按钮的。 楼主的要求写的很实在啊 sgwsssxm 发表于 2020-8-17 10:14
哪个行业的？能按规定格式提供生成图纸所需的全部必要电子版数据吗？自动一键生成全套施工图图纸也许可行， ...
你看能不能以这个改下了？
(defun c:plfx (/ EN A B C D ENT LST LST1 TMP)
(setq en (car (entsel "选择多段线：")))
(setq ENT (entget EN))
(setq tmp ent)
(setq lst nil)
(while (setq tmp (member (assoc 10 tmp) tmp))
(setq a (assoc 10 tmp)
b (cons 40 (cdr (assoc 41 tmp)))
c (cons 41 (cdr (assoc 40 tmp)))
d (cons 42 (- (cdr (assoc 42 tmp))))
LST (append (list b c d a) LST)
)
(setq tmp (cddddr tmp))
)
(repeat 3 (setq LST (append (cdr lst) (list (car lst)))))
(setq lst1 (reverse (cdr (member (assoc 10 ent) (reverse ent)))))
(entmod (append lst1 lst '((210 0 0 1))))
)
VBA能操作DST吗？
页:
1
[2]