社区 › Auto Lisp › 将lisp更改为插入文本fro

Saqib_theleo 发表于 2022-7-5 18:29:57

将lisp更改为插入文本fro

大家好，
我想更改这个Lisp，使其在期望点插入文本，现在它显示警报文本。
嘴唇贴着。
如果有人能帮上忙，我会很感激的。
 
谢谢
坡度。LSP

Tharwat 发表于 2022-7-5 18:39:10

(defun c:slop (/ pt1 pt2 p h)
;; Modified by Tharwat   ;;
;; Text object added to codes    ;;
(and
   (setq pt1 (getpoint "\nSelect first point: "))
   (setq pt2 (getpoint pt1 "\nSelect other point: "))
   (setq p (getpoint "\nSpecify Text Location :"))
   (entmake
   (list
       '(0 . "TEXT")
       (cons 10 p)
       (cons 11 p)
       (cons
         1
         (strcat
         "Slope ="
         (rtos (* (/ (/ (abs (float (- (cadr pt1) (cadr pt2)))) 10.0)
                     (abs (float (- (car pt1) (car pt2))))
                  )
                  1000.0
               )
               2
               3
         )
         "%"
         )
       )
       (cons 40
             (if (zerop (setq h
                               (cdr
                                 (assoc
                                 40
                                 (entget (tblobjname "STYLE" (getvar 'textstyle)))
                                 )
                               )
                        )
               )
               (getvar 'textsize)
               h
             )
       )
       (cons 7 (getvar 'textstyle))
   )
   )
)
(princ)
)

Saqib_theleo 发表于 2022-7-5 18:48:54

你好，塔瓦特先生，
谢谢你的快速回复。是的，这是我想要的，只有一个问题，文字高度和所选文字样式高度不一样。
 
谢谢

hanhphuc 发表于 2022-7-5 18:56:48

FWIW，带箭头的对齐坡度文本
旧线程
 
嗨Tharwat nice 2 c u

Tharwat 发表于 2022-7-5 19:08:29

以上更新的代码
 
现在，如果当前文本样式中的文本高度等于0.0，它将检索系统变量TEXTSIZE的值，否则文本样式的高度设置将为1。

Tharwat 发表于 2022-7-5 19:21:18

 
你好，hanhphuc
 
我真的很高兴看到你再次参与进来。
 
欢迎回来。

Saqib_theleo 发表于 2022-7-5 19:23:30

你好，塔瓦特先生，
现在它工作得很好。
谢谢你的时间和帮助。
 
G、 B.Y。

Tharwat 发表于 2022-7-5 19:31:13

不客气。

查看完整版本: 将lisp更改为插入文本fro