表转表格，有需要拿去用

韩飞翔

• ;;说明:表转表格
• ;;参数:xh:序号  T(编序号)  nil(无序号)
• ;;参数:bt:表头行可为nil
• ;;参数:lst:内容表
• ;;参数:lst_mode:  H(行表)  V(列表) 如果lst_mode类型不正确按照行表处理
• ;;参数:pt: 生成表格基点(getpoint)
  

以下为测试部分

• (fx-TableAuto t (list "面积" "周长") (list '("aa" "bb") '("cc" "dd" "ee" "dd")) "h" (getpoint))
• (fx-TableAuto t (list "面积" "周长") (list '("aa" "bb") '("cc" "dd" "ee" "dd")) "v" (getpoint))
• (fx-TableAuto nil (list "面积" "周长") (list '("aa" "bb") '("cc" "dd" "ee" "dd")) "h" (getpoint))
• (fx-TableAuto nil (list "面积" "周长") (list '("aa" "bb") '("cc" "dd" "ee" "dd")) "v" (getpoint))
• 2024-12-12修改错误；重新更新
• 2024-12-16有个函数无用，漏删了，程序提示无此函数；现在已经删除
  

自贡黄明儒

czb203 发表于 2024-12-10 19:48
韩大师求分源码~

买带式输送机，送源码

韩飞翔

(defun fx-text(txt p higth wight ang mode1 mode2 / :sty)
        (defun xyp-D2R (ang) (* (/ ang 180.0) pi))
        (if (and (= mode1 0) (= mode2 0))
                (progn
                        (setq p1 '(0. 0. 0.) ang (xyp-D2R ang))
                        (entmake
                                (list
                                        '(0 . "TEXT")
                                        (cons 1 txt)
                                        (cons 10 p)
                                        (cons 11 p1)
                                        (cons 7 (setq :sty (getvar "textstyle")))
                                        (cons 40 higth)
                                        (cons 41 wight);(cons 41 (cdr (assoc 41 (tblsearch "style" :sty))))
                                        (cons 50 ang)
                                        (cons 51 (cdr (assoc 50 (tblsearch "style" :sty))))
                                        '(71 . 0)
                                        (cons 72 mode1)
                                        (cons 73 mode2)
                                )
                        )
                )
                (progn
                        (setq p1 p  ang (xyp-D2R ang))
                        (entmake
                                (list
                                        '(0 . "TEXT")
                                        (cons 1 txt)
                                        (cons 10 p)
                                        (cons 11 p1)
                                        (cons 7 (setq :sty (getvar "textstyle")))
                                        (cons 40 higth)
                                        (cons 41 wight);(cons 41 (cdr (assoc 41 (tblsearch "style" :sty))))
                                        (cons 50 ang)
                                        (cons 51 (cdr (assoc 50 (tblsearch "style" :sty))))
                                        '(71 . 0)
                                        (cons 72 mode1)
                                        (cons 73 mode2)
                                )
                        )
                )
        )
        (entlast)
)

czb203

韩大师求分源码~

蓝天cayuer

自贡黄明儒 发表于 2024-12-11 07:09
买带式输送机，送源码

牛皮了 确实 。但凡谁买输送机，谁还会去用这

Bao_lai

蓝天cayuer 发表于 2024-12-11 07:41
牛皮了 确实 。但凡谁买输送机，谁还会去用这

不如试试买源码，送运输机，肯定火爆。

pzweng

自贡黄明儒 发表于 2024-12-11 07:09
买带式输送机，送源码

求源码，输送机用不到啊

hn10183051

原因：no function definition: FX-TEXT

saint008

原因：no function definition: FX-TEXT

韩飞翔

czb203 发表于 2024-12-10 19:48
韩大师求分源码~

源码已给；其实昨天刚写的，思路还没完全理顺，有些bug,效率也一般，将就用吧