slmkwz 参数都是什么？子函数发个学习一下
;;写文字------(一级)---------
;;(slmkwz文字基点高度角度宽高比图层字型颜色方式 t= "m" 中心对齐 "z" 左对齐)
;;(slmkwz "XZY" (getpoint) nil nil nil "0sx" "hz" 7 "z")
(defun slmkwz (s p0 h ang bk ly sty col k / elist elist1)
(setq elist
(list'(0 . "TEXT") (cons 1 s)
(if ly
(cons 8 ly) ;图层
(cons 8 (getvar "CLAYER"))
)
(if col
(cons 62 col) ;颜色
(cons 62 (atoi (slsjqs)))
)
(if sty
(cons 7 sty)
(cons 7 $hz)
)
(if p0
(cons 10 p0)
(cons 10 (setq p0 (cadr (grread 5))))
)
(if h
(cons 40 (* slbl h))
(cons 40 (* slbl 5.0))
)
(if ang
(cons 50 ang)
(cons 50 0.0)
)
(if bk
(cons 41 bk)
(cons 41 0.7)
)
)
)
(setq elist1 (list (cons 72 1) (cons 11 p0) (cons 73 2)))
(if (= k "m")
(entmake (append elist elist1))
(entmake elist)
)
) dear sir,
thanks for sharing
your toll are very flexible for use
if possible provided your tool english version 本帖最后由 尘缘一生 于 2024-7-1 15:25 编辑
sachindkini 发表于 2024-7-1 13:11
dear sir,
thanks for sharing
your toll are very flexible for use
三领的集成，是自动判定版本的，英文版CAD安装，就是英文版的了。
英文版，可以改一下解压目录名字为：D:\SLdesign可以下载手动安装版本 ZIP
也可以EXE安装完，改这个解压目录名即可
链接：https://pan.baidu.com/s/1NSuDJkZC2_XNf6BgX6y5hw
提取码：tk8c
尘缘一生 发表于 2024-7-1 15:19
三领的集成，是自动判定版本的，英文版CAD安装，就是英文版的了。
英文版，可以改一下解压目录名字为 ...
dear sir.
thanks dear some font problem sachindkini 发表于 2024-7-6 14:02
dear some font problem
乱码？请问朋友，你用的CAD，是哪个地区，那个版本？
(getvar "SYSCODEPAGE")
用这句，是什么结果？
尘缘一生 发表于 2024-7-6 17:03
乱码？请问朋友，你用的CAD，是哪个地区，那个版本？
(getvar "SYSCODEPAGE")
用这句，是什么结果？
dear sir
im from india
(getvar "SYSCODEPAGE")
"ANSI_1252" 本帖最后由 尘缘一生 于 2024-7-6 19:10 编辑
sachindkini 发表于 2024-7-6 18:42
dear sir
im from india
明白了，SAP 拉丁语-1 - ISO8859-1 - 代码页,你们不是用的英文版CAD吗？1252内码我没开发来。
这问题我记下了，实际就是内码转换的事。
页:
1
[2]