vlax-put-Property能否修改图元的坐标呢？试了一下想知道为何执行无效

caocaosasd · 发表于 2021-7-12 00:12:20

求帮忙看一下
(defun c:tat (/ lla pta ptb)
      (vl-load-com)
  (setq lla (vlax-Ename->vla-Object (car(entsel))))
  (vlax-put-Property lla 'Startpoint '(10.0 20.0 10.0)) ;;为什么这句话不生效呀，
  (princ)
)

caocaosasd · 发表于 2021-7-12 00:22:18

本帖最后由 caocaosasd 于 2021-7-12 00:23 编辑

我知道了用(vlax-dump-object (vlax-ename->vla-object(car(entsel))))查看图元的属性，也看到了coordinates里是多段线各顶点的坐标

我想顺便问一下
(vlax-get-property (vlax-ename->vla-object(car(entsel))) "coordinates")
运行这句话后点选多段线，为何返回值是 #<variant 8197 ...> ？
那有没有办法用这句话获得多段线的各端点呢？
我还想用vlax-put-property的方法修改多段线的顶点坐标，来模拟多段线的移动之类的，这可行不？

烟盒迷唇 · 发表于 2021-7-12 06:49:12

获取变体的值，然后再转换成表。

烟盒迷唇 · 发表于 2021-7-12 07:00:14

(setq pts (Vlax-Get-property (Vlax-Ename->Vla-Object (Car(Entsel))) 'Coordinates))
(setq pts (vlax-safearray->list (vlax-variant-value pts)))

烟盒迷唇 · 发表于 2021-7-12 19:04:37

Startpoint是直线才有的属性，多段线没有这个属性。

nzl1116 · 发表于 2021-7-14 10:43:59

点用 vlax-3d-point 函数转换下

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

[提问] vlax-put-Property能否修改图元的坐标呢？试了一下想知道为何执行无效