学习visual lisp。。。

transcad · 发表于 2022-7-6 08:10:37

（vlax put属性（setq x
（vlax ename->vla对象
（cdr（assoc-1（entget（car（entsel）ЮЮ）Ю）Ю）
'中心（setq p（列表360 608 0）））

我试图选择一个圆并将其中心移动到点p。我必须为点p定义一个安全数组（setq p（list 360 608 0））。怎么做？
vlax制作安全阵列
然后vlax safearray填充。。。。。？？
帮助非常初级的visual lisp。。。

pBe · 发表于 2022-7-6 08:37:17

copy

 
(vlax-3d-point p)

copy


(vlax-put-property (setq x
(vlax-ename->vla-object
(cdr(assoc -1 (entget(car(entsel)))))))
'Center[b][color=blue] (vlax-3d-point  (list 360 608 0))[/color][/b])))

copy


(vlax-put-property 
(vlax-ename->vla-object [color=blue][b](car (entsel))[/b][/color])
'Center [color=blue][b](vlax-3d-point  (list 360 608 0)[/b][/color]))

copy


([b][color=blue]vla-put-center
[/color][/b](vlax-ename->vla-object [color=blue][b](car (entsel)[/b][/color]))
[color=blue][b](vlax-3d-point  (list 360 608 0))[/b][/color])

Lee Mac · 发表于 2022-7-6 08:55:32

此外，为了允许空选择：

或者，为了避免变体/安全阵列，使用未记录的vlax put函数：

copy

(if
   (and
       (setq en (car (entsel "\nSelect Circle: ")))
       (setq ob (vlax-ename->vla-object en))
       (vlax-property-available-p ob 'center t)
   )
   (vlax-put ob 'center '(360.0 608.0 0.0))
)