[LISP]请问如何用lisp做出图上的效果

yangkang · 发表于 2006-8-16 23:48

请问怎么等分曲线,并且可以自动剪切曲线,

xhq1954425 · 发表于 2006-11-19 19:28

本帖最后由作者于 2006-11-19 20:04:30 编辑

不是个太好解决的问题？

tcsl9621 · 发表于 2006-11-19 23:15

CAD下就有这个命令。

xhq1954425 · 发表于 2006-11-20 08:05

tcsl9621发表于2006-11-19 23:15:00CAD下就有这个命令。

比如要把曲线等分100份，再分别从各等分点打断，直接用CAD做就显得太慢了，能否编程解决呢？请高手指教，谢谢！

oyxx1023 · 发表于 2006-11-20 13:13

请参考VLAX中关于曲线的部分函数。你的要求很容易实现的。

龙龙仔 · 发表于 2006-11-20 15:55

本帖最后由作者于 2006-11-20 17:04:24 编辑

xhq1954425发表于2006-11-20 8:05:00比如要把曲线等分100份，再分别从各等分点打断...

(defun C:TT (/ ENT N PT SS)
(setvar "osmode" 0)
(setq ENT (car (entsel)))
(command "_.divide" ENT 100)
(setq SS (ssget "P")
N (1- (sslength SS))
)
(repeat (sslength SS)
    (setq PT (cdr (assoc 10 (entget (ssname SS N)))))
    (command "_.break" ENT PT PT)
    (setq N (1- N))
)
(command "_.erase" SS "")
(princ)
)

hb_xiaofen · 发表于 2006-11-20 16:42

在世界坐标下没有问题,用户坐标下没有试过,vlax-curve 函数在用户坐标下不太稳定,

xhq1954425 · 发表于 2006-11-21 05:58

非常感谢楼上各位的热情相助！我是刚刚起步，以后还望大家多多关照。

jxphklibin · 发表于 2007-6-23 14:29

不要用command，改用vlisp函数来完成可否？

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

[LISP]请问如何用lisp做出图上的效果

本帖子中包含更多资源

浏览过的版块