社区 › Auto Lisp › 将二维文字转换为三维点

CSTAM 发表于 2022-7-5 22:51:01

将二维文字转换为三维点

有谁知道如何将二维文本转换为三维点，一次完成整个图形？

MSasu 发表于 2022-7-5 23:03:52

假设文字实体具有所需三维点的坐标-这可以通过AutoLISP例程完成。
应该张贴一个带有坐标格式的示例。
 
也可以要求版主在AutoLISP、VBA、CUI和自定义部分中移动您的端口。
 
当做

BearDyugin 发表于 2022-7-5 23:12:20

(defun C:Convert_Text_to_Point (/ ss Z_value temp koord)
(if (setq ss (ssget "_:L" '((0 . "Text"))))
   (progn
   (initget "Koord Value")
   (setq
Z_value        (getkword "\nTake Z from ? <Value>:")
Z_value        (if Z_value
          Z_value
          "Value"
        )
ss        (vl-remove-if-not
          '(lambda (x) (= (type x) 'ENAME))
          (mapcar 'cadr (ssnamex ss))
        )
   )
   (foreach item ss
(setq temp(entget item)
      koord (cdr (assoc 10 temp))
      koord (if        (eq Z_value "Value")
              (list (car koord)
                  (cadr koord)
                  (atof (cdr (assoc 1 temp)))
              )
              koord
          )
)
(entdel item)
(entmakex
(list
    '(0 . "POINT")
    (cons 10 koord)
)
)
   )
   )
)
)

BIGAL 发表于 2022-7-5 23:19:55

这样做后，你现在有了一个三维点，你可以建立一个表面模型和轮廓等。
 
唯一需要注意的是，这些点通常基于文本插入点。

Tiger 发表于 2022-7-5 23:33:08

线程合并。

PONG21 发表于 2022-7-5 23:41:42

你有可以将点转换成文本的lisp吗？

BIGAL 发表于 2022-7-5 23:47:06

Pong 21查看www.lee-mac。com为他的积分经理计划。

hanhphuc 发表于 2022-7-5 23:53:02

嗨，pong
 
欢迎来到这里
这里有许多类似的线程，但如果您能够明确哪种Lisp适合您：
编号中的文本？XY坐标？还是海拔？创建新点或选择点等。。
钓鱼还是钓鱼？
 
thanx@BIGAL链接非常有帮助

查看完整版本: 将二维文字转换为三维点