明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 2095|回复: 11

[LISP群(1)] 2013-09-26 明经 AutoLISP 编程(102918348) 群聊记录:嗨,大家晚上好;

 关闭 [复制链接]
发表于 2013-9-26 06:10:20 | 显示全部楼层 |阅读模式
[tiyi8888]永远D痛 06:10:20
嗨,大家晚上好;
 楼主| 发表于 2013-9-26 08:12:43 | 显示全部楼层
[stoyer][stoyer] 08:12:43
呃,是好牛啊
[xieling888] 08:15:54
签到
 楼主| 发表于 2013-9-26 08:29:12 | 显示全部楼层
[pzweng][pzweng]路人 08:29:12
 楼主| 发表于 2013-9-26 09:06:22 | 显示全部楼层
[Sign88]宁波标志 09:06:22
请教一下  大家
加载lisp 时 CAD能记住 上次加载LISP的路经   哪这个路径用lisp怎么获取
[qqimg]201309/{A4DFE4B6-ACB5-B4EA-18F7-62D29302FFC1}.jpg[/qqimg]
[ken_1_1] 09:07:15
[qqimg]201309/{F29C76E3-70FD-BA4D-D450-EAADAA9B0B4A}.jpg[/qqimg]
[Sign88]宁波标志 09:08:23
具体是哪个注册表呢
[pzweng][pzweng]路人 09:08:39
自己建一个项
你查看一下VL-开头的函数
[死者不舞] 09:13:04
怎么使用ssget小于0.1的数字,数字是mtext,text
选取小于0.1
[stoyer][stoyer] 09:14:44
text的内容是string啊,可以用ssget吗?
 楼主| 发表于 2013-9-26 13:05:43 | 显示全部楼层
