如何让当前视口中心和四个角点显示特定字符（高飞鸟版主能有空指导更好）

夏生生

lee50310 发表于 2021-12-14 18:50
是這種效果嗎?

滑鼠拖曳 文字都在 視口中心和四個角

是的，在WCS的情况下我可以做到这个效果，但是在XY顺时针UCS、3DO情况、还有PLAN为UCS，坐标系为wcs的情况下，我做不到

mokson

guosheyang 发表于 2021-12-13 12:19
你是想要 这个控件标题文字 这种   一直显示在那儿哈

我也一直想要这样的效果，但是想不出来如何实现。

xyp1964

自定义函数处理

rocking2008

这个功能是为了防止图纸资料被别人盗用，做的类似于水印的效果吧。但程序与图纸是分开的呀，难道能把程序内置到图纸里面？

mikewolf2k

现在的方案似乎都是在指定位置放置文字对象，移动屏幕后更新。是不是可以换个思路，四角放一个不可关闭、背景同色的窗体，文字在该窗体上，也就相对屏幕固定了。

lijiao

mikewolf2k 发表于 2021-12-16 09:18
现在的方案似乎都是在指定位置放置文字对象，移动屏幕后更新。是不是可以换个思路，四角放一个不可关闭、背 ...

我也想到了这个办法,在四个角放置四个非模态的窗口,利用API隐藏窗口的标题栏,并且让窗口透明,然后再定义一个反应器,当CAD窗口发生变化时,改变四个窗口的位置

xtjd

夏生生

xtjd 发表于 2021-12-16 10:32

可以指点一下坐标转换部分吗？谢谢

夏生生

xtjd 发表于 2021-12-16 10:32

下面的代码，在非3do的情况下都可以，3do的情况下就乱了，请问您是怎么做到的？方便指导一下吗？

