求助，那位大师可以帮忙写个挂台沉台外挂

sanji14

求助，那位大师可以帮忙写个挂台沉台外挂

被承包的东子

等了半天没回复，我只是根据我能理解的部分写了一个差不多意思的，你自己看看吧，下班了

(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)))
)

被承包的东子

还有一个简单的，两个是一样的
(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)))
)

ysq101

xyp1964 发表于 2018-9-20 20:41

院长的代码总是这么SAO

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

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

回答完毕

ysq101

这表达无从下手啊!!!!!!!!!!!!!!!!!!!!!

sanji14

ysq101 发表于 2018-9-18 02:13
这表达无从下手啊!!!!!!!!!!!!!!!!!!!!!

你好，可以写成如附件这样吗？谢谢

被承包的东子

你可以描述的再详细一点，

sanji14

被承包的东子 发表于 2018-9-20 13:46
你可以描述的再详细一点，

你好，如附件。谢谢！

被承包的东子

你把cad图 发过来

sanji14

被承包的东子 发表于 2018-9-20 13:59
你把cad图 发过来

你好，大师，请查收！

被承包的东子

sanji14 发表于 2018-9-20 14:26
你好，大师，请查收！

要不你还是 把qq留下，我加你qq聊吧

sanji14

被承包的东子 发表于 2018-9-20 15:58
要不你还是 把qq留下，我加你qq聊吧

加个微信ghost46

被承包的东子

sanji14 发表于 2018-9-20 16:31
加个微信ghost46

到现在 没同意加好友嘛，