jd.lsp

在AutoCAD基础平台上进行数据处理和计算

;这是一个对多义线进行猎取后把它的各个段的端点值输出的一个程序
;这个小程序的主要目的是用于在两个多义线间进行求交、差、并时的前面作业
;主程序段如下：
(defun c:jd (/ent pp f ct)
     (setq ent(car (entsel)))
      (vl-load-com)
(setq f (open "c:\\tt.txt" "w"))
      (setq pplist(vertexs ent))
      (setq ct 1)
      (while (> ct (length pplist)
        (exit)
        (setq px (car(nth ct pplist)))
        (princ px f)
        (princ " " f)
        (setq py (cadr(nth ct pplist)))
        (princ py f)
        (princ "\n")
        (setq ct (1+ct))     
       );end while
        (close f)
        (princ)
  ;***************************************************************************************      
  ;    (setq px (car (nth )))
;子程序，用于获取各多义线的各端点值表
(defun vertexs (ent / plist pp n)        
  ;(setq ent car(entsel))
  (vl-load-com)
  (setq obj (vlax-ename->vla-object ent))
  (setq plist (vlax-safearray->list 
  				(vlax-variant-value (vla-get-coordinates obj))
  	      );vlax end
  );setq end
  (setq n 0)
  (repeat (/ (length plist) 2)
  	(setq pp (append pp (list (list (nth n plist)(nth (1+ n) plist)))))
  	(setq n (+ n 2))
        (print pp)
  )
  pp
  )
  ;子程序结束。*****************************************************************************