kaimiyou
发表于 2016-10-16 11:23:12
非常感谢楼主的分享，学习学习
amen1981628
发表于 2016-10-17 14:06:36
支持支持
fangmin723
发表于 2017-9-7 20:26:16
黄大师，这个福建下载失效了，能否重新上传一下！
horihons
发表于 2017-9-26 13:11:18
怎么下载不了了？？
pengfei2010
发表于 2017-10-5 15:58:15
回帖是一种美德！感谢楼主的无私分享 谢谢
qijun0818
发表于 2017-10-27 16:39:25
谢谢分享~~~~
song宋_74729
发表于 2017-12-3 14:07:47
感谢楼主分享..........
lqynise
发表于 2017-12-24 00:15:16
下载不聊了
张大锤
发表于 2018-7-10 16:51:18
感谢 学习了 开始进军 子函数
wybjy
发表于 2018-7-10 22:57:14
(defun c:dyfillet()
(setq p1x 0)
(setq p1y 0)
(setq p2x 0)
(setq p2y 100)
(setq p3x 100)
(setq p3y 100)
(setq p4x 0)
(setq p4y 50)
(setq p5x 50)
(setq p5y 100)
(setq r 20)
(setq p1 ( list p1xp1y ))
(setq p2 ( list p2xp2y ))
(setq p3 ( list p3xp3y ))
(setq p4 ( list p4xp4y ))
(setq p5 ( list p5xp5y ))
(command"pline" p1 p2 p3 )
(command "" )
(command"fillet" "R" "" r p4 p5)
(command "" )
)
程序运行到下面这行就报错，
(command"fillet" "R" "" r p4 p5)
发现程序运行到r 就报错了，p4和p5的目的想实现选取对象操作，看来这样是不行的。在CAD命令行输入直线上的点坐标是可以选择直线的，不知道在LISP里面怎么实现这样的操作。请大侠指点一下