帮助修复例程

teknomatika · 发表于 2022-7-6 08:08:27

问候语。
我有一个简单的例程，可以在剖面中写入Z坐标。
它可以工作，但是如果我在一个小缩放的区域工作，它会扭曲三角形，或者不能确保删除相对于三角形上底的文本。如果进一步减小缩放，则甚至不会设计三角形。
感谢您对其优化的帮助。我的知识有限。解决这个困难还不够。。

copy

;;
(defun c:LEVZ(/ factesc cotorig defy defyn p1 p2 p3 cotorigt x1 y1 yf z1 yfinal )
(setq factesc (getreal "INSERT SCALE FACTOR (HIGHT STANDARD 0.20): "))
(if (= factesc nil)
(setq factesc 1)
)
(setq cotorig (getpoint "SELECT POINT: "))
(setq defy (cdr cotorig))
(setq defyn(car defy))
(setq p1 (polar cotorig 0.785398 (* factesc 0.62)))
(setq p2 (polar p1 3.141593 (* factesc 0.88)))
(setq p3 (polar p2 -0.785398 (* factesc 0.62)))
(command "layer" "new" "Cotas_Nível" "color" "103" "Cotas_Nível" "")
(command "layer" "set" "Cotas_Nível" "")
(command "_Pline" "_non" p1 p2 P3 "C")
(setq cotorigt (polar p2 1.570796 (* factesc 0.05))) 
(setq x1 (car cotorigt))
(setq y1 (cadr cotorigt))
(setq yf (+ y1 0.05))
(setq z1 (caddr cotorigt))
(setq yfinal (list x1 yf z1))
(command "text" yfinal (* factesc 0.20) 0 (rtos defyn 2 2))
(princ)
)
(prompt "\ntYPE: LEVZ")

Lee Mac · 发表于 2022-7-6 08:27:30

我还没有看完整的代码，但我立即看到了这一点：

将其更改为：

copy

(command "_.pline" "_non" p1 "_non" p2 "_non" p3 "_C")

teknomatika · 发表于 2022-7-6 08:41:39

储罐，
经过升级、实验，它看起来很稳定。
在命令文本中还包括“_non”，似乎解决了到上基座的距离问题。

copy

;;
(defun c:LEVZ(/ factesc cotorig defy defyn p1 p2 p3 cotorigt x1 y1 yf z1 yfinal )
(setq factesc (getreal "INSERT SCALE FACTOR (HIGHT STANDARD 0.20): "))
(if (= factesc nil)
(setq factesc 1)
)
(setq cotorig (getpoint "SELECT POINT: "))
(setq defy (cdr cotorig))
(setq defyn(car defy))
(setq p1 (polar cotorig 0.785398 (* factesc 0.6223)))
(setq p2 (polar p1 3.141593 (* factesc 0.8800)))
(setq p3 (polar p2 -0.785398 (* factesc 0.6223)))
(command "layer" "new" "Cotas_Nível" "color" "103" "Cotas_Nível" "")
(command "layer" "set" "Cotas_Nível" "")
(command "_.pline" "_non" p1 "_non" p2 "_non" p3 "_C")
(setq cotorigt (polar p2 1.570796 (* factesc 0.05))) 
(setq x1 (car cotorigt))
(setq y1 (cadr cotorigt))
(setq yf (+ y1 0.05))
(setq z1 (caddr cotorigt))
(setq yfinal (list x1 yf z1))
(command "_.text" "_non" yfinal (* factesc 0.20) 0 (rtos defyn 2 2))
(princ)
)
(prompt "\ntYPE: LEVZ")