焊缝符号

sbwdx

来自明经的源码，网站上找的，请问可以增加输入高度后，生成的焊缝控制方向吗？
(defun C:hf (/ osold)
     (setq osold (getvar "osmode"))
     (setvar "CMDECHO" 0)
        (setlayer_lsp "HF" 136);检查焊缝图层是否存在，没有则新建图层
     (setq pt1 (getpoint "\n输入焊缝的起点 :")
        pt2 (getpoint "\n输入焊缝的终点:")
        h (getint "\n输入焊缝高度的高度:")  
        l (distance pt1 pt2)
        n (fix (/ l h))
        ang (angle pt1 pt2)
        pt3 pt1)
     (setvar "osmode" 0)
     (command ".pline" pt1 "a")
     (repeat (- n 2)
        (command "ce" (setq pt4 (polar pt3 ang h)) "a" "-120")
        (command "d" pt3 pt4)
        (setq pt3 pt4)
   )
     (command "ce" (setq pt4 (polar pt3 ang h)) "a" "-180" "")
        (setvar "osmode" osold )
     (princ)
)
(defun setlayer_lsp(LAY CLR)
  (if (=(tblobjname "LAYER" LAY) nil)
    (entmake (list'(0 . "LAYER")'(100 . "AcDbSymbolTableRecord")'(100 . "AcDbLayerTableRecord")
       '(6 . "CONTINUOUS")(cons 62 CLR)'(70 . 0)(cons 2 LAY)))
    (entmod(subst(cons 62 CLR)(assoc 62(entget(tblobjname "LAYER" LAY)))(entget(tblobjname "LAYER" LAY))))
   ) (setvar "CLAYER" LAY)
  )

Andyhon

没能理解
控制方向 本就是依着 焊缝的起点 焊缝的终点

sbwdx

Andyhon 发表于 2019-9-17 14:41
没能理解
控制方向 本就是依着 焊缝的起点 焊缝的终点

就是画完以后，焊缝符号在，红线的上方或者下方，默认就是只能在上方，不能在下方，用的时候还要，镜像一下，有点麻烦

sbwdx

sbwdx 发表于 2019-9-17 14:57
就是画完以后，焊缝符号在，红线的上方或者下方，默认就是只能在上方，不能在下方，用的时候还要，镜像一 ...

这样的控制

start4444

最简单有效的办法就是在最后加一句镜像命令，默认不镜像，按y镜像