;MyCul
(defun C:MC ( / blk newscl i s)
(setq CLAY (getvar "CLAYER"))
(setvar "cmdecho" 1)
(command "-layer" "set" "LAND" "")
(command "-insert" "Cul" pause "1" "" pause "")
(command "._LAYER" "_SET" CLAY "")
(setvar "cmdecho" 0)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(if (and (not (initget 2))
(setq i (getreal "\nEnter New Xscale Factor: "))
(setq s (ssget "L" '((0 . "insert"))))
)
(foreach b (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
(entmod (mapcar '(lambda (x)
(if (member (car x) '(41))
(cons (car x) i)
x
)
)
(entget b)
)
)
)
)
(princ)
)
(defun c:mc ( / clay pnt1 pnt2 disth newd)
(setq CLAY (getvar "CLAYER"))
(setvar "cmdecho" 1)
(command "-layer" "set" "LAND_CULVERT" "")
(setq pnt1 (getpoint "\nSpecify Insertion Point: ")
pnt2 (getpoint "\nSelect 2nd point for Angle and Xscale: " pnt1)
)
(setq disth (distance pnt1 pnt2))
(setq newd (/ disth 0.0346))
(command "_.-insert" "Culvert1" pnt1 newd "600" pnt2)
(command "._LAYER" "_SET" CLAY "")
(setvar "cmdecho" 0)
(princ)
)