[Plz帮助]如何制作新的obj
我有两张照片：图N.1：我选择对象并按Ctrl+1（tad属性）显示为：“无选择”：不确定：
图N.2：我复制它并使用命令Explore------>在tab属性中，它是：Polyline
怎么做？？？通过net或VBA
我知道一点。net和Vba，我可以用来做同样的事情吗？？？
Tks很多
对不起，我的英文是：哎呀：：哎呀：
例如，在lisp中，它使用左-右-上-下绘制pline
例如R100 U100 L100 C绘制了一个100框
; draw a pline by direction Up Down left or Right use upper or lowercase
; by Alan H dec 2015
; this version is a metric/decimal version
; version 2 depending on request will be a imperial version
; 1'8 1/4" input d1.8.25 start with 1.8 = 1'8" then add second fraction ver 3
; how to use u123.45 D34.57 R102.6 l53
(defun ah:left ( / pt2)
(setq pt2 (polar pt pi (atof (substr ans 2 (- (strlen ans) 1)))))
(setq pt pt2)
(command pt2)
)
(defun ah:up ( / pt2)
(setq pt2 (polar pt (/ pi 2.0) (atof (substr ans 2 (- (strlen ans) 1)))))
(setq pt pt2)
(command pt2)
)
(defun ah:right ( / pt2)
(setq pt2 (polar pt 0.0 (atof (substr ans 2 (- (strlen ans) 1)))))
(setq pt pt2)
(command pt2)
)
(defun ah:down ( / pt2)
(setq pt2 (polar pt (* 1.5 pi) (atof (substr ans 2 (- (strlen ans) 1)))))
(setq pt pt2)
(command pt2)
)
(defun C:ahpliner ( / pt ans)
(command "_pline")
(command (setq pt (getpoint "Pick start point - Enter or C to finish")))
(while (= (getvar "cmdactive") 1 )
(setq ans (getstring "Enter L123 U456 R67 D78"))
(cond ((= ans "")(command ""))
((= "L"(strcase (substr ans 1 1)))(ah:left))
((= "U"(strcase (substr ans 1 1)))(ah:up))
((= "D"(strcase (substr ans 1 1)))(ah:down))
((= "R"(strcase (substr ans 1 1)))(ah:right))
((= "C"(strcase (substr ans 1 1)))(command "close"))
) ;cond
) ; while
)
tks比加尔。
但这是错误的，我可以借鉴普林。net非常简单
我的意思是做一个普林，普林的房地产秀是“没有选择”
：冲击： 当你选择了一些东西，打开“属性”选项板，它显示“没有选择”时，这只是一个bug。不能使pline的属性显示“无选择”。
页:
[1]