大家看看这程序得怎么写？

k1nger

;;;编一个功能的程序
;;;创造动态图块选择集，获取选择集的基点坐标，图块的旋转角度，选择集图元的规格值
;;;如果角度是0 180,取坐标X值， 将所有坐标X（list）相减，得到一个值。将选择集图元移动x
;;;如果角度是90 270,取坐标y值， 将所有坐标y（list）相减，得到一个值。将选择集图元移动y
;;;下段代码功能，读取动态块的自定义属性！
;;;附件中附有动态块
(defun c:tt (/ obj pros proslst)
  (setq obj (vlax-ename->vla-object (car (entsel))))
  (setq Pros (vlax-invoke obj 'GetDynamicBlockProperties))
  (setq        Proslst
         (mapcar
           '(lambda (X)
              (cons (vlax-get X 'PropertyName) (vlax-get X 'Value))
            )
           Pros
         )
  )
  (princ proslst)
  (princ)
)

k1nger

没有大神试试么，速度来了哈，自己顶一下

k1nger

附上段院长的代码，自定义函数部分没有研究明白

2. defun c:tt () ;tt(动态块排版)
   
3.   (xyp-Start)
   
4.   (defun abc (s1 / ob dp a)
   
5.     (setq ob (vlax-ename->vla-object s1)
   
6.           dp (vla-getdynamicblockproperties ob)
   
7.           a  (car (vlax-safearray->list (vlax-variant-value dp)))
   
8.           a  (distof (vlax-get a 'Value))
   
9.     )
   
10.   )
    
11.   (if (setq ss (ssget '((0 . "insert"))))
    
12.     (progn
    
13.       (setq lst        (vl-sort (xyp-Ss2List ss)
    
14.                          '(lambda (x y) (< (car (xyp-9pt x 1)) (car (xyp-9pt y 1))))
    
15.                 )
    
16.             p0        (xyp-DXF 10 (car lst))
    
17.       )
    
18.       (foreach s1 lst
    
19.         (xyp-move s1 (xyp-DXF 10 s1) p0)
    
20.         (setq p0 (xyp-Pt2X p0 (abc s1)))
    
21.       )
    
22.     )
    
23.   )
    
24.   (xyp-End)
    
25. )

defun c:tt () ;tt(动态块排版)<br />   (xyp-Start)<br />   (defun abc (s1 / ob dp a)<br />     (setq ob (vlax-ename->vla-object s1)<br />           dp (vla-getdynamicblockproperties ob)<br />           a  (car (vlax-safearray->list (vlax-variant-value dp)))<br />           a  (distof (vlax-get a 'Value))<br />     )<br />   )<br />   (if (setq ss (ssget '((0 . "insert"))))<br />     (progn<br />       (setq lst        (vl-sort (xyp-Ss2List ss)<br />                          '(lambda (x y) (< (car (xyp-9pt x 1)) (car (xyp-9pt y 1))))<br />                 )<br />             p0        (xyp-DXF 10 (car lst))<br />       )<br />       (foreach s1 lst<br />         (xyp-move s1 (xyp-DXF 10 s1) p0)<br />         (setq p0 (xyp-Pt2X p0 (abc s1)))<br />       )<br />     )<br />   )<br />   (xyp-End)<br /> )