找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1338|回复: 3

[求助] [求助]:修改TEXT实体DXF码中72值问题

[复制链接]
发表于 2008-2-17 23:44:50 | 显示全部楼层 |阅读模式

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

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

×
修改TEXT实体DXF码中72值,修改后无反应,请教如何处理?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 10417个

财富等级: 富甲天下

发表于 2008-2-18 16:16:43 | 显示全部楼层
程序是怎么写的?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2008-2-18 19:45:51 | 显示全部楼层
dxf72和dxf73,肯定可以。
下面的程序是从明经通道来的,稍微加了内部函数,你可以参考。如果想直接用,可以去mjtd下载原程序



  1. (defun C:wzq ;;;改字对齐方式;;;
  2.        (/ E EN FH FV IN PT1 PT2 S XYZ-WZQ)
  3.   (undo_begin)
  4.   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode") '(0 4 4 32 0))
  5.   (SETQ k-wzq(if k-wzq k-wzq "L"))
  6.   (while (progn
  7.            (prompt "\n选择要改 对齐方式 的TEXT,ATTDEF实体【不选=退出】:")
  8.            (setq s(ssget '((0 . "TEXT,ATTDEF")))))
  9.     (setq xyz-wzq '("左(L)""中间(M)""右(R)""中心(C)""对齐(F)"
  10.                     "左上(TL)""中上(TC)""右上(TR)"
  11.                     "左中(ML)""正中(MC)""右中(MR)"
  12.                     "左下(BL)""中下(BC)""右下(BR)")
  13.           k-wzq(dos_combolist "----" "选择一种新的对齐方式" xyz-wzq (if k-wzq k-wzq "左(L)")))
  14.     (cond
  15.       ((= k-wzq "中间(M)") (setq fh 4 fv 0))
  16.       ((= k-wzq "左(L)") (setq fh 0 fv 0))
  17.       ((= k-wzq "中心(C)") (setq fh 1 fv 0))
  18.       ((= k-wzq "右(R)") (setq fh 2 fv 0))
  19.       ((= k-wzq "对齐(F)") (setq fh 4 fv 0))
  20.       ((= k-wzq "左上(TL)")(setq fh 0 fv 3))
  21.       ((= k-wzq "中上(TC)")(setq fh 1 fv 3))
  22.       ((= k-wzq "右上(TR)")(setq fh 2 fv 3))
  23.       ((= k-wzq "左中(ML)")(setq fh 0 fv 2))
  24.       ((= k-wzq "正中(MC)")(setq fh 1 fv 2))
  25.       ((= k-wzq "右中(MR)")(setq fh 2 fv 2))
  26.       ((= k-wzq "左下(BL)")(setq fh 0 fv 1))
  27.       ((= k-wzq "中下(BC)")(setq fh 1 fv 1))
  28.       ((= k-wzq "右下(BR)")(setq fh 2 fv 1))
  29.     )
  30.     (setq in 0)
  31.     (repeat (sslength s)
  32.       (setq e(ssname s in)en(entget e)
  33.             pt1(dxf 10 en) in(1+ in)
  34.             en(subst (cons 72 fh)(assoc 72 en)en)
  35.             en(subst (cons 73 fv)(assoc 73 en)en))
  36.       (entmod en)
  37.       (setq pt2 (dxf 10 (entget e)))
  38.       (mapcar 'setvar '("pickbox""aperture""osmode") '(0 1 0))
  39.       (command "_move" e "" "non" pt2 "non" pt1)
  40.       (mapcar 'setvar '("pickbox""aperture""osmode") '(4 4 32))
  41.     )
  42.   )
  43.   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode")
  44.           '(1 4 4 32 1))
  45.   (undo_end)(princ)
  46. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-2-19 13:14:10 | 显示全部楼层
谢谢斑竹,我再试试。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-11-22 06:34 , Processed in 0.172731 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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