都老贾了 发表于 2014-3-26 09:53:02

直线起点修改不了

新人，按毛老师的代码写的，可是提示：
错误: 此类型的 LISP 值不能强制转换成 VARIANT:(0 0 0)
程序如下
(vl-load-com)
(setq pt1 (list 0 0 0))
(vlax-put-property (vlax-ename->vla-object(car(entsel)))'startpoint pt1)
是我CAD的问题吗？用的2010



http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 都老贾了的微博

edata 发表于 2014-3-26 10:13:16

(vl-load-com)
(setq pt1 (list 0 0 0))
(vlax-put-property (vlax-ename->vla-object(car(entsel)))'startpoint (vlax-3d-point pt1))pt1需要函数转换vlax-3d-point

都老贾了 发表于 2014-3-26 16:29:31

edata 发表于 2014-3-26 10:13 static/image/common/back.gif
pt1需要函数转换vlax-3d-point

3q~多谢大神相助！

llsheng_73 发表于 2014-4-12 22:38:58

(setq pt1(list 0 0 0)
      en(entget(car(entsel))))
(entmod(subst (cons 10 pt1)(assoc 10 en)en))
建设还是尽可能用ENTMAKE,ENTMOD 这样至少有助于对DXF数据加深理解

都老贾了 发表于 2014-4-14 17:02:44

llsheng_73 发表于 2014-4-12 22:38 static/image/common/back.gif
(setq pt1(list 0 0 0)
      en(entget(car(entsel))))
(entmod(subst (cons 10 pt1)(assoc 10 en)en) ...

学习了，还是用组码修改好，虽然烦但更实用
页: [1]
查看完整版本: 直线起点修改不了