语法测试

;|This is a test ,Don't copy it!|;
(defun c:test ()
  (setq ent (car (entsel)))
  (setq obj (vlax-ename->vla-object ent))
  (setq pts (vla-intersectwith obj obj acExtendNone))
  (setq par (vlax-curve-getEndParam  obj))
  (setq i 0)
  (while (<= i par)
    (setq pt (vlax-curve-getpointatParam obj i))
    (princ pt)
    (setq i (1+ i))
  );while
  (princ)
);defun

发表评论

电子邮件地址不会被公开。 必填项已用*标注