[求助]：高手可以过来帮我看看，错在哪里了。

userzhluserzhl · 发表于 2006-3-4 01:44:33

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

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

×

我的当前层是图层“7”，我要画了XLINE后回到“7”层，这样怎么就不行了？
(defun c:cc ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE")
OLDLA (GETVAR "CLAYER"))
(COMMAND "LAYER" "M" "XLINE" "C" "1" "XLINE" "")
(COMMAND "xline" "h")
(SETVAR "CMDECHO" 1)
(SETVAR "OSMODE" OLDOS)
(SETVAR "CLAYER" OLDLA)
)

ljpnb · 发表于 2006-3-4 09:07:27

[php]
(defun c:cc ()
  (SETVAR "CMDECHO" 0)
  (SETQ OLDOS (GETVAR "OSMODE")
OLDLA (GETVAR "CLAYER")
  )
  (COMMAND "LAYER" "M" "XLINE" "C" "1" "XLINE" "")
  (setq point0 (getvar "lastpoint"))
  (COMMAND "xline" "h" pause)
  (while (not (equal (getvar "lastpoint") point0 0.00001))
(setq point0 (getvar "lastpoint"))
(command pause)
  )
  (SETVAR "CMDECHO" 1)
  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CLAYER" OLDLA)
  (princ)
)
[/php]

userzhluserzhl · 发表于 2006-3-4 10:06:48

非常感谢楼上高手！
不知您有遇到过这样的问题没有，我画了一张图才700多K，操作都很正常，但下次打开不了，只显示打开到31%就死机了一样很慢，还有另一文件也是只打开到74%，我试过开机一晚上打开它都不行，后来显示内存不足，我的电脑配置也不低呀，64位AMD3000+、510内存、硬盘也是串口的8M缓存、显卡是9550，到底什么原因呢？

ljpnb · 发表于 2006-3-4 10:28:15

这可能是电脑的问题，具体是什么原因造成的我也不知道，我有时候也是开一个晚上特别是下载东西，第二天CAD有时候会突然变得象死机了一样，出现这个问题一般是打开文件或是insert时才出现，好象系统访问网络时出现一时的假死机现象

userzhluserzhl · 发表于 2006-3-4 10:39:00

楼上，你还不明白我的意思，我可以肯定不是电脑的问题，我在公司的几台电脑都试过了，打开其他的文件没有问题，就只是这个文件，我也是第一次遇到，原来的速度还是很快的，但只要一打开这个文件之后电脑就变得非常的慢，就像死机一样，但还是可以操作的。

ljpnb · 发表于 2006-3-4 11:08:41

是不是图中有块或是引用了图像

userzhluserzhl · 发表于 2006-3-4 11:48:26

楼上高手，图中是有图块！但是没有外部引用
还有我想问一下：
(defun c:XL ()
  (SETVAR "CMDECHO" 0)
  (SETQ OLDOS (GETVAR "OSMODE")
OLDLA (GETVAR "CLAYER")
  )
  (COMMAND "LAYER" "M" "XLINE" "C" "1" "XLINE" "")
  (setq point0 (getvar "lastpoint"))
  (COMMAND "xline" pause)
  (while (not (equal (getvar "lastpoint") point0 0.00001))
(setq point0 (getvar "lastpoint"))
(command pause)
  )
  (SETVAR "CMDECHO" 1)
  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CLAYER" OLDLA)
  (princ)
)

为何上面这个达不到之前的效果？
如何在建立某一图元时，让其自动归置到指定的图层？比如：BHATCH=HAT、BOUNDARY=REGION其中“HAT”“REGION”都是图层。因为我不想用Specifylayer.arx，这样加载太多的程序了。

ljpnb · 发表于 2006-3-4 12:09:37

要达到你要求的效果，如下：
[php]
(defun c:xl ()
  (SETVAR "CMDECHO" 0)
  (SETQ OLDOS (GETVAR "OSMODE")
OLDLA (GETVAR "CLAYER")
  )
  (COMMAND "LAYER" "M" "XLINE" "C" "1" "XLINE" "")
  (setq ent (entlast))
  (COMMAND "xline" pause pause)
  (while (not (equal (setq ent1(entlast)) ent))
(command pause)
(setq ent ent1)
  )
  (SETVAR "CMDECHO" 1)
  (SETVAR "OSMODE" OLDOS)
  (SETVAR "CLAYER" OLDLA)
  (princ)
)
[/php]

userzhluserzhl · 发表于 2006-3-4 12:21:00

非常感谢ljpnb
关于第二个问题呢？
“如何在建立某一图元时，让其自动归置到指定的图层？比如：BHATCH=HAT、BOUNDARY=REGION其中“HAT”“REGION”都是图层。因为我不想用Specifylayer.arx，这样加载太多的程序了。 ”
我想这也是很多人都想了解的。