2. (defun c:temp (/   CEN     D2W       GR1       GR2
   
3.          H   LOOP     OBJL       PT         SC
   
4.          SCR   STR     WB       WH         xty-make-text@w
   
5.          xty-put-dxf     xty-put-dxfl
   
6.         )
   
7.   (setq  loop t
   
8.   pt   '(0 0 0)
   
9.   str  "特定字符"
   
10.   objl (list (xty-make-text@w str 0 0 pt pt 1 1 0 "standard")
    
11.        (xty-make-text@w str 0 0 pt pt 1 1 0 "standard")
    
12.        (xty-make-text@w str 0 0 pt pt 1 1 0 "standard")
    
13.        (xty-make-text@w str 0 0 pt pt 1 1 0 "standard")
    
14.        (xty-make-text@w str 0 0 pt pt 1 1 0 "standard")
    
15.        ) ;_画五个临时文字
    
16.   objl (mapcar 'vlax-ename->vla-object objl)
    
17.   )
    
18.   (while loop
    
19.     (setq gr1 (grread t 15 1)
    
20.     gr2 (cadr gr1)
    
21.     gr1 (car gr1)
    
22.     cen (trans (getvar "VIEWCTR") 1 2)
    
23.     wh  (getvar "VIEWSIZE")
    
24.     scr (getvar "SCREENSIZE")
    
25.     sc  (/ wh (cadr scr))
    
26.     wb  (* 0.5 (* sc (car scr)))
    
27.     wh  (* 0.5 wh)
    
28.     h   (* 30 sc)
    
29.     d2w (append
    
30.     (mapcar  'append
    
31.       (mapcar
    
32.         (function (lambda (v) (trans v 0 2 t)))
    
33.         '((1. 0. 0.) (0. 1. 0.) (0. 0. 1.))
    
34.       )
    
35.       (mapcar 'list (trans '(0 0 0) 2 0))
    
36.     )
    
37.     '((0. 0. 0. 1.))
    
38.         ) ;_DCS->wcs转换矩阵
    
39.     )
    
40.     (xty-put-dxfl
    
41.       (vlax-vla-object->ename (car objl))
    
42.       '(40 72 73 10 11)
    
43.       (list h
    
44.       0
    
45.       0
    
46.       (mapcar '- cen (list wb wh))
    
47.       (mapcar '- cen (list wb wh))
    
48.       )
    
49.     )
    
50.     (xty-put-dxfl
    
51.       (vlax-vla-object->ename (cadr objl))
    
52.       '(40 72 73 10 11)
    
53.       (list h
    
54.       2
    
55.       0
    
56.       (mapcar '+ cen (list wb (- wh)))
    
57.       (mapcar '+ cen (list wb (- wh)))
    
58.       )
    
59.     )
    
60.     (xty-put-dxfl
    
61.       (vlax-vla-object->ename (caddr objl))
    
62.       '(40 72 73 10 11)
    
63.       (list h
    
64.       2
    
65.       3
    
66.       (mapcar '+ cen (list wb wh))
    
67.       (mapcar '+ cen (list wb wh))
    
68.       )
    
69.     )
    
70.     (xty-put-dxfl
    
71.       (vlax-vla-object->ename (cadddr objl))
    
72.       '(40 72 73 10 11)
    
73.       (list h
    
74.       0
    
75.       3
    
76.       (mapcar '+ cen (list (- wb) wh))
    
77.       (mapcar '+ cen (list (- wb) wh))
    
78.       )
    
79.     )
    
80.     (xty-put-dxfl
    
81.       (vlax-vla-object->ename (last objl))
    
82.       '(40 72 73 10 11)
    
83.       (list h 1 2 cen cen)
    
84.     )
    
85.     (foreach n objl (vla-TransformBy n (vlax-tMatrix d2w)))
    
86.     (cond ((= 3 gr1)
    
87.      (setq loop nil)
    
88.      (foreach n objl (vla-delete n))
    
89.     )
    
90.     )
    
91.   )
    
92.   (defun xty-make-text@w (tt t72 t73 t10 t11 th tw t50 tst /)
    
93.     (entmakex (list '(0 . "text")
    
94.         '(100 . "AcDbEntity")
    
95.         '(100 . "AcDbText")
    
96.         (cons 10 t10)
    
97.         (cons 1 tt)
    
98.         (cons 40 th)
    
99.         (cons 41 tw)
    
100.         (cons 7 tst)
     
101.         (cons 72 t72)
     
102.         (cons 11 t11)
     
103.         (cons 50 t50)
     
104.         (cons 73 t73)
     
105.         )
     
106.     )
     
107.   )
     
108.   (defun xty-put-dxf (en code ch / ent)
     
109.     (setq ent (entget en))
     
110.     (if  (xty-get-dxf code en)
     
111.       (entmod (subst (cons code ch) (assoc code ent) ent))
     
112.       (entmod (append ent (list (cons code ch))))
     
113.     )
     
114.     (entupd en)
     
115.   )
     
116.   (defun xty-put-dxfl (en code-l ch-l / ent)
     
117.     (setq ent (entget en))
     
118.     (foreach n
     
119.          code-l
     
120.       (if (xty-get-dxf n en)
     
121.   (setq ent (subst (cons n (car ch-l)) (assoc n ent) ent))
     
122.   (setq ent (append ent (list (cons n (car ch-l)))))
     
123.       )
     
124.       (setq ch-l (cdr ch-l))
     
125.     )
     
126.     (entmod ent)
     
127.     (entupd en)
     
128.   )
     
129. )

(defun c:temp (/   CEN     D2W       GR1       GR2<br />          H   LOOP     OBJL       PT         SC<br />          SCR   STR     WB       WH         xty-make-text@w<br />          xty-put-dxf     xty-put-dxfl<br />         )<br />   (setq  loop t<br />   pt   '(0 0 0)<br />   str  "特定字符"<br />   objl (list (xty-make-text@w str 0 0 pt pt 1 1 0 "standard")<br />        (xty-make-text@w str 0 0 pt pt 1 1 0 "standard")<br />        (xty-make-text@w str 0 0 pt pt 1 1 0 "standard")<br />        (xty-make-text@w str 0 0 pt pt 1 1 0 "standard")<br />        (xty-make-text@w str 0 0 pt pt 1 1 0 "standard")<br />        ) ;_画五个临时文字<br />   objl (mapcar 'vlax-ename->vla-object objl)<br />   )<br />   (while loop<br />     (setq gr1 (grread t 15 1)<br />     gr2 (cadr gr1)<br />     gr1 (car gr1)<br />     cen (trans (getvar "VIEWCTR") 1 2)<br />     wh  (getvar "VIEWSIZE")<br />     scr (getvar "SCREENSIZE")<br />     sc  (/ wh (cadr scr))<br />     wb  (* 0.5 (* sc (car scr)))<br />     wh  (* 0.5 wh)<br />     h   (* 30 sc)<br />     d2w (append<br />     (mapcar  'append<br />       (mapcar<br />         (function (lambda (v) (trans v 0 2 t)))<br />         '((1. 0. 0.) (0. 1. 0.) (0. 0. 1.))<br />       )<br />       (mapcar 'list (trans '(0 0 0) 2 0))<br />     )<br />     '((0. 0. 0. 1.))<br />         ) ;_DCS->wcs转换矩阵<br />     )<br />     (xty-put-dxfl<br />       (vlax-vla-object->ename (car objl))<br />       '(40 72 73 10 11)<br />       (list h<br />       0<br />       0<br />       (mapcar '- cen (list wb wh))<br />       (mapcar '- cen (list wb wh))<br />       )<br />     )<br />     (xty-put-dxfl<br />       (vlax-vla-object->ename (cadr objl))<br />       '(40 72 73 10 11)<br />       (list h<br />       2<br />       0<br />       (mapcar '+ cen (list wb (- wh)))<br />       (mapcar '+ cen (list wb (- wh)))<br />       )<br />     )<br />     (xty-put-dxfl<br />       (vlax-vla-object->ename (caddr objl))<br />       '(40 72 73 10 11)<br />       (list h<br />       2<br />       3<br />       (mapcar '+ cen (list wb wh))<br />       (mapcar '+ cen (list wb wh))<br />       )<br />     )<br />     (xty-put-dxfl<br />       (vlax-vla-object->ename (cadddr objl))<br />       '(40 72 73 10 11)<br />       (list h<br />       0<br />       3<br />       (mapcar '+ cen (list (- wb) wh))<br />       (mapcar '+ cen (list (- wb) wh))<br />       )<br />     )<br />     (xty-put-dxfl<br />       (vlax-vla-object->ename (last objl))<br />       '(40 72 73 10 11)<br />       (list h 1 2 cen cen)<br />     )<br />     (foreach n objl (vla-TransformBy n (vlax-tMatrix d2w)))<br />     (cond ((= 3 gr1)<br />      (setq loop nil)<br />      (foreach n objl (vla-delete n))<br />     )<br />     )<br />   )<br />   (defun xty-make-text@w (tt t72 t73 t10 t11 th tw t50 tst /)<br />     (entmakex (list '(0 . "text")<br />         '(100 . "AcDbEntity")<br />         '(100 . "AcDbText")<br />         (cons 10 t10)<br />         (cons 1 tt)<br />         (cons 40 th)<br />         (cons 41 tw)<br />         (cons 7 tst)<br />         (cons 72 t72)<br />         (cons 11 t11)<br />         (cons 50 t50)<br />         (cons 73 t73)<br />         )<br />     )<br />   )<br />   (defun xty-put-dxf (en code ch / ent)<br />     (setq ent (entget en))<br />     (if  (xty-get-dxf code en)<br />       (entmod (subst (cons code ch) (assoc code ent) ent))<br />       (entmod (append ent (list (cons code ch))))<br />     )<br />     (entupd en)<br />   )<br />   (defun xty-put-dxfl (en code-l ch-l / ent)<br />     (setq ent (entget en))<br />     (foreach n<br />          code-l<br />       (if (xty-get-dxf n en)<br />   (setq ent (subst (cons n (car ch-l)) (assoc n ent) ent))<br />   (setq ent (append ent (list (cons n (car ch-l)))))<br />       )<br />       (setq ch-l (cdr ch-l))<br />     )<br />     (entmod ent)<br />     (entupd en)<br />   )<br /> )

xtjd

夏生生 发表于 2021-12-16 22:07
下面的代码，在非3do的情况下都可以，3do的情况下就乱了，请问您是怎么做到的？方便指导一下吗？

3DO也乱


紫薯布丁