如何制作点enti列表

subodh_gis · 发表于 2022-7-5 16:41:27

这是代码的一部分。我得到了；错误：错误的点列表
我们将如何制作点pt1和pt2的列表，以便在ssget“F”中通过。请帮忙


(setq txt (entsel "Select text: "))
   (setq oText (vlax-ename->vla-object (car txt)))
   (setq pt1 (vlax-safearray->list (vlax-variant-value (vlax-get-property oText 'InsertionPoint))))
 (setq x1 (car pt) y1 (cadr pt))
(setq angle_obj (vlax-get-property oText 'Rotation))
(setq pt2 (polar pt (+ angle_obj PI 90) 0.3))
       (setq x2 (car pt) y2 (cadr pt))
(setq ss (ssget "_F" '((x1 y1) (x2 y2)) ))