ljpnb · 发表于 2006-3-4 13:03:01

对于你后一个问题，我没法搞定，等其他高手出马吧

xyp1964 · 发表于 2006-3-4 13:44:23

最初由 userzhluserzhl 发布
[B]非常感谢ljpnb
关于第二个问题呢？
“如何在建立某一图元时，让其自动归置到指定的图层？比如：BHATCH=HAT、BOUNDARY=REGION其中“HAT”“REGION”都是图层。因为我不想用Specifylayer.arx，这样加载太多的程序了... [/B]

方法一：建新层，直接在新层进行操作，适用于line、circle、……等命令的操作。
参考程序：

[FONT=courier new];;;在数字的基准点产生一个直径为比该数字值大300的圆
(defun c:test097 ()
(CMDLA0)
(setq SS (ssget '((0 . "TEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq leng (/ (atoi (xyp-get-DXF 1 s1)) 2)
pt (xyp-get-DXF 10 s1)
rad (+ leng 300)
)
(MKLA "中心线" 3)
(xyp_szx pt 100)
(MKLA "圆" 4)
(command "circle" pt rad)
)
(CMDLA1)
)[/FONT]

方法二：建新层，将新图元改层到新层，适用于copy、offset、move、……等命令的操作。
参考程序：

[FONT=courier new];;;双向偏移并改层
(defun c:test243 ()
(cmdla0)
;;自定义层名TEST
(mkla "TEST" 1)
(if (null getds)
(setq getds 100)
)
(SETQ getds (UDIST 7 "" "\n输入偏移距离<可直接量取>:" getds nil)
ss (ssget "X")
ss1 (ssget '((0 . "Arc,Circle,Ellipse,*Line")))
i -1
)
(setvar "OFFSETDIST" getds)
(setvar "osmode" 0)
(while (setq s1 (ssname ss1 (setq i (1+ i))))
(setq pts (xyp-get-CurveStartPoint s1)
pt1 (xyp-get-FaxianAtPoint s1 pts 100)
pt2 (xyp-get-FaxianAtPoint s1 pts -100)
)
(princ ".")
(command "offset" "" (list s1 pts) pt1 "")
(command "offset" "" (list s1 pts) pt2 "")
)
(command "select" (ssget "X") "r" ss "")
(command "change" (ssget "P") "" "P" "la" "TEST" "")
(cmdla1)
)[/FONT]

ljpnb · 发表于 2006-3-4 14:10:04

xyp1964 版，你举的两上例子不是userzhluserzhl 的本意，对于程序中产生的新图元是完全可以改变它的属性，最关键的是，在命令行运行一个普通命令如hatch、line、dimlinear等CAD自身命令后，产生的新图元要自动改变它的属性（如改变图层出不穷），就象以前看到一个“自动换层”的ARX工具，我想这个可以用反应器来实现。

xyp1964 · 发表于 2006-3-4 14:21:03

最初由 ljpnb 发布
[B]xyp1964 版，你举的两上例子不是userzhluserzhl 的本意，对于程序中产生的新图元是完全可以改变它的属性，最关键的是，在命令行运行一个普通命令如hatch、line、dimlinear等CAD自身命令后，产生的新图元要自动改变它... [/B]

正是属于方法一的情况！！

楼主前后意思矛盾：
既然“程序中产生的新图元是完全可以改变它的属性”的，那么“命令行运行一个普通命令如hatch、line、dimlinear等CAD自身命令后，产生的新图元”为何就不能改变它的属性了呢？!

userzhluserzhl · 发表于 2006-3-4 14:38:14

12楼楼主完全明白我的意思！我要的是：
当产生点时，自动将其归置到“POINT”层，当填充时，自动将其归置到“HAT”层。。。。。。如果没有就新建。
BHATCH=HAT
HATCH=HAT
SOLID=SOLID
SUPERHATCH=HAT
TEXT=TXT
MTEXT=TXT
DTEXT=TXT
BOUNDARY=REGION
POINT=POINT
DIVIDE=POINT

ljpnb · 发表于 2006-3-4 14:50:23

最初由 xyp1964 发布
[B][QUOTE]最初由 ljpnb 发布
[B]xyp1964 版，你举的两上例子不是userzhluserzhl 的本意，对于程序中产生的新图元是完全可以改变它的属性，最关键的是，在命令行运行一个普通命令如hatch、line、dimlinear等CAD... [/B]

xyp1964 版你还没有理解意思，比如画直线，在命令行执行CAD自带命令"LINE" ，当直线出现后，如果不去操作它，能改变它的属性吗？[/COLOR] ，答案是不能。现在要求当直线出现后它能自动改变属性！

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

[求助] [求助]：高手可以过来帮我看看，错在哪里了。

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

相关帖子