如何得到面域的各点坐标

kccxcc

请教各位：如何得到一个面域的各点坐标

Ea

Explode -> Undo

alin

; I guess this function is from (acis_poll)
(defun acis_translate (string / item letter lst)
  (setq string (strcat string " ")
 item   ""
  )
  (while (> (strlen string) 0)
    (setq letter (substr string 1 1)
   string (substr string 2)
    )
    (if (= " " letter)
      (setq lst  (append lst (list item))
     item ""
      )
      (setq item (strcat item (chr (boole 6 (ascii letter) 95))))
    )
  )
  lst
)
;;acis_translate example
(defun c:test()
  (setq ent (entget (car (entsel "\nSelect a Region: "))))
  (foreach itm ent
    (if (= (type (cdr itm)) 'STR)
      (progn
 (princ (vl-princ-to-string (cons (car itm) (acis_translate (cdr itm)))))
         (princ "\n")
      )
    )
  )
  (princ)
 )

sieben

很奇妙!送鲜花一朵,能否解说一下算法?

kccxcc

谢谢,各点坐标得到了,能否按照绘制边界时的顺序排列起来呢

alin

Search the web you will know the Region and the 3D Solid of AutoCAD are from the 3D ACIS® Modeler (ACIS), which is Spatial's prominent 3D modeling development
Technology. However, the data is encrypted. Somebody (Sorry I can’t remember his name) decrypted it and wrote this function.

 

You shouldn't expect too much from this routine ...

woodwest

高手！