Lt Dan's l 发表于 2022-7-6 10:48:59

...因为我是个白痴！
 
请忽略
 
 
_______
 
我不知道为什么我会想到Angel

Sweety 发表于 2022-7-6 10:53:20

 
不，你不是。
 
任何人都会犯错误，但聪明的人不会重蹈覆辙。
 
向丹致意。
_______

harrison-matt 发表于 2022-7-6 10:57:20

好的，太好了！
 
所以我创建了文本，我试着把文本放在中间居中对齐。我做到了：
(vl-load-com)
(setq doc (vla-get-ActiveDocument (vlax-get-Acad-Object))
   spc (if (zerop (vla-get-activespace doc))
    (if (= (vla-get-mspace doc) :vlax-true)
      (vla-get-modelspace doc)
      (vla-get-paperspace doc))
    (vla-get-modelspace doc)))
(setq begin (getpoint "\nCenter of Cell: "))
(setq 3dpt (vlax-3d-POINT begin))
(if (setq inside (getstring T "\nContents within box: "))
(while (= "" inside)
   (setq inside (getstring T "\nInvalid Input, Enter Contents within box: "))))
(setq slen (strlen inside))
(SETQ TEXT (VLA-ADDTEXT spc INSIDE 3dpt 0.09375))
(vla-put-alignment text 10)
 
我知道需要更改的属性和值，但如何执行命令，使文本在对齐10（中间）的指定点处输入？
 
有什么想法吗？
马特

Lee Mac 发表于 2022-7-6 10:58:39

作为对我之前帖子的修改：
 

(defun c:test ( / inside begin tobj ) (vl-load-com)

(while (= "" (setq inside (getstring t "\nContents Within Box: ")))
   (princ "\n** You're doing it wrong **")
)

(if (setq begin (getpoint "\nPick that Center: "))
   (progn
   (setq tObj
       (vla-AddText
         (vlax-get-property (vla-get-ActiveDocument (vlax-get-acad-object))
         (if (= 1 (getvar 'CVPORT)) 'PaperSpace 'ModelSpace)
         )
         inside (vlax-3D-point begin) 0.09375
       )
   )
   (vla-put-Alignment tObj acAlignmentMiddleCenter)
   (vla-put-TextAlignmentPoint tObj (vlax-3D-point begin))
   )
)

(princ)
)

Lee Mac 发表于 2022-7-6 11:02:19

 
他在处理短信伙计

BlackBox 发表于 2022-7-6 11:05:11

 
是的，我注意到后记。。。帖子已删除。

harrison-matt 发表于 2022-7-6 11:08:46

好的，现在总结一下我的课程，你会如何使用entmake或entmakex做同样的事情？
 

Lee Mac 发表于 2022-7-6 11:11:18

(defun c:test ( / inside begin )

(while (= "" (setq inside (getstring t "\nContents Within Box: ")))
   (princ "\n** You're doing it wrong **")
)

(if (setq begin (getpoint "\nPick that Center: "))
   (entmakex
   (list
       (cons 0 "TEXT")
       (cons 10 begin)
       (cons 1 inside)
       (cons 40 0.09375)
       (cons 72 1)
       (cons 73 2)
       (cons 11 begin)
   )
   )
)

(princ)
)

Lee Mac 发表于 2022-7-6 11:16:42

需要更新，但请参见此处：
 
http://www.cadtutor.net/forum/showthread.php?44768-Entmake函数

BlackBox 发表于 2022-7-6 11:17:12

 
... 相应地向entmake和entmakex提供所需的eList数据？英雄联盟
页: 1 [2]
查看完整版本: Getstring问题