明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1750|回复: 12

[LISP群(1)] 2013-09-16 明经 AutoLISP 编程(102918348) 群聊记录:明经里面的悬赏贴怎么设为以解决?

 关闭 [复制链接]
发表于 2013-9-16 11:40:14 | 显示全部楼层 |阅读模式
[328302216][328302216]小莫 11:40:14
明经里面的悬赏贴怎么设为以解决?
[【KAIXIN】] [【KAIXIN】]炫翔 11:47:10
需要版主以上身份吧
[328302216][328302216]小莫 11:48:39
额   那你能否帮我把http://bbs.mjtd.com/thread-107587-1-1.html
这个贴弄成已解决呢?
我在猫老师的指点下自己琢磨出来了
[q3_2006]q2 11:49:08
[【KAIXIN】] [【KAIXIN】]炫翔 11:49:09
我现在不是版主了
[328302216][328302216]小莫 11:49:51
哦...
[【KAIXIN】] [【KAIXIN】]炫翔 11:50:16
玩好了?
[q3_2006]q2 11:50:19
来段演示呗。。
[328302216][328302216]小莫 11:50:24
主要是他里面有“隐藏”的变量
[【KAIXIN】] [【KAIXIN】]炫翔 11:50:26
图像按钮可以?
点变量?
[328302216][328302216]小莫 11:50:52
现在还没完全弄好呢   只是思路问题解决了
[q3_2006]q2 11:51:23
必须的。。
[【KAIXIN】] [【KAIXIN】]炫翔 11:51:33
隐藏的变量  无非是循环得来的
[328302216][328302216]小莫 11:52:10
呵呵  好 !  不过可能还要过好些天才能弄好,明后天都有事可能没空弄
[【KAIXIN】] [【KAIXIN】]炫翔 11:52:16
循环 变量名加一 后面的内容跟着变
[328302216][328302216]小莫 11:52:53
嗯嗯 就是循环得来的,因为原来有几个变量不太懂所以就卡在那里了
[【KAIXIN】] [【KAIXIN】]炫翔 11:52:54
加一只是个最简单直接的
也可以是A B C D...
[328302216][328302216]小莫 11:53:03
是几个函数
[【KAIXIN】] [【KAIXIN】]炫翔 11:53:09
思路通了 就好办
[q3_2006]q2 11:54:49
触类旁通
 楼主| 发表于 2013-9-16 12:35:05 | 显示全部楼层
[kwok][ww5w]行舟月下 12:35:05
请教一下,
(vl-cmdf "rename" "layer" "00" "a1")
(vl-cmdf "rename" "layer" "02" "a2")
上面这个改图层名的,如果不存在这个00图层时怎么自动怱略跳过?
[HNFSF](看海) 12:37:15
先判断
 楼主| 发表于 2013-9-16 12:55:16 | 显示全部楼层
[q3_2006]q2 12:55:16
(tblsearch "layer" layname)
 楼主| 发表于 2013-9-16 13:26:01 | 显示全部楼层
[kwok][ww5w]行舟月下 13:26:01
tblsearch可以同时查找多个图层名不?
[q3_2006]q2 13:26:41
应该不能吧。。
[kwok][ww5w]行舟月下 13:26:49
(tblsearch "layer" " 01, 02")这要可以不?
[q3_2006]q2 13:26:57
可以试试通配符
[kwok][ww5w]行舟月下 13:26:59
我试了一下好象不行
[pzweng][pzweng]路人 13:32:22
用foreach
 楼主| 发表于 2013-9-16 14:30:17 | 显示全部楼层
[OWEN7][qqou7]clever 14:30:17
[tryhi]大海 14:30:19
[OWEN7][qqou7]clever 14:30:20
[qqimg]201309/{1AD49BC0-7528-E289-FC70-32691B0BDFF1}.jpg[/qqimg]哎,贴个程序那么难呢
求 程序
[tryhi]大海 14:31:35
如何用一个多边形去切另外的多边形
[qqimg]201309/{25EF2164-0BB6-88DC-F116-0FC125E69DD4}.jpg[/qqimg]
白线的两个多边形是要准备切的,
红线是拿来切它们的,
绿线是生成的结果。

要切完之后生成的绿线跟原来的白线同一个图层,不知道怎么弄
 楼主| 发表于 2013-9-16 15:54:14 | 显示全部楼层
[tryhi]大海 15:54:14
请问一下变量支不支持数组的
或者类似数组
[pzweng][pzweng]路人 15:58:53
[tryhi]大海 16:07:21
请问格式怎样的
[yybu]yy 16:12:52
谁能给个64位的cad2004下载链接
[q530496591][q530496591]小菜鸟 16:13:52
这我也真不知
只听说过08以上的是64的
[yybu]yy 16:15:25
软件只支持2004,难道还要重装系统
[tryhi]大海 16:16:37
我用WIN7x64,还装CAD2002呢
[q530496591][q530496591]小菜鸟 16:17:15
听说有可以搞个双系统的
再装个32位的
 楼主| 发表于 2013-9-16 16:27:39 | 显示全部楼层
