2013-08-12 明经 AutoLISP 编程(102918348) 群聊记录：每次启动加载到cad，有个啥函数？

明经快报

[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

嗯！我试试

明经快报

[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

他喜欢脱了裤子再放

明经快报

[wosyuwu]容颜 13:05:42

谁知道不死猫的淘宝是多少呢？

明经快报

[mccad][MCCAD] 13:33:33

找他

明经快报

[328302216][328302216]小莫 17:34:12

[face153.gif][face154.gif][face155.gif]

明经快报

[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]

明经快报

[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

如果横排版，忽略下面一个向量，竖排版才读这个向量。

明经快报

[tryhi]大海 22:21:59

好像有点明白了