社区 › Auto Lisp › 需要帮助！使用lisp Create tex

SLW210 发表于 2022-7-6 00:16:33

 
 
 
这不是一个LISP-ON-DEMAND论坛，这里的每个人都自愿花时间帮助其他人进行CAD相关的工作。在之前的帖子中，你已经被警告过这种态度。如果你需要Lisp程序，那么请联系其他人为你做这件事，收费。

lucas3 发表于 2022-7-6 00:19:17

 
我知道，我不要求别人去做，有些人是愿意帮助别人的好人，我提出这个问题，如果有人愿意帮助，我非常感激，如果没有人愿意帮助，我不会坚持。没关系

ReMark 发表于 2022-7-6 00:23:42

您不愿意使用其他三种（简单）处理任务的方法之一是什么？是的，lisp可以使重复性任务变得更容易，但它并不总是解决每个问题的最佳答案。

lucas3 发表于 2022-7-6 00:24:21

 
谢谢你的评论，我不知道该怎么解释。

ReMark 发表于 2022-7-6 00:27:34

这就像你想用打桩机而不是锤子钉钉子。创建文本样式和/或标注样式的lisp例程对我来说似乎有些过头了。
 
很明显，你得到或写了一个lisp例程，可以做一些你想要的事情，但你需要一些帮助吗？

lucas3 发表于 2022-7-6 00:30:47

 
我想在autolisp程序中创建一个新的文本样式&dim样式，然后使用它绘制一个对象。

troggarf 发表于 2022-7-6 00:34:11

2013年澳大利亚大学免费提供该课程。http://au.autodesk.com/au-online/classes-on-demand/class-catalog/2013/autocad/ac1337
不要试图重新发明轮子
~格雷格

ReMark 发表于 2022-7-6 00:36:59

 
如果您有一个已经包含文字和标注样式的模板，则lisp程序可以使用该模板启动新图形，然后绘制对象。这不是更简单吗？

Tharwat 发表于 2022-7-6 00:42:25

试试这个Lucas，告诉我你会怎么做。
 

(defun Text+Dim nil
;; Tharwat 17. Jan. 2014   ;;
(if (not (tblsearch "STYLE" "ggg"))
   (entmakex '((0 . "STYLE")
               (100 . "AcDbSymbolTableRecord")
               (100 . "AcDbTextStyleTableRecord")
               (2 . "ggg")
               (40 . 0.)
               (41 . 1.)
               (42 . 1.0)
               (50 . 0.)
               (70 . 0)
               (71 . 0)
               (3 . "gdt.shx")
               (4 . "gbcbig.shx")
            )
   )
)
;;                            ;;
(if (and (not (tblsearch "DIMSTYLE" "custom"))
          (tblsearch "STYLE" "ggg")
   )
   (entmakex (list '(0 . "DIMSTYLE")
                   '(100 . "AcDbSymbolTableRecord")
                   '(100 . "AcDbDimStyleTableRecord")
                   '(2 . "custom")
                   '(70 . 0)
                   '(41 . 2.5)
                   '(42 . 2.0)
                   '(43 . 7.0)
                   '(44 . 2.25)
                   '(73 . 0)
                   '(77 . 1)
                   '(78 .
                   '(140 . 2.5)
                   '(141 . 2.5)
                   '(171 . 3)
                   '(172 . 1)
                   '(271 . 2)
                   '(272 . 2)
                   '(274 . 3)
                   '(278 . 44)
                   '(283 . 0)
                   '(284 .
                   (cons 340 (tblobjname "STYLE" "ggg"))
             )
   )
)
(princ)
)

 
用法
 

(text+dim)

lucas3 发表于 2022-7-6 00:44:48

 
不管结果如何，都要谢谢你！我会努力的。

查看完整版本: 需要帮助！使用lisp Create tex