[tryhi]大海 16:27:39
使用region面域的时候有什么办法可以保留图层
比如有一个多段线是在1图层,但使用了region之后却变成了0图层,有什么办法可以避免
[pzweng][pzweng]路人 16:28:29
entlast
[tryhi]大海 16:30:07
懂了
[q3_2006]q2 16:35:38
CLAYER=1图层
 楼主| 发表于 2013-9-16 16:48:16 | 显示全部楼层
[LC100]建筑设计 16:48:16
[qqimg]201309/{EEE97493-E47C-665D-C9EF-E5A1088EAC2E}.jpg[/qqimg]
光标
[vormittag]桔子 16:48:49
ucs w
plan w
[LC100]建筑设计 16:49:25
哦。3ks
[caoyin][caoyin] 16:50:06
这种现象也有可能是光标角度被调整
SNAPANG 0
[LC100]建筑设计 16:52:10
改光标没什么,在拉伸命令框选的时候还是不能斜着用,只能画线,什么的。
[caoyin][caoyin] 16:52:30
[caoyin][caoyin] 16:53:04
请教桔子兄,模型空间视图扭曲你是如何实现的
[vormittag]桔子 16:53:32
模型空间视图扭曲?
[caoyin][caoyin] 16:53:41
是的
[q3_2006]q2 16:53:46
有图吗,怎么个[qqimg]201309/{A9E51867-AAC4-644F-ACBC-74E83986EFBF}.jpg[/qqimg]法
[vormittag]桔子 16:54:01
没明白是什么意思。
[caoyin][caoyin] 16:54:15
扭曲前[qqimg]201309/{EA9E1F84-336A-108E-33B7-EECAB253F6A7}.jpg[/qqimg]
[qqimg]201309/{FFF26B4E-4768-C306-A9CF-347F6D89965B}.jpg[/qqimg]
扭曲后
[q3_2006]q2 16:54:56
这是旋转吧。。
[caoyin][caoyin] 16:55:16
[qqimg]201309/{33C8774B-CF77-9974-05F0-731EDAE601CA}.jpg[/qqimg]
原有对象没有编辑
[q3_2006]q2 16:55:55
ucs
[caoyin][caoyin] 16:56:05
只是视图扭曲,相当于布局中视口扭曲
[vormittag]桔子 16:56:07
自定义一个ucs,平面放在ucs的xy平面上,不是这样的么?
[caoyin][caoyin] 16:57:04
视口的扭曲是这个函数 vla-put-TwistAngle
等下 我发个图给你看看
[tryhi]大海 16:57:42
[qqimg]201309/{E57E30CC-E16C-6158-82CB-5D8309E408D1}.jpg[/qqimg]
这个多段线没办法用region面域,有没有解决的方法
[tryhi]大海 16:58:55
[qqimg]201309/{265BBB28-606C-AD90-5B3A-9EFA581D1176}.jpg[/qqimg]
这样画的
[caoyin][caoyin] 16:59:20
上传的文件中,视图扭曲了90度
[LC100]建筑设计 17:00:06
你要将3维坐标显示出来才看得见嘛。
[caoyin][caoyin] 17:00:15
因为视口扭曲有现成的函数,视口扭曲不知道如何操作
[LC100]建筑设计 17:00:23
你说的这个是3维观察吧?
[caoyin][caoyin] 17:00:24
呵呵,不是旋转
[q3_2006]q2 17:00:33
UCS
[LC100]建筑设计 17:00:55
[qqimg]201309/{9D3D8C19-9502-B1EA-8674-4A6F9C1130E1}.jpg[/qqimg]
[caoyin][caoyin] 17:01:05
这样,你把文件中的对象复制到其他文档试试看
[LC100]建筑设计 17:01:05
你要给这个东西给大家看啊。
[q3_2006]q2 17:01:39
这个费劲呀。。
[vormittag]桔子 17:01:53
这样不行么?
[caoyin][caoyin] 17:02:10
[qqimg]201309/{A7FF374D-92B7-A178-5423-56278664515D}.jpg[/qqimg]
[LC100]建筑设计 17:02:18
其它他是改了当前坐标系
[caoyin][caoyin] 17:02:23
从一个文档复制到一个新文档
就是上面两张截图
[LC100]建筑设计 17:02:54
你当前坐标系,跟新建的坐标系不一样。
[LC100]建筑设计 17:03:25
你输入plan w就变成正常的了。
[caoyin][caoyin] 17:03:50
是的
我的意思是LISP如何实现扭曲
[LC100]建筑设计 17:04:23
[qqimg]201309/{9828544B-305A-6B0A-2819-FB60FD8B2123}.jpg[/qqimg]
[vormittag]桔子 17:04:25
其实都没有变化,把新文档里建立一个原文档视图对应的ucs, 然后plan一下,就行了。
[LC100]建筑设计 17:04:33
输入plan 然后看提示
[vormittag]桔子 17:05:56
viewpoint 应该有表示当前视图的法向量吧。
[caoyin][caoyin] 17:06:18
LISP如何实现,桔子兄
[vormittag]桔子 17:06:54
我看看。
[vormittag]桔子 17:09:53
viewtwist 和viewdir 都是只读的系统变量,md
[caoyin][caoyin] 17:11:06
VLISP只提供了视口的扭曲函数
[vormittag]桔子 17:11:28
模型空间不能操作是吧?
[caoyin][caoyin] 17:11:37
是的
[vormittag]桔子 17:11:58
只能自定义ucs ,然后plan 了
[caoyin][caoyin] 17:12:12
[caoyin][caoyin] 17:13:08
我都是用dview命令操作的
[caoyin][caoyin] 17:13:40
[qqimg]201309/{D86318AB-3D4E-F0F3-E1B7-911D2D487D1A}.jpg[/qqimg]
[pzweng][pzweng]路人 17:15:48
有什么用处
[vormittag]桔子 17:16:42
算出需要的ucs,然后plan, 自动的办法我只能想到这个。
[q3_2006]q2 17:23:26
(command "" "DVIEW" tw 90 "")
[q3_2006]q2 17:27:51
错了,这样 (COMMAND "DVIEW" "L" "" "TW" 90 "")
[LC100]建筑设计 17:28:29
TW台弯
[q3_2006]q2 17:28:53
tw指他说的扭曲
选项
 楼主| 发表于 2013-9-16 18:53:58 | 显示全部楼层
