画一个圆,效果和CAD自带的 "circle"命令一样,有橡皮筋,能实时预览,如果能实现,那么就能把程序扩展
为画其他非CAD自带图形,如五角星等
像command这种函数只能调用自带命令,不能扩展成其他图形,grread好像又不能捕捉和输入数值,
还有其他方法既能输入数值,有橡皮筋效果,还能实时预览吗?是用反应器还是有其他好的方法?

(defun C:cc()
(command "circle")
)




网友答: 本帖最后由 你有种再说一遍 于 2025-8-29 18:46 编辑

这种操作叫仿命令,用lisp确实有点辛苦...但也基本上是c#cpp必修课了.
我好像就是做着做着发现lisp没有选择集关键字回调然后放弃了.
困扰了我好久...


网友答: 本帖最后由 guosheyang 于 2025-8-30 23:47 编辑

   本社区就有很多 grread函数的应用实例   grread配套的捕捉函数也有G版的 l angjs   llsheng_73等大佬的, 首先要写画五角星代码,矢量线画和非矢量线画两种类型, 研究并组合下就可以写出来这个动态画五角星的功能了  

网友答:
kozmosovia 发表于 2025-8-29 12:43
cad画圆,只需要c命令,自己再改写一个,命令名字大概率长过C,这轮子有啥造的必要?
要预览或其他可视化 ...

C命令只是一个例子,假如画个五角星呢,和C命令画圆一样,可实时预览,可点选距离,和输入尺寸,这个算是起到抛转引玉的效果吧

网友答: 可能是我才疏学浅,弱弱问一句,橡皮筋效果是什么效果,有案例吗?

网友答: 本帖最后由 专用车研发 于 2025-8-29 10:51 编辑
qazxswk 发表于 2025-8-29 10:45
可能是我才疏学浅,弱弱问一句,橡皮筋效果是什么效果,有案例吗?

比如用CAD命令画圆,点击圆心之后,从圆心到鼠标出现的那一条动态虚线,

网友答: .net里面的就是jig可以实现你说的,lisp里面不清楚,可以根据这个查查

网友答: 没有看懂需求 蹲一个结果

网友答: (setq pt1 (getpoint))
  (setq ccc (getdist pt1))
(command "circle" pt1 ccc)

网友答: 本帖最后由 fangmin723 于 2025-8-29 13:33 编辑

(command "circle" (setq pt1 (getpoint "\n指定圆心:")) (getdist pt1 "\n指定半径:"))


(command "circle" (getpoint "\n指定圆心:") pause)


网友答: http://bbs.mjtd.com/forum.php?mo ... mp;highlight=GRREAD
Gu版的带捕捉grread,可以参考下,挺好用的,不过图元多的情况下会有点卡

网友答: 你说的这个需要用到Grread函数

网友答: 本帖最后由 kozmosovia 于 2025-8-29 12:45 编辑

cad画圆,只需要c命令,自己再改写一个,命令名字大概率长过C,这轮子有啥造的必要?
要预览或其他可视化效果,可以grread+grdraw实现
  • 上一篇:lsp写的插件 ,标注1W个10毫米X10毫米的矩形 用时
  • 下一篇:没有了