lisp编程文字部分求助

fangmin723 · 发表于 2017-6-5 11:47:16

然后呢？？？？？？？？？？

celcheung · 发表于 2017-6-5 13:38:24

(defun c:w1()
   (setvar "cmdecho" 0)
   (setq osm (getvar "osmode"))
   (setvar "osmode" 0)
  (setq p1 (getpoint "\n选取矩形第一点:>"))
  (setq p2 (list(+(car p1)400)(+(cadr p1)65)))
  (command "_rectang"  p1 p2)
(setq p3 (list(+(car p1)83)(+(cadr p1)7.5)))
  (command "_dtext"  p3)
(setvar "dimtxt" 50)

(setvar "dimscale" 0.5)
(setvar "400w2600")
  (setvar "osmode" osm)
  (prin1)
)

这是我编的，加上文字要求文字高度50，宽度比例0.5，放在矩形里面，同矩形一起绘制出来。

fangmin723 · 发表于 2017-6-5 14:23:58

celcheung 发表于 2017-6-5 13:38

矩形框的长宽是固定的还是随文字宽度的变化变化

fangmin723 · 发表于 2017-6-6 07:47:26

本帖最后由 fangmin723 于 2017-6-6 09:54 编辑

游客，如果您要查看本帖隐藏内容请回复

wx_EKdL75Rx · 发表于 2018-9-5 10:00:09

celcheung 发表于 2017-6-5 13:38
(defun c:w1()
(setvar "cmdecho" 0)
(setq osm (getvar "osmode"))

你是做铝模设计的？

renyonghua2014 · 发表于 2018-9-13 22:23:55

看看哪一种问题。

1784290342 · 发表于 2018-10-26 14:02:54

你这不都写出来了吗？难道写的有什么问题吗

王鹏_pBZlo · 发表于 2019-7-21 14:45:55

fangmin723 发表于 2017-6-6 07:47
**** 本内容被作者隐藏 ****

没事干随便逛逛
来自: 微社区

账号		自动登录	找回密码
密码			立即注册

[编程申请] lisp编程文字部分求助