[VBALISPER]恐龙 18:53:58
cad2004有64位的吗
[LC100]建筑设计 18:54:00
不标这样了,怎么调回来。
plan w行了。
 楼主| 发表于 2013-9-16 20:24:59 | 显示全部楼层
[VBALISPER]恐龙 20:24:59
请问一下.VLISP里只有vla-get-Length,没有 vla-put-Length,是写掉了还是本来就没有这个
[ZZXXQQ] 20:25:58
PUT到哪里去?
[VBALISPER]恐龙 20:26:15
想修改线的长度.
[q530496591][q530496591]小菜鸟 20:26:18
他说改变长度的意思。
[VBALISPER]恐龙 20:27:09
Length 双精度;只读 
  线的长度。 
好象是不能改哈.
[pzweng][pzweng]路人 20:27:19
有ro就不能改
[ZZXXQQ] 20:27:29
可线条的种类很多,有的无法实现长度的改变
[q530496591][q530496591]小菜鸟 20:27:50
是改变什么的?直线还是弧啊?都不能改么?
[VBALISPER]恐龙 20:28:01
哦.多段线
[死者不舞] 20:30:01
哪位朋友有lisp读取excel的书,或者资料没有?
[q530496591][q530496591]小菜鸟 20:30:20
魔法书有啊
[浮世小半生]X 20:31:22
cad 自带的len命令就可以改长度啊
[VBALISPER]恐龙 20:33:45
浮世小半生,谢谢
[邹锋]Tony 20:33:51
[qqimg]201309/{547E4433-92F8-CA33-7733-1D094C251A6C}.jpg[/qqimg]
这是什么意思
[浮世小半生]X 20:35:18
嗯 真有礼貌
[zark]虚心请教 20:39:15
我只是忘了怎么展开了。
[vormittag]桔子 20:40:04
主要是这两个函数,一个是点积,一个是矩阵与向量的乘积。
至于放大和向量相加都很简单。
用一个lambda函数就可以了。
[zark]虚心请教 20:41:06
可是我都不懂怎么展开
全部还给老湿了
[qqimg]201309/{8F241E70-545E-ABD5-A5D4-2A755C93DD9C}.jpg[/qqimg]像这表达式,X2=。。。。。。
[vormittag]桔子 20:41:48
矩阵运算不会?
[zark]虚心请教 20:41:54
[vormittag]桔子 20:42:49
x2= (1+m)*(1*x1+wx*y1-wy*z1)+deltaX
[vormittag]桔子 20:43:24
矩阵行向量与列向量的点积。
[zark]虚心请教 20:43:43
应该是-WX*Y1吧
[vormittag]桔子 20:43:54
w就是欧米伽
[zark]虚心请教 20:43:57
有点想起来了
[vormittag]桔子 20:44:13
都是加
行列式计算才是有加有减
[zark]虚心请教 20:44:43
你括号里面WX好像要写成WZ
[zark]虚心请教 20:45:22
哦。大学没好好学,唉
[vormittag]桔子 20:45:26
矩阵里是行向量与 向量的点积。
[vormittag]桔子 20:45:56
[qqimg]201309/{5096B3E7-614E-1DFD-E311-0F322C197DF5}.jpg[/qqimg]
[zark]虚心请教 20:46:15
就是横*纵。都是+
谢谢哈
[zark]虚心请教 20:47:50
上面这个是七参数求解。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-6 03:41 , Processed in 0.208751 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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