明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1447|回复: 19

[源码] 求助,那位大师可以帮忙写个挂台沉台外挂

[复制链接]
发表于 2018-9-7 19:01 | 显示全部楼层 |阅读模式
求助,那位大师可以帮忙写个挂台沉台外挂
发表于 2018-9-20 17:36 | 显示全部楼层
等了半天没回复,我只是根据我能理解的部分写了一个差不多意思的,你自己看看吧,下班了

(defun c:cs ()
(vl-load-com)
(setq int (getint "\n 请输入半径:"))
(setq get_obj_pt (entsel "选择一边"))
(setq get_obj (car get_obj_pt))
(setq get_pt (cadr get_obj_pt))
(setq get_obj-vl (vlax-ename->vla-object get_obj))
(setq cr_pt(vlax-curve-getpointatparam get_obj-vl
(+ 0.5 (fix (vlax-curve-getparamatpoint get_obj-vl (vlax-curve-getclosestpointto get_obj-vl get_pt))))
)
)
(entmake (list '(0 . "CIRCLE") (cons 10 cr_pt) (cons 40 int)))
)

发表于 2018-9-20 17:41 | 显示全部楼层
还有一个简单的,两个是一样的
(defun c:cs2 ()
(vl-load-com)
(setq int (getint "\n 请输入半径:"))
(setq get_obj_pt (entsel "选择一边"))
(setq get_obj (car get_obj_pt))
(setq get_pt (cadr get_obj_pt))
(setq cr_pt (osnap get_pt "_mid"))
(entmake (list '(0 . "CIRCLE") (cons 10 cr_pt) (cons 40 int)))
)

点评

非常给力!太需要了,谢谢!能再加上填充更完美  发表于 2023-7-10 19:20
发表于 2018-9-21 04:27 | 显示全部楼层

院长的代码总是这么SAO

我还没看源码
我说说我的编程思路(实现想法)

点选多线段的某一段
IF多线段的角度
IF鼠标的点击位置(是否在多线段内或外)
找出生成的位置关系
有了以上信息
子函数生成"腰形"图形

回答完毕
发表于 2018-9-18 02:13 | 显示全部楼层
这表达无从下手啊!!!!!!!!!!!!!!!!!!!!!
 楼主| 发表于 2018-9-20 13:38 | 显示全部楼层
ysq101 发表于 2018-9-18 02:13
这表达无从下手啊!!!!!!!!!!!!!!!!!!!!!

你好,可以写成如附件这样吗?谢谢

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2018-9-20 13:46 | 显示全部楼层
你可以描述的再详细一点,
 楼主| 发表于 2018-9-20 13:53 | 显示全部楼层
被承包的东子 发表于 2018-9-20 13:46
你可以描述的再详细一点,

你好,如附件。谢谢!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2018-9-20 13:59 | 显示全部楼层
你把cad图 发过来
 楼主| 发表于 2018-9-20 14:26 | 显示全部楼层

你好,大师,请查收!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2018-9-20 15:58 | 显示全部楼层
sanji14 发表于 2018-9-20 14:26
你好,大师,请查收!

要不你还是 把qq留下,我加你qq聊吧
 楼主| 发表于 2018-9-20 16:31 | 显示全部楼层
被承包的东子 发表于 2018-9-20 15:58
要不你还是 把qq留下,我加你qq聊吧

加个微信ghost46
发表于 2018-9-20 17:22 | 显示全部楼层

到现在 没同意加好友嘛,
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 05:06 , Processed in 0.199464 second(s), 32 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表