常用函数.lsp

kaimiyou · 发表于 2016-10-16 11:23

非常感谢楼主的分享，学习学习

amen1981628 · 发表于 2016-10-17 14:06

支持支持

fangmin723 · 发表于 2017-9-7 20:26

黄大师，这个福建下载失效了，能否重新上传一下！

horihons · 发表于 2017-9-26 13:11

怎么下载不了了？？

pengfei2010 · 发表于 2017-10-5 15:58

回帖是一种美德！感谢楼主的无私分享谢谢

qijun0818 · 发表于 2017-10-27 16:39

谢谢分享~~~~

song宋_74729 · 发表于 2017-12-3 14:07

感谢楼主分享..........

lqynise · 发表于 2017-12-24 00:15

下载不聊了

张大锤 · 发表于 2018-7-10 16:51

感谢学习了开始进军子函数

wybjy · 发表于 2018-7-10 22:57

(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 p1x  p1y ))
(setq p2 ( list p2x  p2y ))
(setq p3 ( list p3x  p3y ))
(setq p4 ( list p4x  p4y ))
(setq p5 ( list p5x  p5y ))

(command  "pline" p1 p2 p3 )
(command "" )

(command  "fillet" "R" "" r    p4 p5  )
(command "" )

)
程序运行到下面这行就报错，
(command  "fillet" "R" "" r p4 p5  )
发现程序运行到  r 就报错了，p4和p5的目的想实现选取对象操作，看来这样是不行的。在CAD命令行输入直线上的点坐标是可以选择直线的，不知道在LISP里面怎么实现这样的操作。请大侠指点一下

账号		自动登录	找回密码
密码			注册

[函数] 常用函数.lsp

点评