明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3636|回复: 14

[LISP群(1)] 2013-11-15 明经 AutoLISP 编程(102918348) 群聊记录:[1/7](defun C:tt (/ EN ENT LST LST1 OL

 关闭 [复制链接]
发表于 2013-11-15 08:40 | 显示全部楼层 |阅读模式
[偏爱云~小吴]偏 08:40:16
[1/7](defun C:tt (/ EN ENT LST LST1 OLDAUN OLDOSM T SS i ptlst ss1 STR TXT ZG)
 (setq oldaun (getvar "aunits")
       oldosm (getvar "osmode"))
 (setvar "aunits" 3)   ;设为弧度
 (setvar "osmode" 0 )
[4/7](ssname ss1 0))));取出第一个数据
     (setq pt (cdr(assoc 10 ent))
          txt (cdr(assoc 1 ent))
           zg (cdr(assoc 40 ent))
           lst (cons (list pt txt zg) lst);;获取表
           ss (ssdel en
[6/7](setq pt (car (last lst1));插入点
          zg (last (last lst1)));字高
    (setq pt (polar pt (* pi 0.5) zg))
    (vl-cmdf "MTEXT" pt "H" zg "W" 0 (substr str 1 (1- (strlen str))) "")
   ))
  )
 ))
[偏爱云~小吴]偏 08:40:49
为什么显示ssget错误
 楼主| 发表于 2013-11-15 09:09 | 显示全部楼层
[偏爱云~小吴]偏 09:09:52
6 92kA1B5a9b07fe56a6ce8c      50kDaccWxdbYDccJZN{B04846E-F0CD-549C-6859-43A85FC121F65}.jpgA
[偏爱云~小吴]偏 09:11:01
并且返回数据顺序错位
 楼主| 发表于 2013-11-15 09:29 | 显示全部楼层
[pzweng][pzweng]路人 09:29:35
如何在位编辑嵌套块
[pzweng][pzweng]路人 09:30:41
如何在位编辑嵌套块内指定的块
 楼主| 发表于 2013-11-15 09:46 | 显示全部楼层
[q3_2006]q2 09:46:23
[qqimg]201311/{7C5821E6-E4A9-81A6-77DB-E2DF117D4298}.gif[/qqimg]
张勇 09:47:34
好東西啊
 楼主| 发表于 2013-11-15 10:14 | 显示全部楼层
[llsheng_73]■■■ 10:14:39
请教一下
(vlax-curve-getClosestPointTo a '(199.16 54.4233 0.0) 0)
(199.16 54.5984 0.0)
 楼主| 发表于 2013-11-15 10:41 | 显示全部楼层
[llsheng_73]■■■ 10:41:53
请问下怎么修改一个线对象的起点坐标和终点坐标
用VLax或者VLA
 楼主| 发表于 2013-11-15 11:00 | 显示全部楼层
[xieling888] 11:00:12
(COMMAND "TEXT" "S" "INFO" T 2.5 0 "新  兴  环  境")
[偏爱云~小吴]偏 11:00:24
[4/7](ssname ss1 0))));取出第一个数据
     (setq pt (cdr(assoc 10 ent))
          txt (cdr(assoc 1 ent))
           zg (cdr(assoc 40 ent))
           lst (cons (list pt txt zg) lst);;获取表
           ss (ssdel en
[1/7](defun C:tt (/ EN ENT LST LST1 OLDAUN OLDOSM T SS i ptlst ss1 STR TXT ZG)
 (setq oldaun (getvar "aunits")
       oldosm (getvar "osmode"))
 (setvar "aunits" 3)   ;设为弧度
 (setvar "osmode" 0 )
[6/7](setq pt (car (last lst1));插入点
          zg (last (last lst1)));字高
    (setq pt (polar pt (* pi 0.5) zg))
    (vl-cmdf "MTEXT" pt "H" zg "W" 0 (substr str 1 (1- (strlen str))) "")
   ))
  )
 ))
