两点动态画弧

尘缘一生

bai2000 发表于 2024-6-28 21:00
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)
        )
)

sachindkini

dear sir,
thanks for sharing
your toll are very flexible for use
if possible provided your tool english version

尘缘一生

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

sachindkini

尘缘一生 发表于 2024-7-1 15:19
三领的集成，是自动判定版本的，英文版CAD安装，就是英文版的了。

英文版，可以改一下解压目录名字为 ...

dear sir.

thanks

sachindkini

dear some font problem

尘缘一生

sachindkini 发表于 2024-7-6 14:02
dear some font problem

乱码？请问朋友，你用的CAD，是哪个地区，那个版本？
(getvar "SYSCODEPAGE")
用这句，是什么结果？

sachindkini

尘缘一生 发表于 2024-7-6 17:03
乱码？请问朋友，你用的CAD，是哪个地区，那个版本？
(getvar "SYSCODEPAGE")
用这句，是什么结果？

dear sir
im from india

1. (getvar "SYSCODEPAGE")
   
2. "ANSI_1252"

复制代码

尘缘一生

sachindkini 发表于 2024-7-6 18:42
dear sir
im from india

明白了，SAP 拉丁语-1 - ISO8859-1 - 代码页,你们不是用的英文版CAD吗？1252内码我没开发来。
这问题我记下了，实际就是内码转换的事。