关于函数redraw用法

GTJ116600 · 发表于 2013-6-2 17:45:03

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

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

×

(defun c:cala()
(setvar "cmdecho" 0)
(setq ent (car (entsel "\n请选择要量测面积的圆和多段线")))
(while ent
(redraw ent 3)
(command "area" "o" ent)
(setq aa (getvar "area"))
(princ (strcat "\n实体面积为" (rtos aa 2)))
(setq old_hh (getvar "textsize"))
(setq pt (getpoint "\n请选择文字插入点:"))
(setq hh (getdist pt (strcat "\n文字高度<" (rtos old_hh 2) ">")))
(if (null hh)(setq hh old_hh))
(command "text" pt hh 0 (strcat "实体面积为" (rtos aa 2)))
(setq entb (car (entsel "\n请选择要量测面积的圆和多段线")))
(if (null entb)(progn (redraw ent 4) (setq ent entb)))
)
(princ)
)

请各位版主和高手看看，求实体面积时，怎样用redraw实现选择物体时高亮显示，选择下一个实体时，刚才选择的物体正常显示，新选择的物体高亮显示。

仲文玉 · 发表于 2013-6-2 17:51:50

执行下一循环前加上：(redraw ent 4);取消高亮

仲文玉 · 发表于 2013-6-2 18:03:39

建议文字高度、设置放在循环外，多用entmake

(defun c:tt ()
(setvar "cmdecho" 0)
(setq ent (car (entsel "\n请选择要量测面积的圆和多段线")))
(while ent
(redraw ent 3)
(command "area" "o" ent)
(setq aa (getvar "area"))
(princ (strcat "\n实体面积为" (rtos aa 2)))
(setq old_hh (getvar "textsize"))
(setq pt (getpoint "\n请选择文字插入点:"))
(setq hh (getdist pt (strcat "\n文字高度<" (rtos old_hh 2) ">")))
(if (null hh)(setq hh old_hh))
(command "text" pt hh 0 (strcat "实体面积为" (rtos aa 2)))
(redraw ent 4)
(setq ent (car (entsel "\n请选择要量测面积的圆和多段线")))
)
(princ)
)

Lispboy · 发表于 2013-6-2 18:20:00

本帖最后由 Lispboy 于 2013-6-2 18:27 编辑

为什么不

  (while (setq ent (car (entsel "\n请选择要量测面积的圆和多段线<退出>:")))
......
  )

取消循环里面的 (setq ent (car (entsel "\n请选择要量测面积的圆和多段线<退出>:")))

佟版主说的对，每次循环你都希望修改高度吗？不需要的放到循环外面。

Lispboy · 发表于 2013-6-2 18:22:58

本帖最后由 Lispboy 于 2013-6-2 18:24 编辑

另外建议楼主，判断下实体类型，不是曲线类的，过滤掉。要不程序可能有错误情况。
还有，求面积尽量用函数，别用COMMAND，求面积VLISP有现成的函数 vla-get-area

Free-Lancer · 发表于 2013-6-2 19:04:05

亮显还可以用highlight方法来自: Android客户端

GTJ116600 · 发表于 2013-6-2 22:46:03

本帖最后由 GTJ116600 于 2013-6-2 23:02 编辑

谢谢文玉，lispboy和Free-lancer的耐心指导。

GTJ116600 · 发表于 2013-6-2 23:04:20

Lispboy 发表于 2013-6-2 18:22
另外建议楼主，判断下实体类型，不是曲线类的，过滤掉。要不程序可能有错误情况。
还有，求面积尽量用函数 ...

您好lispboy，怎样判断实体是曲线类型和非曲线类型呀？

GTJ116600 · 发表于 2013-6-2 23:05:24

Lispboy 发表于 2013-6-2 18:20
为什么不

对，这样跟精简

GTJ116600 · 发表于 2013-6-2 23:07:00

Free-Lancer 发表于 2013-6-2 19:04
亮显还可以用highlight方法

Free-lancer，您能说的更详细些或给个链接么？

Free-Lancer · 发表于 2013-6-2 23:16:22

看help的ActiveX Model 中AcDbCurve类包括 line lightweightpolyline arc circle spline ellipse polyline ，过滤时可以这样 '((0 . "*line,arc,circle,ellipse")), region和hatch(可能没有面积)不属于curve，不能用vlax-curve-getarea，但object都可以用vla-get-area来自: Android客户端

Lispboy · 发表于 2013-6-2 23:46:19

GTJ116600 发表于 2013-6-2 23:04
您好lispboy，怎样判断实体是曲线类型和非曲线类型呀？

得到实体后，

(setq ed (entget e)
cl (cdr (assoc 0 ed))
isCurve (wcmatch cl "*line,arc,circle,ellipse")
)

Free-Lancer · 发表于 2013-6-3 08:09:54

本帖最后由 Free-Lancer 于 2013-6-3 08:18 编辑

GTJ116600 发表于 2013-6-2 23:07
Free-lancer，您能说的更详细些或给个链接么？

摘自 Help ActvieX and VBAReference 的 Methods

设置给定对象或给定选择集中所有对象的亮显状态。

语法 object.Highlight HighlightFlag

Object 所有图形对象, AttributeReference  Group 使用该方法的对象

HighlightFlag  Boolean[布尔值]; 仅用于输入 TRUE: 对象亮显。FALSE: 消除对象的亮显。

说明当为对象设置亮显标志后，应调用 Update或 Regen方法以查看更改效果

注意该功能不能返回对象的当前亮显状态。

示例: (摘自 Autolisp葵花宝典)
[pcode=lisp,true]
(defun c:al-highlight ()
(vl-load-com)
  (setq util (vla-get-utility  (vla-get-activedocument  (vlax-get-acad-object))))
  (vla-getentity util 'obj 'ip "\nSelect Object: ")
  (vla-Highlight obj 1)
(princ)
);defun[/pcode]

GTJ116600 · 发表于 2013-6-3 09:57:25

Lispboy 发表于 2013-6-2 23:46
得到实体后，

非常感谢Lispboy

GTJ116600 · 发表于 2013-6-3 09:58:39

Free-Lancer 发表于 2013-6-3 08:09
摘自 Help ActvieX and VBAReference 的 Methods

设置给定对象或给定选择集中所有对象的亮显状态。

谢谢Free-Lancer 。

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

[求助] 关于函数redraw用法

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

RE: [code=lisp](defun c:cala()redraw用法

点评

点评

点评

点评

点评

点评

评分

点评

评分

点评