How can change basic command to Lisp command?.

[jinkinglee]

How can change basic command to Lisp command?. Thanks

abc_command "pline", Ta1, "@6.0<"+ABC_ANGTOS(ABC_ANGLE(Ta1,b11),-1,-1), "@0.25,-1.375", "ARC", "CE", "@-0.75,0", "ANGLE", "-90", "LINE", "@-4.75<"+ABC_ANGTOS(ABC_ANGLE(Ta1,b11),-1,-1), "ARC", "ce", "@0,0.75", "ANGLE", "-90", "LINE", "c"

[Ajilal.Vijayan · Accepted solution]

Something like this ??

(setq Ta1 (Getpoint "\nPick Ta1 :"))
(setq b11 (Getpoint "\nPick b11 :"))
(setq ang (angtos (angle Ta1 b11) 0 3))
(command "pline" Ta1 (strcat "@6.0<" ang) "@0.25,-1.375" "ARC" "CE" "@-0.75,0" "ANGLE" "-90" "LINE" (strcat "@-4.75<"ang) "ARC" "ce" "@0,0.75" "ANGLE" "-90" "LINE" "c")