;Drapes a 3dpolyline over polylines along a selected line.
(defun c:sample
-pl
( / li
*ModSpc
*ActDoc
*Acad lobj p1 p2 ss sslen i plobj pnts n li pntli finli var
) (drxc
(list (nth (+ n
0) pnts
) (nth (+ n
1) pnts
) el
) 2) )
)
)
)
(setq var
(pl
->var finli
)) )
;Given Pointlist returns pointlist in variant form
(defun PL
->VAR
( pl
/ pl ub sa var
) )
;Graphically at given point and color Example (drxc '( 1 2 3) 1) draws x at x=1 y=2 z=3 in the color red
(defun drxc
(ctr color
/ vs xs xs2 cor1 cor2 cor3 cor4 ctr color
) )
;The following was written by LEE MAC ~ Cadtutor
;in response to my posting of the above code.
;; © Lee Mac 2010
(LM:ActiveSpace 'doc 'spc)
(COMMAND "_layer" "_m" "3d section" "_c" "55" "" "" "") (and (setq lobj
(car (entsel "\nΕπιλέξτε μια γραμμή: "))) (eq "LINE" (_dxf
0 lobj
)) (list (setq p1
(_dxf
10 lobj
)) (_dxf
11 lobj
)) '
((0 .
"LWPOLYLINE")) )
)
)
(GroupByNum
(vlax-invoke obj 'IntersectWith lobj acExtendNone
) 3) )
lst
)
)
)
)
)
)
)
)
)
)
)
(defun GroupByNum
( l n
/ r
) ;; © Lee Mac 2010
)
)
)
)
;;--------------------=={ ActiveSpace }==---------------------;;
;; ;;
;; Retrieves pointers to the Active Document and Space ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2010 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Arguments: ;;
;; *doc - quoted symbol (other than *doc) ;;
;; *spc - quoted symbol (other than *spc) ;;
;;------------------------------------------------------------;;
(defun LM:ActiveSpace
( *doc
*spc
) ;; © Lee Mac 2010
)
)
(if (= 1 (getvar 'CVPORT
)) 'PaperSpace 'ModelSpace
) )
)
)