代做CAD小插件，需要的可以联系QQ2867769260,WX17731697510

sgwsssxm

qmqyqj 发表于 2020-8-15 11:26
能做自动化绘图的插件不

太抽象的很难说会不会的，最好具体点，你能提供什么样的输入数据，要求怎么样的成图效果，电脑毕竟不是人，人觉得很简单的可能电脑觉得很难，人觉得很难的可能电脑觉得很简单，没具体环境不好说的。

ntwison

楼主的要求写的很实在啊

sgwsssxm

昨天刚接到的新任务，要求改写论坛上别人分享的常用填充命令，加上在任意时候退出命令都恢复到命令开始前图层的功能，源文件是lisp，大概能看懂，理论上只要加上异常处理，恢复命令开始前状态就OK了，可惜lisp我不会，只能勉强根据语义判断功能，好在功能并不复杂，就用vba重写了一个，尽量还原了原程序的功能，并添加了退出命令时恢复现场的功能，并稍微改动了一下选择方式，原命令是以数字作为关键字选择不同的填充样式，我这里改成了字符串形式，感觉这样可能更好记一点，实际效果如下，请发布任务人看一下是不是想要的效果，是否有其他需要改进的地方，时间不早，我先睡了，有问题明天白天再联系。

qmqyqj

sgwsssxm 发表于 2020-8-15 23:25
太抽象的很难说会不会的，最好具体点，你能提供什么样的输入数据，要求怎么样的成图效果，电脑毕竟不是人 ...

就是那种一键生成全套施工图图纸，不需要人画的那种

mikewolf2k

qmqyqj 发表于 2020-8-17 08:56
就是那种一键生成全套施工图图纸，不需要人画的那种

有啊,就是你们领导现在用的那种.

sgwsssxm

哪个行业的？能按规定格式提供生成图纸所需的全部必要电子版数据吗？自动一键生成全套施工图图纸也许可行，但设计还是要人来做的，需要提供的必要数据肯定一个不能少，程序只能尽量减少工作人员不必要的重复劳动，并不能替代人，话说回来，如果程序真能达到那么高的智能程度，可以全凭自己完成全部工作，不需要额外的人为介入，那这样的程序直接卖给相关行业的公司领导比较好，反正是一键生成，没必要专门招聘一个点按钮的。

zhangcan0515

楼主的要求写的很实在啊

GDFGFGF

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))))
)

frompla

VBA能操作DST吗？