BATTER @ SLOPE SYMBOL LISP

[Anonymous]

HI ALL

I HAVE BATTER @ SLOPE SYMBOL LISP, I HAVE 1 PROBLEM, THIS LISP WORKING ON AUTOCAD 2019 AND TO LOWERST VERSION BUT IF I USED ON AUTOCAD 2020 AND ONWARD VERSION SCALE OF SYMBOL 1/2 BIG FROM LINE

I GIVE AN EXAMPLE AND SYMBOL BLOCK IN ATTACHMENT

PLEASE HELP ME IF YOU ALL KNOW THE PROBLEM..TQ

;************************************************************************
;* SLP.LSP is a lisp program for inserting slope symbol into an autocad *
;* drawing continuously. *
;* *
;* written by K.B.LOKE *
;* Thur. 29.9.1994 *
;************************************************************************
;
(defun C:SLOP (/ bs ts)
(setvar "cmdecho" 0)
(setvar "osmode" 512)
(While
(setq bs (getpoint "\nPick top slope or <Enter> to quit :"))
(setvar "osmode" 128)
(setq ts (getpoint "\nPick bottom slope :" bs))
(setvar "osmode" 0)
(command "insert" "SD_cut1" bs "" "" ts)
(command "scale" "L" "" bs ts)
(setvar "osmode" 512)
)
(setvar "osmode" 0)

[pbejse · Accepted solution]

---

@Anonymous wrote:

PLEASE HELP ME IF YOU ALL KNOW THE PROBLEM..TQ

(defun C:SLOP (/ bs ts)
  (setvar "cmdecho" 0)
  (setvar "osmode" 512)
  (While
    (setq bs (getpoint "\nPick top slope or  to quit :"))
     (setvar "osmode" 128)
     (setq ts (getpoint "\nPick bottom slope :" bs))
     (setvar "osmode" 0)
     (command "insert" "SD_cut1" bs "" "" ts)
     (command "scale" "L" "" "_non"
	      bs "r" "1" (distance bs ts))
     (setvar "osmode" 512)
  )
  (setvar "osmode" 0)
)

 HTH

[Anonymous]

lisp work...tq very much sir!! appreciate it so much...

[pbejse]

---

@Anonymous wrote:

lisp work...tq very much sir!! appreciate it so much...

---

Good for you @Anonymous. Glad it helps.

Nice to be appreciated 🙂

Cheers