[7/7](setvar "aunits" oldaun)   ;设为弧度
 (setvar "osmode" oldosm )
 (princ)
)帮忙看下为什么不能批量,而且转换后xyz顺序颠倒变成zyx
[xieling888] 11:00:45
(COMMAND "TEXT" "S" "INFO" T 2.5 0 "新  兴  环  境")

为什么我这个在CAD里生成不了呢
[xieling888] 11:01:22
[qqimg]201311/{1C27ADB6-8EA9-6899-A70A-9644498896A8}.jpg[/qqimg]
提示这个
[llsheng_73]■■■ 11:01:44
你用了没有的文字样式。。。
“INFO”是一个文字样式,但你的图中没有这个
[xieling888] 11:02:21
[qqimg]201311/{47ABAAB2-3697-7E35-81F4-D1F39BD51809}.jpg[/qqimg]
(COMMAND "TEXT" "S" "style1" T 2.5 0 "新  兴  环  境")
这样行吗
[llsheng_73]■■■ 11:03:01
只要图中有它就可以
[xieling888] 11:03:09
也不行
[llsheng_73]■■■ 11:03:33
也不行的话那是后边的参数出错了吧?
难道字体样式名要区分大小写?
具体不知道,不用COMMAND好久了
[xieling888] 11:04:26
我再试试
[llsheng_73]■■■ 11:05:31
你应该先在键盘上自己运行TEXT,仔细看看它的过程中出现的参数顺序。。。
[龙崽子] 11:06:09
大神们 请教个问题怎么在64位系统上安装32位的cad2010
[llsheng_73]■■■ 11:06:16
郁闷得很,弄了一半天了,不知道怎么用
vla-put-startpoint
[龙崽子] 11:06:46
大神们 请教个问题怎么在64位系统上安装32位的cad2010
[龙崽子] 11:07:21
我想安装pccad 在64位系统里
[龙崽子] 11:07:52
谢谢大家了  帮忙解决一些
一下
[龙崽子] 11:08:29
[llsheng_73]■■■ 11:08:56
你这是个难题,不然autodesk也不会没事干开发一个32位版本和一个64位版本
[龙崽子] 11:09:33
哎!!! 看来只有换系统了
[龙崽子] 11:10:42
新机子安装的是win8 64位的  郁闷
[llsheng_73]■■■ 11:11:30
如果屏幕不支持触屏,我不知道WIN8有什么用。。。
[龙崽子] 11:11:40
我照网上找的办法修改了cad 还是不行
我感觉和win7没有区别
就是少了一个开始菜单
出来是个开始界面
[llsheng_73]■■■ 11:16:58
晕,弄了半天,stratpoint对于ARC和SPLINE是只读的,怪不得搞半天它就
误: ActiveX 服务器返回错误: 未知名称: StartPoint
诸葛四郎 11:17:52
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=77645

请教一下,这个函数怎么改成

数字在前面变更,日期在后面呢:

比如:

CGD010005-K1AD0AY1(131115)
后面的1变化,日期跟着系统时间变动
诸葛四郎 11:24:57
请教一下,这个函数怎么改成

数字在前面变更,日期在后面呢:

比如:

