[求助]遇到了一个很怪的事情

huanbaonan · 发表于 2007-10-2 17:04

写了一个给文字外面加外框的程序，发现文字在窗口中所占的比例竟然会对程序产生影响

不知道这个程序怎么该才能把这个bug给去掉。

xgr · 发表于 2007-10-2 17:38

很奇怪，从没有见过！

huanbaonan · 发表于 2007-10-2 17:43

唉！郁闷ing

xgr · 发表于 2007-10-2 18:29

我给你回复了，看到了吗

xgr · 发表于 2007-10-2 18:36

我试了你的程序，我的没有你说的问题，我用的是cad2006,可能是你的CAD 的问题。

另外，你的程序还要考虑捕捉的问题。不然画出来的矩形会有问题的。

ZZXXQQ · 发表于 2007-10-2 21:19

是特征点捕捉的问题。在画方框前要关捕捉。

huanbaonan · 发表于 2007-10-2 21:36

怎么考虑捕捉问题？是把捕捉关掉？希望您能指点一下

ZZXXQQ · 发表于 2007-10-2 21:50

在程序开头将变量OSMODE的值保存，在调用RECTANG命令前将OSMODE值设成零，在调用RECTANG命令后将OSMODE恢复。

(defun wk(/ wz crdzbx crdzby wzgd pyx1 pyx2 pyx3 pt1x pt1 pt2x pt2y pt2 )
(graphscr)
(setq oce (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq oldos (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq wz (entget (car (entsel "\n请选择一个文字:"))))
//找到插入点的x y坐标
(setq
crdzbx (car (cdr (assoc 10 wz)))
crdzby (cadr (cdr (assoc 10 wz)))
)
//找到字高
(setq wzgd (cdr (assoc 40 wz)))
//寻找偏移量
(setq
pyx1 (car (car (textbox wz)))
pyx2 (car (cadr (textbox wz)))
pyx3 (- pyx2 pyx1)
)
//寻找矩形的两个点
(setq
pt1x (+ crdzbx pyx1)
pt1 (list pt1x crdzby)
pt2x (+ pt1x pyx3)
pt2y (+ crdzby wzgd)
pt2 (list pt2x pt2y)
)
(command ".RECTANG" pt1 pt2)
(setvar "OSMODE" OLDOS)
(setvar "cmdecho" oce)
(princ)
)

xgr · 发表于 2007-10-2 22:06

本帖最后由作者于 2007-10-2 22:08:28 编辑

在没有把对象捕捉关闭前，程序运行时比如你画的文字的边框，会捕捉到一点去，画出来的四边形就变成一个点了。

你试试运行你自编的程序时，把捕捉打开，而且把CAD的窗口缩小，再执行你的命令，看看有什么效果，你就会明白的。

一般是在程序的开始就这样做（也不一定的，看你的程序的具体安排）

(setq oldosmode (getvar "osmode"));读取原有的变量设置
(setvar "osmode" 0);关闭对象捕捉(可以根据需求设置不同的捕捉值）

程序的结尾一般是要把原有的变量设置恢复过来，

(setvar "osmode" oldosmode)

OSMODE变量设置值：（来自CAD的help文件）

设置执行的对象捕捉模式。系统将使用下列位码值之和将该设置存储为一个位码：

0	无
1	END（端点）
2	MID（中点）
4	CEN（圆心）
8	NOD（节点）
16	QUA（象限点）
32	INT（交点）
64	INS（插入点）
128	PER（垂足）
256	TAN（切点）
512	NEA（最近点）
1024	清除所有对象捕捉
2048	APP（外观交点）
4096	EXT（延伸）
8192	PAR（平行）

要指定多个对象捕捉方式，请输入各位码值之和。例如，输入 3 可指定“端点”(位码 1) 和“中点”(位码 2) 对象捕捉模式。输入 16383 可指定所有对象捕捉模式。

使用状态行的“对象捕捉”按钮关闭对象捕捉模式，除了返回 OSMODE 的普通值，还将返回位码 16384 (0x4000)。使用该附加值，开发人员可以将此模式与“草图设置”对话框中已关闭的对象捕捉模式区别开来。设置此位码值将关闭对象捕捉。在该位码值关闭时将 OSMODE 设置为其他值可以打开对象捕捉。

huanbaonan · 发表于 2007-10-2 22:38

谢谢！就是这个问题！

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

[求助]遇到了一个很怪的事情

本帖子中包含更多资源