兰州人 发表于 2008-7-28 00:12:00

用Sendcommand命令获得在command执行的pt1,pt2

执行LISP的(setq p1 (list 0 0)),可在command命令执行!p1可得(0 0),用VBA等价解决方法如下.          ThisDrawing.SendCommand "(Setq p1 (List " & pp(0) & " " & pp(1) & " ))" & vbCr         
ThisDrawing.SendCommand "(Setq p2 (List " & ppp(0) & " " & ppp(1) & " ))" & vbCr

革天明 发表于 2012-3-9 13:51:00


如果想得到这P10呢，ThisDrawing.SendCommand "(Setq p2 (List " & ppppppppppppppppp(0) & " " & ppppppppppppppppp(1) & " ))" & vbCr
总不能一直输入P吧
页: [1]
查看完整版本: 用Sendcommand命令获得在command执行的pt1,pt2