iCAx开思网

标题: 帮忙做个lsp [打印本页]

作者: QiuXu 时间: 2006-10-17 22:06
标题: 帮忙做个lsp
与三条线相切画一个圆。哪个高手帮帮忙

作者: Andyes 时间: 2006-10-18 13:50
Command: circle
Specify center point for circle or [3P/2P/Ttr (tan tan radius)]: 3p
Specify first point on circle: tan
to
Specify second point on circle: tan
to
Specify third point on circle: tan
to

作者: QiuXu 时间: 2006-10-18 18:44
没人理会？

作者: ffj199534 时间: 2006-10-20 08:57
CAD本身有这个功能
在draw/circle/tan,tan,tan
这个菜鸟问题下次要慎重呀!!

作者: xubojian 时间: 2006-10-20 09:17
(DEFUN C:ccc()
  (SETQ OS_OLD (GETVAR "OSMODE"))
  (COMMAND "OSMODE" "256" "")
  (COMMAND "CIRCLE" "_3P" PAUSE PAUSE PAUSE)
  (COMMAND "OSMODE" OS_OLD)
  (princ)
  )

作者: QiuXu 时间: 2006-10-20 22:29

原帖由 xubojian 于 2006-10-20 09:17 发表
(DEFUN C:ccc()
  (SETQ OS_OLD (GETVAR "OSMODE"))
  (COMMAND "OSMODE" "256" "")
  (COMMAND "CIRCLE" "_3P" PAUSE PAUSE PAUSE)
  (COMMAN ...

太感谢，真是好人。

作者: QiuXu 时间: 2006-10-20 22:34

原帖由 ffj199534 于 2006-10-20 08:57 发表
CAD本身有这个功能
在draw/circle/tan,tan,tan
这个菜鸟问题下次要慎重呀!!

你才菜鸟，你连LISP是什么都不懂，在乱叫。它本身就是调用CAD的命令，目的是为了方便快捷。

欢迎光临 iCAx开思网 (https://www.icax.net/)