[pzweng] 13:05:43
排序是个关键
13:05:44
我这个有三维立体图看的,可以把挖填区域一块一块地拉出来看。
可以在施工放样中自动计算桩位坐标。
[pzweng] 13:05:44
里面的例子讲的很清楚
13:05:44
好牛
[pzweng] 13:05:45
要放到注册表里吧
[xiaomm250][lisp_](car (entsel)) 13:06:05
(setq sel (ssget "_" '((0 . "TEXT"))))   这句话是什么意思呢?
[q3_2006]q2 13:11:56
试试呗。。也许你的对!
[xiaomm250][lisp_](car (entsel)) 13:13:04
[qqimg]201309/{BD4BA505-2BBB-A51C-3449-C94733CFA174}.jpg[/qqimg]
为什么这儿没有 "_"呢?
[q3_2006]q2 13:16:26
都说了你测试一下就清楚了!
看下区别在哪里!
[xiaomm250][lisp_](car (entsel)) 13:22:54
那_:是什么意思呢?
[q3_2006]q2 13:25:36
我那知道,就是照搬的。。
[Sign88]宁波标志 13:30:59
谁有 CAD   各个版本的 版本号
就是 ACADVER 出来的哪个
 楼主| 发表于 2013-9-26 14:10:15 | 显示全部楼层
[Sign88]宁波标志 14:10:15
?AUTOCAD各个版本的 版本号
 楼主| 发表于 2013-9-26 14:35:11 | 显示全部楼层
[pzweng][pzweng]路人 14:35:11
你这是要干嘛
"16.2s (LMS Tech)"
 楼主| 发表于 2013-9-26 15:04:21 | 显示全部楼层
[Sign88]宁波标志 15:04:21
谢谢   这个是2006的吧
[Sign88]宁波标志 15:04:51
我需要针对不同版本的 有不同处理
[Sign88]宁波标志 15:13:03
[qqimg]201309/{A7BE4653-8F81-8EB5-A58A-A4A283799E89}.jpg[/qqimg]
这个变量不知做什么用的
[pzweng][pzweng]路人 15:16:49
你复制一下
别抓图
[浮世小半生]X 15:17:31
[pzweng]路人 会odcl吗?
[pzweng][pzweng]路人 15:18:07
不会哦
[浮世小半生]X 15:18:15
[Sign88]宁波标志 15:18:50
命令: nfwstate

NFWSTATE = 1 (只读)
环境变量找不到这个
不知什么意思
[pzweng][pzweng]路人 15:19:30
[$(if,$(eq,$(getvar,nfwstate),0),~)
系统变量
[Sign88]宁波标志 15:21:50
就是 系统变量  没有
[pzweng][pzweng]路人 15:22:07
应该是低版本的
[Sign88]宁波标志 15:22:28
关键是    不知道什么意思
我想知道
[pzweng][pzweng]路人 15:22:54
你有没有R14版的CAD
[Sign88]宁波标志 15:23:05
没有
路人
能帮我查查看吗?
[pzweng][pzweng]路人 15:26:20
[Sign88]宁波标志 15:26:49
我这上不了外网的
[Sign88]宁波标志 15:27:49
真的抱歉   如果可以  能拷贝给我吗
[pzweng][pzweng]路人 15:29:01
Description of the variable NFWSTATE:
Indicates the status of the New features window
我也上不了
[Sign88]宁波标志 15:29:35
谢谢
[Sign88]宁波标志 15:30:13
哪算了
难道是这个的缩写
Indicates the status of the New features window
[pzweng][pzweng]路人 15:30:21
有可能
[q3_2006]q2 15:30:49
New features window state
[pzweng][pzweng]路人 15:31:01
新特性窗口?
[q3_2006]q2 15:31:04
应该就是字面的意思
[Sign88]宁波标志 15:31:12
哪就这么理解吧
[pzweng][pzweng]路人 15:32:11
谁英语好点
[q3_2006]q2 15:32:23
新功能窗口的状态_直译
都不行
[Sign88]宁波标志 15:32:48
[qqimg]201309/{6E121964-FEDD-E5CA-F00F-821E5761C9C9}.jpg[/qqimg]
这是注册表 该变量
[pzweng][pzweng]路人 15:33:12
干啥子用的
[q3_2006]q2 15:33:13
1
[Sign88]宁波标志 15:33:42
应该是标记是否记录的新对话框的信息
[q3_2006]q2 15:34:00
怎么翻出来的,找都找不到
[浮世小半生]X 15:34:07
[q3_2006]q2 ->会odcl不
[q3_2006]q2 15:34:23
不会,全瞎!
[pzweng][pzweng]路人 15:34:26
dcl会点
[q3_2006]q2 15:34:33
只会院长的函数
[浮世小半生]X 15:34:34
[pzweng][pzweng]路人 15:35:00
你把nfwstate设为0会是什么样
[Sign88]宁波标志 15:35:20
是只读的
[q3_2006]q2 15:35:37
不是写了吗,只读
NFWSTATE = 1 (只读)
[Sign88]宁波标志 15:36:01
这个就这样    我大致理解了 
谢谢大家
[pzweng][pzweng]路人 15:36:26
在注册表里改
不是在CAD里改
[pzweng][pzweng]路人 15:37:41
奇怪了
[Sign88]宁波标志 15:37:50
我懂得  不折腾
[pzweng][pzweng]路人 15:38:01
我在注册表里改成0
重启CAD后自动变成1了
[q3_2006]q2 15:38:25
只读能改吗?
[【KAIXIN】] [【KAIXIN】]炫翔 15:38:51
不能
[pzweng][pzweng]路人 15:39:23
在注册表里
说了注册表里改
讲半天听不懂一样
[q3_2006]q2 15:39:42
我试度
当然不懂,只会点CAD
[【KAIXIN】] [【KAIXIN】]炫翔 15:40:37
你当注册表是一个文本文档
这样就理解了
[Sign88]宁波标志 15:41:56
大家 不要激动  真的激动应该在完成一个自己都认为难以完成的程序后才需要激动一下下
[pzweng][pzweng]路人 15:42:25
我知道了
应该是我想的意思
[Sign88]宁波标志 15:42:58
哈哈
[【KAIXIN】] [【KAIXIN】]炫翔 15:43:19
不要把事情想的太复制
[浮世小半生]X 15:43:28
[【KAIXIN】] [【KAIXIN】]炫翔 15:43:37
理解了是啥玩意 能干啥就容易多了
[pzweng][pzweng]路人 15:43:46
[【KAIXIN】] [【KAIXIN】]炫翔 15:43:51
盲目的操作 那是自寻折腾
[pzweng][pzweng]路人 15:44:11
我知道那个变量是干嘛用的
[浮世小半生]X 15:44:15
开心版主 会odcl不
[【KAIXIN】] [【KAIXIN】]炫翔 15:44:22
不会
不打算研究那玩意
[浮世小半生]X 15:44:35
[pzweng][pzweng]路人 15:44:40
什么是0cdl
[【KAIXIN】] [【KAIXIN】]炫翔 15:44:47
明总说 请珍惜生命
[浮世小半生]X 15:44:50
odcl 打错了
[q3_2006]q2 15:44:51
[qqimg]201309/{0392A65F-B44A-569E-BEC8-153918109389}.jpg[/qqimg]那就怪了
[pzweng][pzweng]路人 15:45:04
dcl够用了吧
[【KAIXIN】] [【KAIXIN】]炫翔 15:45:05
会一点点
[q3_2006]q2 15:45:10
知道你要说啥就行。。
[pzweng][pzweng]路人 15:45:10
你又不职业开发
[【KAIXIN】] [【KAIXIN】]炫翔 15:45:14
从没用过
那家伙BUG太多
[q530496591][q530496591]小菜鸟 15:45:39
ODCL好像说是容易学点
[【KAIXIN】] [【KAIXIN】]炫翔 15:46:02
简单的对话框容易
复杂的没接触过
不过界面没有的说
[pzweng][pzweng]路人 15:46:34
有dcl容易学?
dcl超简单
[q530496591][q530496591]小菜鸟 15:46:48
听说有
我没学!
[【KAIXIN】] [【KAIXIN】]炫翔 15:46:53
应该差不多吧
[浮世小半生]X 15:46:55
dcl 不能停靠
[q530496591][q530496591]小菜鸟 15:47:07
DCL我有学.但是没学会
[pzweng][pzweng]路人 15:47:11
dcl够你用的了
[q530496591][q530496591]小菜鸟 15:47:12
[【KAIXIN】] [【KAIXIN】]炫翔 15:47:13
DCL容易,如果跟LISP驱动还是有一定的难度
[pzweng][pzweng]路人 15:47:31
我觉得dcl简单
用lisp驱动也简单
[water_system][mingdi]shenshen 15:47:58
vlisp难吗?
入门书籍用什么?
[pzweng][pzweng]路人 15:48:01
[q530496591][q530496591]小菜鸟 15:48:01
晓东老大说学ODCL好
我说我学DCL
[pzweng][pzweng]路人 15:48:10
突然冒出这个问题
[【KAIXIN】] [【KAIXIN】]炫翔 15:48:17
vlisp 简称 LISP的自定义函数
[water_system][mingdi]shenshen 15:48:29
了解
[yarp]潜水 15:48:29
与其实odcl不好学ARX
[【KAIXIN】] [【KAIXIN】]炫翔 15:48:32
晓东是过来人
现在API技术玩的好
[yarp]潜水 15:48:48
与其学odcl不如学arx.
[pzweng][pzweng]路人 15:49:09
想职业开发呐
[q530496591][q530496591]小菜鸟 15:49:26
ARX是C++么?
[yarp]潜水 15:49:37
是的。
[【KAIXIN】] [【KAIXIN】]炫翔 15:49:39
是C++的一种
[q530496591][q530496591]小菜鸟 15:49:55
语言 是学不会的
C++还有这么多分类啊
[【KAIXIN】] [【KAIXIN】]炫翔 15:50:14
其实吧  啥语言都差不多
[yarp]潜水 15:50:15
lisp实现功能起来快,arx功能强大,有些事还非得要arx才行。
[【KAIXIN】] [【KAIXIN】]炫翔 15:50:27
主要看个人应用
[pzweng][pzweng]路人 15:50:38
命令: QCSTATE
QCSTATE = 1 (只读)
[pzweng][pzweng]路人 15:51:09
AUTOlisp的函数太少了
[【KAIXIN】] [【KAIXIN】]炫翔 15:51:24
那就自定义
综合VLISP
[pzweng][pzweng]路人 15:51:36
有的函数无法自定义
[【KAIXIN】] [【KAIXIN】]炫翔 15:51:39
综合强大的命令
不要忘了 命令也是ARX整的
[q530496591][q530496591]小菜鸟 15:52:05
病毒是用C++做出来的么?
[pzweng][pzweng]路人 15:52:15
就是因为函数少,所以功能也限制了
[q530496591][q530496591]小菜鸟 15:52:16
学太高深了没用
[pzweng][pzweng]路人 15:52:27
arx函数多
[q530496591][q530496591]小菜鸟 15:52:50
路人兄.你会C++么?
 楼主| 发表于 2013-9-26 16:03:36 | 显示全部楼层
[pzweng][pzweng]路人 16:03:36
不会
以前学过C
那是在学校的事了
[q530496591][q530496591]小菜鸟 16:13:11
就问问.长长见识
很喜欢听人家说一些我不知道的事
[q530496591][q530496591]小菜鸟 16:15:00
以前经常在起点看.看那些黑客.
他们都用什么语言来写病毒啊?
[stoyer][stoyer] 16:16:17
每种语言都可以写病毒
[q530496591][q530496591]小菜鸟 16:16:55
哦.那CAD病毒可以影响到系统么?
我有个朋友.刚毕业那会出来特别喜欢玩这东西.现在不玩了
感觉好神奇
[stoyer][stoyer] 16:17:35
常见的CAD病毒不会影响系统
[q530496591][q530496591]小菜鸟 16:17:44
哦哦~!
那用C语言写的就可以有了吧?
[stoyer][stoyer] 16:18:01
但有些CAD病毒会下载另一些影响系统的病毒。
[q530496591][q530496591]小菜鸟 16:18:32
哦哦!就是连带么对么?
真神奇.我要是年轻就去学下C语言了
[stoyer][stoyer] 16:19:04
比如前两年流行的AUTOCAD2007免激活版。里面有个病毒,会在网上下载其它病毒。
[q530496591][q530496591]小菜鸟 16:19:41
哦这样子!那也蛮可以的啦
[q530496591][q530496591]小菜鸟 16:20:23
我想不死猫老师可以写
牛.
我昨天晚上电脑中毒的厉害
叫个修电脑的来重装系统.他只能全部格式化系统
[阿然][阿然] 16:21:20
病毒只是指这个程序的破坏性,某种意义上所有的聊天软件都可以扩展成病毒
[q530496591][q530496591]小菜鸟 16:21:36
而且用电脑管家来杀毒.后来一杀毒电脑就运行不了
[阿然][阿然] 16:22:02
写个消息,你那边客户端显示这条消息,也可以干其他的事情,比如格式化硬盘
[q530496591][q530496591]小菜鸟 16:22:15
嗯.我下了一个扣扣.过24小时就不能用了
[q530496591][q530496591]小菜鸟 16:22:45
这个可以有.看那些黑客小说真有激情
可惜很少会有人写.而且也不大对我口味
[阿然][阿然] 16:23:20
《禁区之门》
[q530496591][q530496591]小菜鸟 16:23:48
阿然哥也看小说么?
[pzweng][pzweng]路人 16:23:50
谁有好点的随机函数
[pzweng][pzweng]路人 16:24:20
208
3
241
34
18
18
66
66
50
98
98
82
82
130
114
162
146
146
193
178
178
225
209
209
254
239
239
32
16
[阿然][阿然] 16:24:27
;;; Get a random value
;;;Author: aeo
(defun rnd (rMin rMax)
  (vla-eval (vlax-get-acad-object)
     "Randomize : ThisDrawing.setVariable "USERR5" ,CDbl((Rnd))"
  )
  (+ rMin (* (getvar "userr5") (- rMax rMin)))
)
[pzweng][pzweng]路人 16:24:30
这种随机数不理想
我就是用的这个
不理想
你看看结果
(repeat 100
  (princ (rnd 1 255))
  (terpri)
  )
三位数基本都在一起
两位数也在一起
这种随机不好
[阿然][阿然] 16:25:51
这个是目前最符合正态分布的随机数函数了
[pzweng][pzweng]路人 16:26:01
我喜欢C里面的那个函数
[阿然][阿然] 16:26:03
100个说明不了问题
[pzweng][pzweng]路人 16:26:16
我试试500个
[q530496591][q530496591]小菜鸟 16:26:26
有什么用啊?
加密?
[pzweng][pzweng]路人 16:26:39
不行哦
这个随机不行
我要随机颜色
区分图元
现在这个值相差不大,颜然区分不明显
相邻的图元颜然看起来差不多
[阿然][阿然] 16:28:24
。。。这个是颜色的问题,不是随机数的问题
[pzweng][pzweng]路人 16:29:01
201与211看来差不多的
我要色差大点
[阿然][阿然] 16:29:04
相邻图元理论上只要4个颜色就分清楚了
[pzweng][pzweng]路人 16:29:29
但颜色不想过于单调
[阿然][阿然] 16:29:58
都说了这个是颜色索引号的问题,不是随机数的问题
[myjping]七叶 16:30:15
请问,opendcl控件命令执行完后,如果右键想要重复命令能做到吗
[pzweng][pzweng]路人 16:30:53
12
203
68
69
205
91
241
55
这个效果好点
 楼主| 发表于 2013-9-26 17:16:31 | 显示全部楼层
[浮世小半生]X 17:16:31
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-25 12:38 , Processed in 0.198428 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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