如何在程序过程中绘制spl线

lqdcwnui · 发表于 2007-1-4 17:42:00

本帖最后由作者于 2007-1-4 17:44:34 编辑

我想用grread和entmod实现，但是不知道dxf码10和40的数值是如何得到。所以无法实现

望高手指点

lqdcwnui · 发表于 2007-1-4 17:53:00

用(command "spline" pause pause "" "")的话，只能用pause预设点数,所以不行

lqdcwnui · 发表于 2007-1-7 15:50:00

没人知道吗？这种方法可以画，但是预览不到spl线

(setq roadt t)

    (command "spline")
(while roadt
(setq roadp (GRREAD T 4 0))
(if (= (car roadp) 3)
(command (cadr roadp))
)
(if (and (/= (car roadp) 5 )(/= (car roadp) 3))
    (setq roadt nil))
)
(command "")
(command "")
(command "")

BDYCAD · 发表于 2007-1-8 10:05:00

(mapcar 'VL-CMDF (cons "Spline" Pointlist)) (VL-CMDF "" "" "")

lqdcwnui · 发表于 2007-1-8 12:34:00

谢谢楼上的，还是无法实现，主要是pointlist是不确定的，由用户来决定

我的意思是就像在命令中输入spl一样，让用户自己绘制spl线，绘制完后，得到绘制好的spl图元，然后继续程序

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