设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 单行文字
返回列表 发新帖
查看: 1667|回复: 14

[求助] 单行文字

[复制链接]
hphkjz
发表于 2013-11-8 05:19:31 来自手机 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
我lisp不好，哪位大神能给小的编一个简单的单行文字的命令，要求是在源码里面设定固定字高。我经常写同一种字高的字，不想复制过来过去
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

Free-Lancer
发表于 2013-11-8 07:13:08 来自手机 | 显示全部楼层
会设置固定字高的Style吗？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 10398个

财富等级: 富甲天下
发表于 2013-11-8 08:50:30 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(defun txt20 (pt txt)
(entmake
  (list
   '(0 . "TEXT")
   (cons 10 pt)
   '(40 . 20.0);字高20
   (cons 1 txt)
  )
)
(princ)
)
(princ "\n格式: (txt20 (getpoint) (getstring t))")

点评

hphkjz
运行时显示的参数太少是怎么回事呀？  详情 回复 发表于 2013-11-8 19:43
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hphkjz
 楼主| 发表于 2013-11-8 13:06:37 来自手机 | 显示全部楼层
谢谢，非常感谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hphkjz
 楼主| 发表于 2013-11-8 19:43:40 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
zxq0220 发表于 2013-11-8 08:50
(defun txt20 (pt txt)
(entmake
  (list

运行时显示的参数太少是怎么回事呀？

点评

newer
你是怎么用的？ 参数就是2个。  详情 回复 发表于 2013-11-8 20:37
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-11-8 20:37:36 | 显示全部楼层
hphkjz 发表于 2013-11-8 19:43
运行时显示的参数太少是怎么回事呀？

你是怎么用的？

参数就是2个。

点评

hphkjz
我用文本文档做成lsp文件，然后加载，输入命令txt20 然后就提示参数太少  详情 回复 发表于 2013-11-8 23:05
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hphkjz
 楼主| 发表于 2013-11-8 23:05:19 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
newer 发表于 2013-11-8 20:37
你是怎么用的？

参数就是2个。

我用文本文档做成lsp文件，然后加载，输入命令txt20    然后就提示参数太少

点评

zxq0220
加载后没看提示(txt20 (getpint) (getstring))  详情 回复 发表于 2013-11-9 07:28
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zxq0220

已领礼包: 10398个

财富等级: 富甲天下
发表于 2013-11-9 07:28:39 | 显示全部楼层
hphkjz 发表于 2013-11-8 23:05
我用文本文档做成lsp文件，然后加载，输入命令txt20    然后就提示参数太少

加载后没看提示(txt20 (getpint) (getstring))

点评

hphkjz
有这个提示，不过我学浅识薄不了解提示的是什么意思，盼望指示  详情 回复 发表于 2013-11-9 09:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hphkjz
 楼主| 发表于 2013-11-9 09:07:53 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
zxq0220 发表于 2013-11-9 07:28
加载后没看提示(txt20 (getpint) (getstring))

有这个提示，不过我学浅识薄不了解提示的是什么意思，盼望指示
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-11-9 09:44:39 | 显示全部楼层
hphkjz 发表于 2013-11-9 09:07
有这个提示，不过我学浅识薄不了解提示的是什么意思，盼望指示

  1. (defun c:tt (/ p str)
  2.   (defun txt20 (pt txt)
  3.     (entmake
  4.       (list
  5.         '(0 . "TEXT")
  6.         (cons 10 pt)
  7.         '(40 . 20.0) ;_字高20
  8.         (cons 1 txt)
  9.       )
  10.     )
  11.     (princ)
  12.   )
  13.   (while (and (setq p (getpoint "\nPosition: "))
  14.               (setq str (getstring t "\nString: "))
  15.          )
  16.     (txt20 p str)
  17.   )
  18.   (princ)
  19. )

点评

hphkjz
试过了，非常不错呢，好用。不过每次输完内容要按回车确认才能显示，要是输完内容鼠标点击下一个点内容自动显示出来就更好了  详情 回复 发表于 2013-11-9 10:51
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hphkjz
 楼主| 发表于 2013-11-9 10:51:16 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
st788796 发表于 2013-11-9 09:44

试过了，非常不错呢，好用。不过每次输完内容要按回车确认才能显示，要是输完内容鼠标点击下一个点内容自动显示出来就更好了

点评

eachy
调整一下输入顺序，去掉 getstring 中的 T，就可以用空格做回车了  详情 回复 发表于 2013-11-9 11:07
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

eachy

已领礼包: 593个

财富等级: 财运亨通
发表于 2013-11-9 11:07:32 | 显示全部楼层
hphkjz 发表于 2013-11-9 10:51
试过了，非常不错呢，好用。不过每次输完内容要按回车确认才能显示，要是输完内容鼠标点击下一个点内容自 ...

调整一下输入顺序，去掉 getstring 中的 T，就可以用空格做回车了
  1. (defun c:tt (/ p str)
  2.   (defun txt20 (pt txt)
  3.     (entmake (list '(0 . "TEXT")
  4.                    (cons 10 pt)
  5.                    '(40 . 20.0) ;_字高20
  6.                    (cons 1 txt)
  7.              )
  8.     )
  9.     (princ)
  10.   )
  11.   (while (and (setq str (getstring  "\nString: "))
  12.               (setq p (getpoint "\nPosition: "))
  13.          )
  14.     (txt20 p str)
  15.   )
  16.   (princ)
  17. )

点评

hphkjz
哥，下面这个代码如何修改一下改成另一个代码呢？要求(rtos d 2 0)中的d做一下修改。在d中插入公式d=num+直锚长度×锚固倍数×钢筋直径 num是直线长度，“直锚长度”“锚固倍数”“钢筋直径”需要键盘键入。  详情 回复 发表于 2013-11-27 20:52
hphkjz
嗯试过了，不错不错，谢谢兄弟啊，真是帮了个大忙了  详情 回复 发表于 2013-11-9 11:43
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hphkjz
 楼主| 发表于 2013-11-9 11:43:11 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
eachy 发表于 2013-11-9 11:07
调整一下输入顺序，去掉 getstring 中的 T，就可以用空格做回车了

嗯试过了，不错不错，谢谢兄弟啊，真是帮了个大忙了

点评

hphkjz
兄弟有个代码想请你帮忙修改一下好吗？是一个连续标注的代码。就是想在显示的数字前面再单独加个文本“长度是”，字高是固定的。并且所有的字体都要是黑体的。还望哥在代码后面给标注出来哇！ 代码是  详情 回复 发表于 2013-11-18 11:39
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hphkjz
 楼主| 发表于 2013-11-18 11:39:01 来自手机 | 显示全部楼层
hphkjz 发表于 2013-11-9 11:43
嗯试过了，不错不错，谢谢兄弟啊，真是帮了个大忙了

兄弟有个代码想请你帮忙修改一下好吗？是一个连续标注的代码。就是想在显示的数字前面再单独加个文本“长度是”，字高是固定的。并且所有的字体都要是黑体的。还望哥在代码后面给标注出来哇！
代码是
  1. (princ "\n程序：连续标注 命令：bz ")
  2. (defun c:bz ()
  3. (COMMAND "UCS" "")
  4. (setvar "cmdecho" 1)
  5. (SETVAR "OSMODE" 0)
  6. (setq AcadObject (vlax-get-acad-object)
  7. AcadDocument (vla-get-ActiveDocument Acadobject)
  8. mSpace (vla-get-ModelSpace Acaddocument)
  9.   ) ; 选取需要测量的样条曲线、圆弧、直线、椭圆
  10.   (setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))
  11.   (setq i 0) ; 获取系统参数textsize
  12.   (setq shh (getvar "textsize"))
  13. (setq str_hh (strcat "\n文字高度 <" (rtos shh 2) ">: "))
  14. (setq hh (getdist str_hh))
  15. (while hh
  16. (setvar "textsize" hh)
  17. (setq hh nil)
  18. ) ; 输入标注文字高度
  19. ; 循环开始
  20. (repeat (sslength en)
  21. (setq ss (ssname en i))
  22. (setq endata (entget ss))
  23. (command "lengthen" ss "")
  24. (setq dd (getvar "perimeter"))
  25. (princ (strcat "\n长度=" (rtos dd 2))) ; 寻找代表图层的字符串
  26. (setq aa (assoc 0 endata)) ; 获取图层名称
  27. (setq aa1 (cdr aa)) ; 判断线条种类
  28. (cond
  29. ((= aa1 "SPLINE") ; 如果是spline
  30. (progn
  31. (setq arcObj (VLAX-ENAME->VLA-OBJECT ss))
  32. (setq startPnt1 (vla-get-ControlPoints arcObj))
  33. (setq p1 (vlax-safearray->list (vlax-variant-value startPnt1)))
  34. (setq x1 (car p1))
  35. (setq y1 (cadr p1))
  36. (setq z1 (caddr p1))
  37. (setq pp1 (list x1 y1 z1))
  38. (repeat (- (/ (length p1) 3) 1) ; 循环，寻找最后一个控制点
  39. (setq p1 (cdddr p1))
  40. (setq x2 (car p1))
  41. (setq y2 (cadr p1))
  42. (setq z2 (caddr p1))
  43. )
  44. (setq pp2 (list x2 y2 z2))
  45. )
  46. )
  47. ((= aa1 "LWPOLYLINE") ; 如果是LWPOLYLINE
  48. (progn
  49. (setq arcObj (VLAX-ENAME->VLA-OBJECT ss))
  50. (setq startPnt1 (vla-get-Coordinates arcObj))
  51. (setq p1 (vlax-safearray->list (vlax-variant-value startPnt1)))
  52. (setq x1 (car p1))
  53. (setq y1 (cadr p1))
  54. (setq z1 (caddr p1))
  55. (setq pp1 (list x1 y1 z1))
  56. (repeat (- (/ (length p1) 3) 1) ; 循环，寻找最后一个控制点
  57. (setq p1 (cdddr p1))
  58. (setq x2 (car p1))
  59. (setq y2 (cadr p1))
  60. (setq z2 (caddr p1))
  61. )
  62. (setq pp2 (list x2 y2 z2))
  63. )
  64. )
  65. (t ; 如果是其他种类线条
  66. (progn
  67. (setq arcObj (VLAX-ENAME->VLA-OBJECT ss))
  68. (setq startPnt1 (vla-get-StartPoint arcObj)) ; 获取起点
  69. (setq endPnt1 (vla-get-EndPoint arcObj)) ; 获取终点
  70. (setq pp1 (vlax-safearray->list (vlax-variant-value startPnt1)))
  71. (setq pp2 (vlax-safearray->list (vlax-variant-value endPnt1)))
  72. )
  73. )
  74. )
  75. (setq x1 (car pp1))
  76. (setq y1 (cadr pp1))
  77. (setq z1 (caddr pp1))
  78. (setq x2 (car pp2))
  79. (setq y2 (cadr pp2))
  80. (setq z2 (caddr pp2))
  81. (setq x (/ (+ x1 x2) 2))
  82. (setq y (/ (+ y1 y2) 2))
  83. (setq z (/ (+ z1 z2) 2))
  84. (setq pt (list x y z)) ; 取得线段两端的中点
  85. (setq ang (angle pp1 pp2)) ; 获取角度
  86. (if (> (* (/ ang pi) 180) 180)
  87. (setq ang (+ ang pi))
  88. )
  89. (command "text" "j" "bc" pt "" (* (/ ang pi) 180) (strcat "" (rtos dd 2 0)) "")
  90. (setq i (1+ i))
  91. )
  92. (prin1)
  93. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hphkjz
 楼主| 发表于 2013-11-27 20:52:18 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
eachy 发表于 2013-11-9 11:07
调整一下输入顺序，去掉 getstring 中的 T，就可以用空格做回车了

哥，下面这个代码如何修改一下改成另一个代码呢？要求(rtos d 2 0)中的d做一下修改。在d中插入公式d=num+直锚长度×锚固倍数×钢筋直径 num是直线长度，“直锚长度”“锚固倍数”“钢筋直径”需要键盘键入。

  1. (defun XD::String:ActualWidth (str sty h scl)
  2.   (and
  3. (or
  4. (not sty)
  5. (= sty "")
  6. (not (tblsearch "style" sty))
  7. )
  8. (setq sty (getvar "textstyle"))
  9. )
  10. (abs (car (apply
  11. 'mapcar
  12. (cons '-
  13. (textbox (list (cons 1 str)
  14. (cons 7 sty)
  15. (cons 40 h)
  16. (cons 41 scl)
  17. )
  18. )
  19. )
  20. )
  21. )
  22. )
  23. )
  24. (defun c:tt (/ ss zh)
  25. (if
  26. (and (setq ss (ssget '((0 . "*line,arc,ellipse"))))
  27. (progn
  28. (if (= (setq
  29. zh (getstring (strcat "\n字高<"
  30. (rtos (getvar "textsize") 2 2)
  31. ">: "
  32. )
  33. )
  34. )
  35. ""
  36. )
  37. (setq zh (getvar "textsize"))
  38. (setvar "textsize" (distof zh))
  39. )
  40. (setq zh (getvar "textsize"))
  41. )
  42. )
  43. (mapcar
  44. '(lambda (x / d pmid an txt2)
  45. (setq d (xdrx_curve_getdistatpoint
  46. x
  47. (xdrx_curve_getendpoint x)
  48. )
  49. pmid (cadr (xdrx_curve_getpoint x))
  50. an (XD::Geom:AngleFormat
  51. (angle '(0. 0. 0.) (xdrx_curve_getfirstderiv
  52. x (xdrx_curve_getparamatpoint x pmid)
  53. )
  54. )
  55. )
  56. txt2 (xdrx_text_make
  57. pmid
  58. (rtos d 2 0)
  59. zh
  60. an
  61. )
  62. )
  63. (xdrx_text_setvermode txt2 1) ;_顺序不同会自动调整位置
  64. (xdrx_text_sethozmode txt2 1)
  65. (xdrx_text_make
  66. (polar pmid
  67. pi
  68. (+ (/ d 2.) (XD::String:ActualWidth "长度是" "" zh 1.))
  69. )
  70. "长度是"
  71. zh
  72. an
  73. )
  74. )
  75. (xdrx_pickset->ents ss)
  76. )
  77. )
  78. (princ)
  79. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-15 09:15 , Processed in 0.429218 second(s), 67 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表