直线起点修改不了

都老贾了

新人，按毛老师的代码写的，可是提示：
错误: 此类型的 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



该贴已经同步到 都老贾了的微博

edata

2. (vl-load-com)
   
3.   (setq pt1 (list 0 0 0))
   
4.   (vlax-put-property (vlax-ename->vla-object(car(entsel)))'startpoint (vlax-3d-point pt1))

(vl-load-com)<br />   (setq pt1 (list 0 0 0))<br />   (vlax-put-property (vlax-ename->vla-object(car(entsel)))'startpoint (vlax-3d-point pt1))

pt1需要函数转换vlax-3d-point

都老贾了

edata 发表于 2014-3-26 10:13
pt1需要函数转换vlax-3d-point

3q~多谢大神相助！

llsheng_73

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

都老贾了

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

学习了，还是用组码修改好，虽然烦但更实用