CGD010005-K1AD0AY1(131115)
后面的1变化,日期跟着系统时间变动
[qqimg]201311/{80A94640-CCC4-B090-3BDB-A70FD23F5984}.jpg[/qqimg]
[llsheng_73]■■■ 11:27:52
[qqimg]201311/{9A3E9FED-F486-BE15-4860-45FCA8F88BDE}.jpg[/qqimg]
这个地方把1写到前边去就行了
诸葛四郎 11:28:32
好像我试过了
不行
[llsheng_73]■■■ 11:29:08
你想弄成什么样子?
诸葛四郎 11:29:43
CGD010005-K1AD0AY1(131115)
CGD010005-K1AD0AY2(131115)
CGD010005-K1AD0AY3(131115)
.
.
.
文件名可以这样保存
[llsheng_73]■■■ 11:30:38
(command "_.saveas" ""(strcat path newname "1(" date ")"))
那个1还得变是吧?
诸葛四郎 11:31:23
是的
[llsheng_73]■■■ 11:31:42
(command "_.saveas" ""(strcat path newname (itoa i)"(" date ")"))
[llsheng_73]■■■ 11:32:18
至于i对应到你程序中应该是哪个变量自己改过去就是了
[llsheng_73]■■■ 11:33:16
好象是hz?
诸葛四郎 11:33:51
你怎么不接受啊
[llsheng_73]■■■ 11:34:19
看你刚才发的那个图片能看清楚
诸葛四郎 11:35:29
能给我修改一下啊
[llsheng_73]■■■ 11:35:58
给你说了改那个地方以及怎么改,自己动手就行了
诸葛四郎 11:36:31
不会改啊
[llsheng_73]■■■ 11:38:24
真正不会的话正好以修改别人的程序来入手,不要怕被改坏,反正有备份的
诸葛四郎 11:39:00
我按照你的修改过了还不行呢
[llsheng_73]■■■ 11:39:18
改了之后是什么样子的?
诸葛四郎 11:39:26
[qqimg]201311/{C85B9319-FAEF-895B-DD99-C3ECA08E06FB}.jpg[/qqimg]
[qqimg]201311/{3FAA0EE2-AF4D-5A6C-0F9B-95DA70C84390}.jpg[/qqimg]
[llsheng_73]■■■ 11:40:03
说过了那个i得对应到你程序中相应的变量。。。
诸葛四郎 11:40:26
不懂
那个变量
[llsheng_73]■■■ 11:40:46
另外你程序中有类似的地方两个,两个地方都要改
诸葛四郎 11:40:58
[pzweng][pzweng]路人 11:41:04
改好名字
群昵称修改为“[论坛用户名]网名”格式,如果你未加入明经CAD社区,请先到http://bbs.mjtd.com注册用户。
[llsheng_73]■■■ 11:41:47
但都不能直接用I,好象你程序中是HZ?
[qqimg]201311/{701D6824-A4F3-FA32-C46C-8419CE597ABE}.jpg[/qqimg]
诸葛四郎 11:42:23
命令吗?
HZ是什么
[pzweng][pzweng]路人 11:42:45
诸葛四郎 请看群规
诸葛四郎 11:43:08
群规?
[llsheng_73]■■■ 11:43:20
[qqimg]201311/{73CE8D85-9147-5DC6-A1A1-157D9A4D777D}.jpg[/qqimg]
[pzweng][pzweng]路人 11:43:35
群昵称修改为“[论坛用户名]网名”格式,如果你未加入明经CAD社区,请先到http://bbs.mjtd.com注册用户。
诸葛四郎 11:43:58
我的网名和论坛用户名是一样 的
[pzweng][pzweng]路人 11:44:12
仔细看
[llsheng_73]■■■ 11:44:38
那就直接加个[]
[诸葛四郎] 11:46:13
是不是这样
还是不行
[llsheng_73]■■■ 11:47:38
这文件名也够长的
[llsheng_73]■■■ 11:48:49
问题改它和不改它有什么区别么?
 楼主| 发表于 2013-11-15 12:04 | 显示全部楼层
[诸葛四郎] 12:04:49
老哥,不会啊。麻烦修改一下哇
 楼主| 发表于 2013-11-15 13:14 | 显示全部楼层
[pzweng][pzweng]路人 13:14:58
张翰84年的,郑爽91年的,他大三 的时候,她初二;刘恺威74年的,杨幂 86年的,他大三的时候,她小学一年 级;吴奇隆70年的,刘诗诗87年的,他 大三的时候,她还没上幼儿园。

杨振宁大三的时候,他岳母都还没 生呢。
[shasha488][shasha488]nIhaO 13:17:54
 楼主| 发表于 2013-11-15 13:38 | 显示全部楼层
[llsheng_73]■■■ 13:38:31
记得论坛上有个SSGET参数的帖子很详细的,一时找不到它了。。。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 16:09 , Processed in 0.286686 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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