Lisp需要修改。。。

Lee Mac · 发表于 2022-7-6 13:26:06

不知道你会爆炸得到那个艾伦，嗯，那么也许：


(defun c:fract (/ tEnt1 tEnt2 tEnt)
 (vl-load-com)
 (and (setq tEnt1 (car (entsel "\nSelect Upper Text: ")))
      (eq "TEXT" (cdadr (entget tEnt1)))
      (setq tEnt2 (car (entsel "\nSelect Lower Text: ")))
      (eq "TEXT" (cdadr (entget tEnt2)))
      (setq tEnt
        (M-Text '(0 0 0)
          (strcat "\{\\H0.7x;\\S"
            (cdr (assoc 1 (entget tEnt1))) "/"
              (cdr (assoc 1 (entget tEnt2))) ";}")))
      (not (command "_.move" tEnt "" '(0 0 0) pause))
      (command "_.explode" tEnt))
 (princ))             
(defun M-Text (pt val)
 (entmakex
   (list
     (cons 0 "MTEXT")         
     (cons 100 "AcDbEntity")          
     (cons 100 "AcDbMText")    
     (cons 10 pt)        
     (cons 1 val))))

alanjt · 发表于 2022-7-6 13:29:18

哈哈，我从没想过我会引用自己的话。
不太好看，但这样行得通。

copy

(defun c:fract (/ tEnt1 tEnt2 tEnt)
 (and (setq tEnt1 (car (entsel "\nSelect Upper Text: ")))
      (eq "TEXT" (cdadr (entget tEnt1)))
      (setq tEnt2 (car (entsel "\nSelect Lower Text: ")))
      (eq "TEXT" (cdadr (entget tEnt2)))
      (setq tEnt
        (M-Text '(0 0 0)
          (strcat "\{\\H0.7x;\\S"
            (cdr (assoc 1 (entget tEnt1))) "/"
              (cdr (assoc 1 (entget tEnt2))) ";}")))
[color=Red]        (not (command "_.move" tEnt "" '(0 0 0) pause))
       (command "_.explode" tEnt))[/color]
 (princ))             
(defun M-Text (pt val)
 (entmakex
   (list
     (cons 0 "MTEXT")         
     (cons 100 "AcDbEntity")          
     (cons 100 "AcDbMText")    
     (cons 10 pt)        
     (cons 1 val))))

我还取出了（vl负载com）

alanjt · 发表于 2022-7-6 13:33:56

哈哈，我没看到你发了回复。
我觉得这可能是一条很好的捷径。

Lee Mac · 发表于 2022-7-6 13:35:21

哈哈。。两者几乎相同。。。英雄所见略同。。

不知道为什么我在那里有vl load com。。。我想有一次我打算使用vla addMText，但忘了把它取出来

goldy2000 · 发表于 2022-7-6 13:39:01

这个lisp是我朋友几年前写的，所以他给我用，但它不适合我，所以我不能给你关于它的答案，因为我不知道写lisp，对不起，但我的问题是选择文本并放在准确的位置（用鼠标指针）。我喜欢你的lisp开始，当选择下来的文字，它把线，谢谢你的努力！！！

alanjt · 发表于 2022-7-6 13:42:56

事实上，哈哈。我想是的。

我以为你本来是要走那条路的，只是觉得我会把它去掉。

goldy2000 · 发表于 2022-7-6 13:44:51

谢谢很多人，你帮了我很多！！！

文字大小如何，在lisp中可以更改吗？每次它显示在0.07高度？嗯。。。

goldy2000 · 发表于 2022-7-6 13:49:44

但很好的解决方案，爆炸它，我从来没有想过，多行文字可以爆炸的方式。。。。好主意。。

Lee Mac · 发表于 2022-7-6 13:51:43

它只是在标准文本样式中设置的TextSize上，如果您想偏离默认值，可以在entmakex列表中添加更多行。

我也没有意识到——不过很高兴知道

alanjt · 发表于 2022-7-6 13:54:45

我知道这个帖子在很久以前就贴在这里了，但谁在乎呢：

copy

(defun makeMTEXT (pt txt width txtsize / entl)
 (setq entl (list
              '(0 . "MTEXT")
              '(100 . "AcDbEntity")
              '(100 . "AcDbMText")
              (cons 10 pt)
              (cons 40 txtsize)
              (cons 41 width)
              '(71 . 1) ; Attachment point
              '(72 . 5) ; Drawing Direction
              (cons 1 txt)
              (cons 7 (getvar "TEXTSTYLE"))
              '(11 1.0 0.0 0.0)
              (cons 42 txtsize)
              (cons 43 txtsize)
              '(50 . 0.0)
            )
 )
 (entmake entl)
)

[编程交流] Lisp需要修改。。。

发表回复

精选推荐