麻烦哪位大声帮我增加一个粘贴的代码啊，谢谢

wline

(defun c:qrr()
  (command "text" pause "350" "0" )
  )


想直接加一个ctrl+v的效果，麻烦了，直接运行命令就可以把剪贴板的内容写出来

qazxswk

要善于使用搜索功能。

2. (defun c:11 (/ get-clip-string)
   
3. (defun get-clip-string (/ html result)
   
4.     (and (setq html (vlax-create-object "htmlfile"))
   
5.    (setq result (vlax-invoke
   
6.         (vlax-get (vlax-get HTML 'PARENTWINDOW)
   
7.             'CLIPBOARDDATA
   
8.         )
   
9.         'GETDATA
   
10.         "Text"
    
11.           )
    
12.    )
    
13.    (vlax-release-object html)
    
14.     )
    
15.     result
    
16. )
    
17. (command "text" pause "350" "0" (get-clip-string))
    
18. (princ)
    
19. )

(defun c:11 (/ get-clip-string)<br /> (defun get-clip-string (/ html result)<br />     (and (setq html (vlax-create-object "htmlfile"))<br />    (setq result (vlax-invoke<br />         (vlax-get (vlax-get HTML 'PARENTWINDOW)<br />             'CLIPBOARDDATA<br />         )<br />         'GETDATA<br />         "Text"<br />           )<br />    )<br />    (vlax-release-object html)<br />     )<br />     result<br /> )<br /> (command "text" pause "350" "0" (get-clip-string))<br /> (princ)<br /> )

wline

qazxswk 发表于 2024-7-18 17:47
要善于使用搜索功能。

谢谢，我没收到才来发帖的

蓦然语嫣

qazxswk 发表于 2024-7-18 17:47
要善于使用搜索功能。

能不能增加个判断条件，检测到在模型空间时粘贴的字高为350，检测到在布局空间时粘贴字高为3.5

qazxswk

蓦然语嫣 发表于 2024-7-19 14:38
能不能增加个判断条件，检测到在模型空间时粘贴的字高为350，检测到在布局空间时粘贴字高为3.5

2. (defun c:11 (/ get-clip-string)
   
3. (defun get-clip-string (/ html result)
   
4.     (and (setq html (vlax-create-object "htmlfile"))
   
5.    (setq result (vlax-invoke
   
6.         (vlax-get (vlax-get HTML 'PARENTWINDOW)
   
7.             'CLIPBOARDDATA
   
8.         )
   
9.         'GETDATA
   
10.         "Text"
    
11.           )
    
12.    )
    
13.    (vlax-release-object html)
    
14.     )
    
15.     result
    
16. )
    
17. (if
    
18. (= (getvar "TILEMODE") 1)
    
19. (command "text" pause "350" "0" (get-clip-string))
    
20. (command "text" pause "3.5" "0" (get-clip-string))
    
21. )
    
22. (princ))

(defun c:11 (/ get-clip-string)<br /> (defun get-clip-string (/ html result)<br />     (and (setq html (vlax-create-object "htmlfile"))<br />    (setq result (vlax-invoke<br />         (vlax-get (vlax-get HTML 'PARENTWINDOW)<br />             'CLIPBOARDDATA<br />         )<br />         'GETDATA<br />         "Text"<br />           )<br />    )<br />    (vlax-release-object html)<br />     )<br />     result<br /> )<br /> (if <br /> (= (getvar "TILEMODE") 1) <br /> (command "text" pause "350" "0" (get-clip-string))<br /> (command "text" pause "3.5" "0" (get-clip-string))<br /> )<br /> (princ))

蓦然语嫣

qazxswk 发表于 2024-7-19 16:59

谢谢分享

蓦然语嫣

qazxswk 发表于 2024-7-19 16:59

能不能改为在粘贴之前，先输入字高

qazxswk

蓦然语嫣 发表于 2024-7-21 15:05
能不能改为在粘贴之前，先输入字高

(defun c:11 (/ get-clip-string zhigao)
(defun get-clip-string (/ html result)
    (and (setq html (vlax-create-object "htmlfile"))
   (setq result (vlax-invoke
        (vlax-get (vlax-get HTML 'PARENTWINDOW)
            'CLIPBOARDDATA
        )
        'GETDATA
        "Text"
          )
   )
   (vlax-release-object html)
    )
    result
)
(setq zhigao (getreal  "\n请输入文字高度："))
(command "text" pause zhigao "0" (get-clip-string))
(princ))

蓦然语嫣

qazxswk 发表于 2024-7-21 20:35
(defun c:11 (/ get-clip-string zhigao)
(defun get-clip-string (/ html result)
    (and (setq htm ...

谢谢分享，这下完善了