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

被承包的东子

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

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

sanji14

被承包的东子 发表于 2018-9-20 17:36
等了半天没回复，我只是根据我能理解的部分写了一个差不多意思的，你自己看看吧，下班了

(defun c:cs () ...

非常感谢。

xyp1964

ysq101

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

院长的代码总是这么SAO

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

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

回答完毕

sanji14

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

你好，感谢大师！

sanji14

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

你好，加载后用不了，请帮忙看看，谢谢

错误: no function definition: UDIST

前生

sanji14 发表于 2018-10-16 13:43
你好，加载后用不了，请帮忙看看，谢谢

错误: no function definition: UDIST

他那个要他的什么API的。你懂得

sanji14

你好，意思要加载函数才能用吗？要怎样操作？