社区 › AutoLISP/Visual LISP 编程技术 › 恭贺新春-不一样的型钢插入

hf423 发表于 2012-6-23 21:10:48

xingyun300 发表于 2012-6-23 17:02 static/image/common/back.gif
怎么修改呢，晕了！不是源代码！！！！！

(setvar "peditaccept" 0) 这句怎么加到程序里呢？？ ...

这是我的，给你参考：
(defun c:mycad_315 (/ oldpedita)
(if (null c:xinggangcr)
    (progn (load "型材插入.vlx")
            (setq xinggangcr c:css)
            (defun c:xinggangcr ()(xinggangcr))
            (vl-acad-undefun 'c:css)))
            (setq oldpedita (getvar "peditaccept"))
            (setvar "peditaccept" 0)
            (c:xinggangcr)
            (setvar "peditaccept" oldpedita)
(princ))

xingyun300 发表于 2012-6-26 10:32:19

谢谢，有你这个程序，我把这两个整到一起用算了！！！

xingyun300 发表于 2012-6-26 10:32:55

hf423 发表于 2012-6-23 21:10 static/image/common/back.gif
这是我的，给你参考：
(defun c:mycad_315 (/ oldpedita)
(if (null c:xinggangcr)


谢谢，有你这个程序，我把这两个整到一起用算了！！！

ynhrb 发表于 2012-8-5 09:51:00

附件怎么下载不了啦？

守仁格竹GM 发表于 2012-11-16 15:30:21

有源码就好了

yangist 发表于 2013-6-22 16:36:54

我怎么看不到下载链接~~~~~~~~~~~~~~~~

l18c19 发表于 2013-9-2 20:46:09

程序在哪里，怎么看不见呢？

mjz521yy 发表于 2014-2-28 12:51:43

1个是自己做的动态块，1个是机械版CAD自带的图库

zhqdh 发表于 2014-2-28 19:34:25

下载链接在哪里？

zwf100 发表于 2014-2-28 23:25:12

高手，向楼主学习

查看完整版本: 恭贺新春-不一样的型钢插入