[求助]：如何用Lisp 程序实现定距等分

ynwhp · 发表于 2006-12-12 22:48:42

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教各位高手
如何用Lisp 程序通过命令行实现定距等分、定数等分.
谢谢

ynwhp · 发表于 2006-12-13 12:21:37

说了半天,没人给个实例,今早试出了一个,等分多段线的,只用点来等分,需要插入块的就先定义块,再在"SS"前加入"B"  块名就行
大家来讨论下各种方法,定数等分类似.
代码:
(defun c:Djdf (/ ss zg)
  (if (setq ss (ssget '((0 . "*POLYLINE")))) ;选择多段线
(progn
(setq zg (getreal "指定等分距离:<20>"))
(if (= zg nil) (setq zg 20))
   (command "measure" ss zg)
)
  )
  (princ)
)

phoenixdjq · 发表于 2006-12-13 08:38:33

cad的measure就有这个功能
但如果你的等分线段不够等分,就会有余数,例如要把98mm分成10mm,那最后要有8mm的余量
至于细节的东西,你看看帮助吧
你也可以在论坛中搜索一下,我以前好像见过这样的程序

zml84 · 发表于 2006-12-13 10:08:34

按照CAD命令行响应顺序依次填写COMMAND函数参数即可。

xiaoliu626 · 发表于 2006-12-13 10:23:42

不错的cad设计汇总，感觉很棒，支持

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何用Lisp 程序实现定距等分

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子