whoami3340a
发表于 2012-7-6 10:24:11
whoami3340a
发表于 2012-7-6 10:29:32
zyhandw
发表于 2012-7-6 11:35:09
改为:(Command "insert" "D:\\My Documents\\xk03.dwg"ipthgt hgt"角度")
richine001
发表于 2012-7-6 11:58:53
恩，学习下，呵呵
hao3ren
发表于 2012-7-6 12:26:32
，insert
52幕墙设计
发表于 2012-7-8 01:24:15
(Command "insert" "xk03.dwg"ipthgt hgt"角度")
dwg放在cad搜索目录
chlh_jd
发表于 2012-7-8 03:19:54
(vl-catch-all-apply
(function
(lambda (dir hgt ipt)
(vla-InsertBlock
(vla-get-modelspace
(vla-get-activedocument
(vlax-get-acad-object)
)
)
(vlax-3d-point
(list (car ipt)
(cadr ipt)
0.0
)
)
dir
hgt
hgt
hgt
0.0
)
)
)
(list "D:\\My Documents\\xk03.dwg"
1.
(getpoint "\nPick point:")
)
)
zhangcan0515
发表于 2020-9-15 13:10:23
chlh_jd 发表于 2012-7-8 03:19
谢谢老师分享代码让我学习了！！！
页:
[1]