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

学习visual lisp。。。

（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


(vlax-3d-point p)

 

(vlax-put-property (setq x
(vlax-ename->vla-object
(cdr(assoc -1 (entget(car(entsel)))))))
'Center (vlax-3d-point(list 360 608 0)))))

 

(vlax-put-property
(vlax-ename->vla-object (car (entsel)))
'Center (vlax-3d-point(list 360 608 0)))

 

(vla-put-center
(vlax-ename->vla-object (car (entsel)))
(vlax-3d-point(list 360 608 0)))

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

此外，为了允许空选择：
 
或者，为了避免变体/安全阵列，使用未记录的vlax put函数：
 
(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))
)

SLW210 发表于 2022-7-6 09:07:28

transcad，
 
请阅读代码发布指南并编辑您的帖子。

Tharwat 发表于 2022-7-6 09:14:22

多重选择集。
 
6
页: [1]
查看完整版本: 学习visual lisp。。。