代做CAD小插件，需要的可以联系QQ2867769260,WX17731697510
本帖最后由 sgwsssxm 于 2020-10-20 13:04 编辑太复杂、太专业的可能不会做或做的慢，视具体需求而定。 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))))
)
昨天刚接到的新任务，要求改写论坛上别人分享的常用填充命令，加上在任意时候退出命令都恢复到命令开始前图层的功能，源文件是lisp，大概能看懂，理论上只要加上异常处理，恢复命令开始前状态就OK了，可惜lisp我不会，只能勉强根据语义判断功能，好在功能并不复杂，就用vba重写了一个，尽量还原了原程序的功能，并添加了退出命令时恢复现场的功能，并稍微改动了一下选择方式，原命令是以数字作为关键字选择不同的填充样式，我这里改成了字符串形式，感觉这样可能更好记一点，实际效果如下，请发布任务人看一下是不是想要的效果，是否有其他需要改进的地方，时间不早，我先睡了，有问题明天白天再联系。 哪个行业的？能按规定格式提供生成图纸所需的全部必要电子版数据吗？自动一键生成全套施工图图纸也许可行，但设计还是要人来做的，需要提供的必要数据肯定一个不能少，程序只能尽量减少工作人员不必要的重复劳动，并不能替代人，话说回来，如果程序真能达到那么高的智能程度，可以全凭自己完成全部工作，不需要额外的人为介入，那这样的程序直接卖给相关行业的公司领导比较好，反正是一键生成，没必要专门招聘一个点按钮的。 价格如何呢..... 烟盒迷唇 发表于 2020-8-14 08:10
价格如何呢.....
视具体需求而定，新人，目前只会vba，简单的你可以根据对你的帮助程度随意给个辛苦费；费时、费力、费脑细胞的可以商量，双方都能接受就行。 楼主不如不说，简单的都自己做了。“太复杂、太专业的可能不会做或做的慢，视具体需求而定。” 简单的又在论坛一直就有。 简单的我自己也会做啊，就是要做复杂的了 实话实说，自身能力确实有限，不敢说什么都会做，尤其涉及专业知识的，真的是隔行如隔山；还有能搜到的不一定100%能用，尤其是功能复杂的，一般要少量改动，会改的一般也会写，不会的搜到也没多大用，还要继续求助怎么改，也很费时间的；我觉得程序这东西真的是难者不会，会者不难，主要就在学习成本上，不打算自己深入学习，或者只是临时需要某功能的，相信还是有人愿意支付少量金钱来换取的，毕竟能节省自己不少时间和精力。 做个布局预览窗口，大概多少钱？ xinxirong 发表于 2020-8-14 12:31
做个布局预览窗口，大概多少钱？
怎么个预览法？CAD好像自带布局预览。 能做自动化绘图的插件不
页:
[1]
2