明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1013|回复: 8

[LISP群(1)] 2013-08-12 明经 AutoLISP 编程(102918348) 群聊记录:每次启动加载到cad,有个啥函数?

 关闭 [复制链接]
发表于 2013-8-12 10:29:38 | 显示全部楼层 |阅读模式
[fsxm]飞诗 10:29:38
每次启动加载到cad,有个啥函数?
与启动组效果差不多的
[fsxm]飞诗 10:31:08
每个新图档都加载一次
[fsxm]飞诗 10:31:40
load 只加载到本图中
貌似还有个函数,能每个新图档都加载
[pzweng][pzweng]路人 10:32:54
vl开头的吧
我忘记了
[fsxm]飞诗 10:34:10
嗯,找到了vl-load-all
[pzweng][pzweng]路人 10:34:22
(vl-load-all filename)
刚翻到
[流动的清泉][权心权意] 10:36:29
[qqimg]201308/{7C128EC6-91D4-F8CA-3E96-E73C9682F604}.jpg[/qqimg]有这个函数吗?
[pzweng][pzweng]路人 10:37:20
en
[流动的清泉][权心权意] 10:39:23
问大家一个问题,cad改命令,除了在工具里面自定义编辑程序参数,能在lisp中间更改原始的命令吗?
[流动的清泉][权心权意] 10:39:57
不用command,就是和编辑程序参数一样的改命令?
[pzweng][pzweng]路人 10:40:00
CAD命令改不了的吧
只是改了快捷命令而已
[流动的清泉][权心权意] 10:41:14
恩,就是改快捷命令, 想在lisp中间实现! 有什么方法吗?
[pzweng][pzweng]路人 10:43:26
(defun C:test()
  (command ".line")
  (princ)
  )
或者用vla-sendcommand
[流动的清泉][权心权意] 10:47:34
嗯!我试试
 楼主| 发表于 2013-8-12 11:07:34 | 显示全部楼层
[pzweng][pzweng]路人 11:07:34
排序?
[Angel1995][Angel1995]Angel 11:07:42
是的
[pzweng][pzweng]路人 11:07:45
你获取的时候就是按顺序来的
还要怎么排
[Angel1995][Angel1995]Angel 11:07:56
是吗?
[pzweng][pzweng]路人 11:09:01
不是吗?
[Angel1995][Angel1995]Angel 11:10:21
好像是
[流动的清泉][权心权意] 11:10:42
恩,你是要获得一个整体的排列吗?
[流动的清泉][权心权意] 11:11:54
cad里面获得的,就是整体的排列,
[pzweng][pzweng]路人 11:13:35
他喜欢脱了裤子再放
 楼主| 发表于 2013-8-12 13:05:42 | 显示全部楼层
[wosyuwu]容颜 13:05:42
谁知道不死猫的淘宝是多少呢?
 楼主| 发表于 2013-8-12 13:33:33 | 显示全部楼层
[mccad][MCCAD] 13:33:33
找他
 楼主| 发表于 2013-8-12 17:34:12 | 显示全部楼层
[328302216][328302216]小莫 17:34:12
[face153.gif][face154.gif][face155.gif]
 楼主| 发表于 2013-8-12 18:18:52 | 显示全部楼层
[328302216][328302216]小莫 18:18:52
(if (>= textstr1 textstr3)    ;;判断矩形1上下两边哪边长
    (setq mjsjmc15-1 textstr1)
    (setq mjsjmc15-2 textstr3)
  )
  (if (>= textstr2 textstr4)    ;;判断矩形1左右两边哪边长
    (setq mjsjmc16-1 textstr2)
    (setq mjsjmc16-2 textstr4)
  )
  (if (>= textstr5 textstr7)    ;;判断矩形2上下两边哪边长
    (setq mjsjmc17-1 textstr5)
    (setq mjsjmc17-2 textstr7)
  )
  (if (>= textstr6 textstr8)    ;;判断矩形2左右两边哪边长
    (setq mjsjmc18-1 textstr6)
    (setq mjsjmc18-2 textstr8)
  )
  (if(= mjsjcd "chang")(progn(setq mjsjmc15 mjsjmc15-1) (setq mjsjmc16 mjsjmc16-1) (setq mjsjmc17 mjsjmc17-1) (setq mjsjmc18 mjsjmc18-1))
    (progn(setq mjsjmc15 mjsjmc15-2) (setq mjsjmc16 mjsjmc16-2) (setq mjsjmc17 mjsjmc17-2) (setq mjsjmc18 mjsjmc18-2)))

textstr1到textstr8 都有值,mjsjmc15也有值,为什么mjsjmc16到mjsjmc18就都没有值?
mjsjcd  也有值
[328302216][328302216]小莫 18:20:54
检测语法也没提提示错误....
[328302216][328302216]小莫 18:24:19
  好像真是头晕了  ...找到原因了
[328302216][328302216]小莫 18:28:06
一天看着代码真头晕[qqimg]201308/{B1AC14ED-DEF1-9DCA-5AC3-621B35A2B499}.gif[/qqimg]
 楼主| 发表于 2013-8-12 21:54:49 | 显示全部楼层
[tryhi]大海 21:54:49
请问怎么有没有人会形文件编码
[小伟jeny]小伟 21:55:17
帮助
[tryhi]大海 21:55:39
*029,39,krp
2,14,8,(-7,-25),14,5,8,(3,25),1,02E,8,(2,-3),04D,8,(1,-5),04C,8,(-1,-5),04B,
8,(-2,-3),02A,2,8,(11,7),14,6,14,8,(7,-16),0

为什么这个代表了#字
开头2不是提笔吗?
[tryhi]大海 21:56:47
2,14什么意思呢
[tryhi]大海 22:01:21
所以2,14就是移动到14的位置
[vormittag]桔子 22:04:13
如果横排版,忽略下面一个向量,竖排版才读这个向量。
 楼主| 发表于 2013-8-12 22:21:59 | 显示全部楼层
[tryhi]大海 22:21:59
好像有点明白了
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-23 07:47 , Processed in 0.180230 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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