Quando vamos escrever um número via autolisp, precisamos que ele esteja formatado com separadores de milhar essas coisas… ;|formata um numero real em uma string com f casas decimais e com separador de milhar, exemplo: (fnum 123456789.123456789 3)|;(defun fnum (num f / int pos fp) (setq int (rtos num 2 f) pos (vl-string-search “.” int) […]
exemplo de como desenhar um TEXT com o entmakex: (defun get-alh-alv () (setq ali (vl-position (strcase ali) ‘(“L” “C” “R” “A” “M” “F” “TL” “TC” “TR” “ML” “MC” “MR” “BL” “BC” “BR”)) alh (nth ali ‘(0 1 2 3 4 5 0 1 2 0 1 2 0 1 2)) alv (nth ali ‘(0 0
Como calcular o ângulo da reta tangente à curva num determinado ponto: (defun get-tan-of-pt (ent pt / deriv param ang) (if (setq ent (ename-of ent)) (if (setq param (vlax-curve-getparamatpoint ent pt)) (setq deriv (vlax-curve-getfirstderiv ent param) ang (angle ‘(0 0) deriv))))) Ent é a ename da entidade, pt é uma coordenada SOBRE a linha, o
